Delphi中對時間操作辦法匯總。本站提示廣大學習愛好者：（Delphi中對時間操作辦法匯總）文章只能為提供參考，不一定能成為您想要的結果。以下是Delphi中對時間操作辦法匯總正文
普通來說在delphi中用於描繪時間的有幾種數據構造，而對時間的操作，本質上就是對這些構造的操作。
TDateTime類型：
Delphi中最常用的表示日期時間的數據類型TDateTime類型，和普通的整形數一樣，你可以給日期定義一個日期型變量以便在順序中停止操作。TdateTime類型本質上是一個Double型的數，在Delphi中是這樣定義TdateTime類型： type TDateTime = type Double ,詳細的算法是用Double數的整數局部表示日期，以1989年12月30日為基准點，以天為單位停止加減，如數字1表示1900年1月1日，數字-1表示1989年12月29日。而小數局部則用來表示時間，其值為欲表示的時間與一整天總時間的比值，如早上6點就是6/24=0.25,而早上6:15就是(6*60+15)/(24*60)=0.2604166666666666666666666666667，上面，給出幾個例子闡明TDateTime類型 與Double類型的交互關系
0 12/30/1899 00:00:00
2.75 1/1/1900 18:00:00
-1.25 12/29/1899 6:00:00
35065 1/1/1996 00:00:00
置信大家一定能自己了解TdateTime與Double之間的轉換辦法，因而，從基本上對TDateTime的操作與Double完全一樣。
TTimeStamp 類型：
這是一個用來描繪日期與時間的一個構造類型，在Delphi中是這樣定義的：
type
TTimeStamp = record
Time: Integer; {從午夜0點開端到指定時間的毫秒數 }
Date: Integer; {以本日為基准到指點日期的天數}
end;
和TDateTime相比，可更直觀表示高精度的時間，普通用於毫秒級的運算以及用於表示較長的時間。
PsystemTime 類型：
一個用於WinApi中對時間操作的指針型構造。他的定義為：
type PSystemTime = ^TSystemTime; TSystemTime = record wYear: Word; wMonth: Word; wDayOfWeek: Word; wDay: Word; wHour: Word; wMinute: Word; wSecond: Word; wMilliseconds: Word; end;
這個構造多用於調用WinApi操作時運用。
在理解了各種時間類型的實質後，置信大家都有一套操作這些類型的時間的想法，不過在Delphi中還提供了一整套用於操作時間的進程函數，這些進程和函數都定義在SysUnit這個單元中，如今就向大家引見Delphi中相關函數：
用於時間操作的函數
Date函數：
定義：Date: TDateTime;
作用：前往以後的日期
范例：
CurrentDate := Date;
DayOfWeek函數：
定義：function DayOfWeek(Date: TDateTime): Integer;
作用：失掉指定日期的星期值，前往1～7，代表周日到周六。
IncMouth函數：
定義：function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;
作用：求給定的日期Data在NumberOfMonths個月後的日期。
范例：
Date1 := IncMonth(date,10);
假如明天是2002-5-3，則Date1就是2003-3-3
IsLeapYear函數：
定義：function IsLeapYear(Year: Word): Boolean;
作用：判別指定的年份能否是閏年；
范例：
if isLeapYear(2000) then ShowMessage(‘該年是閏年');
Now函數：
定義：function Now: TDateTime;
作用：用於獲得以後的日期時間
范例：
CurrentDateTime := Now;
ReplaceDate 進程
定義：procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);
作用：運用參數Newdate日期局部交換參數DateTime的日期局部，但不改動時間局部。
ReplaceDate 進程
定義：procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime);
作用：運用參數Newdate時間局部交換參數DateTime的時間局部，但不改動日期局部。
假如上述這兩個進程一同用，就相當於賦值了。
Time函數：
定義：function Time: TDateTime;
作用：前往以後的時間
范例：
CurrentTime := Time;
各種時間類型之間的轉換函數
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);
作用：輸出一個TDateTime類型的日期，將其轉為年(Year)，月(Month),日(Day)的值。假如輸出值為0或小於0，則年月日均為0，
EncodeTime 函數：
定義：EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
作用：輸出小時(Hour),分(min),秒(Sec),微秒(MSec)的值，前往一個TDateTime類型的時間，該值為一個介於0至1之間的小數。Hour的取值范圍為0-23,Min的取值范圍為0-59,Sec的取值范圍為0-59,MSec的取值范圍為0-999，假如輸出值超出范圍，則發生一個EConvertError 錯誤。
DecodeTime 進程：
定義：procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
作用：輸出一個時間，將其轉換為小時(Hour),分(min),秒(Sec),微秒(MSec)的值。
TDateTime類型與字符串型轉換函數：
DateTimeToStr 函數：
DateToStr 函數
TimeToStr函數
定義：function DateTimeToStr(DateTime: TDateTime): string;
function TimeToStr(Time: TDateTime): string;
function TimeToStr(Time: TDateTime): string;
作用：將一個TDateTime類型的數轉換成字符串，DateTimeToStr轉換日期和時間，DateToStr只轉換日期，TimeToStr只轉換時間。轉換後的輸入效果為YYYY-M-D H：M：S
StrToDateTime函數
StrToDate函數
StrToTime函數
定義：function StrToDateTime(const S: string): TDateTime;
function StrToDate(const S: string): TDateTime;
function StrToTime(const S: string): TDateTime;
作用：將帶有日期時間格式的字符串轉化成TDateTime，其中S必需是一個無效的字符串，如
YY-MM-DD HH:MM:SS格式，否則就會觸發EConvertError事情，提示錯誤信息。
時間局部的字符串必需是由2～3個的數值字串構成，並且采用在Windows區域設置中設置的分隔字符停止分隔，其格式要求契合在Windows區域設定中的設定,其中HH,MM(小時，分鐘)必需添加，SS（秒）可選，也可以在前面參加 Am和Pm區分上下午，這時分零碎將以為采用12小時表示法，否則以為采用24小時表示法。
日期局部的格式要求契合Windows區域設置中的短日期格式，也是由2～3個的數值字串構成，假如在字符串中只要2個數，則以為是指定了月份和日期，年份采用以後年份，
假如在區域設置中采用兩位年份的表示辦法，則零碎將會采用以下辦法處置：
以後年份 起始年份 基准值 輸出年份03 輸出年份50 輸出年份68
1998 0 1900 1903 1950 1968
2002 0 2000 2003 2050 2068
1998 50 1948 2003 1950 1968
2000 50 1950 2003 1950 1968
2002 50 1952 2003 2050 1968
2020 50 1970 2003 2050 2068
2020 10 2010 2103 2050 2068
首先在區域設置中獲得兩位年份的起始年份，如在區域設置中設兩位年份范圍為1932-2031年，則起始年份為32年，假如這個起始年份為0，則以為兩位年份表示的都是本世紀，假如其實年份大於0 ，則采用以後年份減去起始年份的值，這個值稱為基准值，大於等於這個值則以為事本世紀，否則以為是下世紀，上面給出幾個例子闡明：
DateTimeToString 進程：
FormatDateTime 函數：
定義：procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
作用：經過定義Format字串中的格式失掉要輸入時間字符串，例如要輸入“明天是2002年5月5日，星期五”就可以用這兩種辦法，這兩個辦法的作用相反，只是一個是經過共享變量獲得輸入字符串，值在Result中，一個是經過前往值獲得輸入字符串，DateTime參數是希望輸入的日期值，Format由格式標志與附加字符串組合而成。附加字串用””圈起，好像C中的Printf函數.如“明天是2002年5月5日，星期五”的Format值就是 ‘”明天是”yyyy”年”mm”月”dd”日，” dddd'，yyyy,mm,dd,dddd都是格式標識，各種格式標識的解釋如下：
d ：用一位或兩位整數顯示日子（1－31）
dd ：用兩位整數顯示日子，缺乏兩位的用0補足（01－31）
ddd ：按縮略方式顯示以後的星期號，假如Windows是英文版，則顯示為Mon－Sun,假如是中文版，則顯示同dddd。
dddd ：按完好方式顯示以後的星期號，如Windows是英文版，則顯示Monday－SumDay,假如是中文版，則顯示星期一～星期日
ddddd ：按區域設置中的短日期格式輸入。
dddddd ：按區域設置中的長日期格式輸入。
m ：用一位或兩位整數顯示月份（1－12）
mm ：用兩位整數顯示月份，缺乏兩位的用0補足（01－12）
mmm ：運用縮略方式顯示月份稱號，英文版顯示為Jan-Dec,中文版同mmmm
mmmm ：運用完好方式顯示月份稱號，英文版顯示為January-December,中文版為一月～十二月
yy ：按兩位整數方式顯示年份（00－99）
yyyy ：按四位整數方式顯示年份（0000－9999）
h ：用一位或兩位整數顯示小時（0－23）
hh ：用兩位整數顯示小時，缺乏兩位的用0補足（00－23）
n ：用一位或兩位整數顯示分鐘（0－60）
nn ：用兩位整數顯示分鐘，缺乏兩位的用0補足（00－60）
s ：用一位或兩位整數顯示秒數（0－60）
ss ：用兩位整數顯示秒數，缺乏兩位的用0補足（00－60）
z ：用一位至兩位整數顯示毫秒數（0－999）
zzz ：用三位整數顯示毫秒數，缺乏三位的用0補足（000－999）
tt ：依照區域設置中的格式顯示日期
am/pm ：用於12小時制的顯示，帶有AM的則表示從0點～12點，pm代表從12點~0點。
與時間相關的變量：
Delphi封裝了區域設置的各種信息，並以此定義了一系列的變量，上面引見與時間相關的局部變量：
DateSeparator ：Char
日期分隔符，用於分隔年月日
TimeSeparator ：Char
時間分隔符，用於分隔小時，分鐘，秒
ShortDateFormat：String
區域設置中短日期格式的定義。
LongDateFormat ：String
區域設置中長日期格式的定義。
ShortTimeFormat：String
區域設置中短時間格式的定義。
LongTimeFormat ：String
區域設置中長時間格式的定義。
TimeAMString ：String
用來表示上午的字符串
TimePMString ：String
用來表示下午的字符串
ShortMonthNames：array[1..12] of String;
用於縮略表示月份稱號的數組，就是在運用FormatDateTime時顯示的mmm標識的字符串
LongMonthNames：array[1..12] of String;
用於完好表示月份稱號的數組，就是在運用FormatDateTime時顯示的mmmm標識的字符串
ShortDayNames ：array[1..7] of String;
用於縮略表示星期稱號的數組，就是在運用FormatDateTime時顯示的ddd標識的字符串
LongDayNames ：array[1..7] of String;
用於完好表示星期稱號的數組，就是在運用FormatDateTime時顯示的ddd標識的字符串
TwoDigitYearCenturyWindow：Word = 50;
在運用兩位年份時的起始年份。
好了，至此delphi中關於時間操作的局部根本講完了，讀者在實踐編程運用的時分還可依據本身需求檢查相應的協助文件處理遇到的問題。
