各種時間類型之間的轉換函數
DateTimeToFileDate函數:
定義:DateTimeToFileDate(DateTime: TDateTime): Integer;
作用: 將一個TDateTime類型的時間轉化為Dos環境中的時間,Dos環境下對時間的訪問方法和VCL中的TdateTime類型不一樣,在進行文件操作時,為了保持時間的一致性,需要使用DateTimeToFileDate函數進行轉化,返回的Integer的值就是Dos下的用於描述時間的值。
DateTimeToSystemTime 過程:
定義:procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);
作用:將一個TDateTime類型的時間轉換為Win API函數所使用的TSystemTime類型,在使用WinApi函數操縱時間時用到。
SystemTimeToDateTime 函數:
定義:function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;
作用:將一個在WinApi函數中得到的TSysTemTime類型的數轉換為TDateTime類型。
DateTimeToTimeStamp 函數:
TimeStampToDateTime 函數:
定義:DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
作用:用於在TDataTime類型與TTimeStamp之間進行互相轉換。TDataTime 用一個double描繪一個時間,而TTimeStamp則是采用兩個整形數分別描述時間。兩種類型的區別可參考文章開始處的數據類型描述部分。
EncodeDate 函數:
定義:function EncodeDate(Year, Month, Day: Word): TDateTime;
作用: 輸入年(year),月(month),日(day)的值,將該日期返回為TDateTime類型,年的范圍為1-9999,月份的范圍為1-12,日期的范圍視當月的情況而定,如果輸入的值超出范圍,則將產生一個EConvertError錯誤。
DecodeDate 過程:
定義:procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);