delphi 時間日期操作

用於時間操作的函式

date函式：

定義：date: tdatetime;

作用：返回當前的日期

範例：currentdate := date; dayofweek函式：

定義：function dayofweek(date: tdatetime): integer;

作用：得到指定日期的星期值，返回1～7，代表週日到週六。 incmouth函式：定義：function incmonth(const date: tdatetime; numberofmonths: integer): tdatetime;

作用：求給定的日期data在numberofmonth 個月後的日期。

範例：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;

作用：將乙個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;

delphi 時間日期操作

Oracle時間日期操作

PHP時間日期操作

delphi 日期時間操作

delphi 時間日期操作

Oracle時間日期操作

PHP時間日期操作

delphi 日期時間操作

相關推薦