Delphi日期函式

2021-04-12 22:23:50 字數 1806 閱讀 6998

1.date

功能說明:返回當前的日期。

procedure tform1.button1click(sender: tobject);

begin

label1.caption := ''今天是:'' + datetostr(date);

end;

label顯示為:今天是2023年1月1日。

2.datetostr

功能說明:將日期型轉換為字元型。

vars: string;

begin

s := datetostr(date);

end;

3.datetimetostr

功能說明:將datetime型轉換為字元型。

vars: string;

begin

s := datetimetostr(now);

end;

4.dayofthemonth(所在單元:dateutils)

功能說明:獲取指定日期的日。

label1.caption := inttostr(dayofthemonth(now));

假設當前日期為2023年1月2日,那麼label將顯示為2。

5.dayoftheweek(所在單元:dateutils)

功能說明:根據指定日期,獲取星期幾。

label1.caption := inttostr(dayofthemonth(now));

假設當前日期為2023年1月2日,那麼label將顯示為7。根據返回的值來判斷是週幾。7表示星期天,1為星期一,依類類推。

6.dayoftheyear(所在單元:dateutils)

功能說明:根據指定日期,獲取天數。

label1.caption := inttostr(dayoftheyear(now));

假設當前日期為2023年1月2日,那麼label將顯示為2。表示是2023年的第2天。

7.dayof(所在單元:dateutils)

功能說明:根據指定的日期,返回日。

label1.caption := inttostr(dayof(date));

假設當前日期為2023年1月2日,那麼label將顯示為2。

8.isleapyear

功能說明:根據指定的年,判斷是否為閏年。可使用yearof函式獲取年。

procedure tform1.button1click(sender: tobject);

begin

if isleapyear(yearof(date)) then showmessage(''是閏年'')

else showmessage(''不是閏年'');

end;

9.monthof(所在單元:dateutils)

功能說明:根據指定的日期,返回月份。

label1.caption := inttostr(monthof(date));

假設當前日期為2023年1月2日,那麼label將顯示為1。

10.now

功能說明:返回當前日期及時間。

procedure tform1.button1click(sender: tobject);

begin

label1.caption := ''現在是:'' + datetimetostr(now);

end;

11.yearof(所在單元:dateutils)

功能說明:根據指定的日期,返回年。

label1.caption := inttostr(yearof(date));

假設當前日期為2023年1月2日,那麼label將顯示為2005。

Delphi日期函式

1.date 功能說明 返回當前的日期。procedure tform1.button1click sender tobject begin label1.caption 今天是 datetostr date end label顯示為 今天是2005年1月1日。2.datetostr 功能說明 將日...

delphi 日期時間操作

delphi中的時間操作技術 delphi中的用於表示時間的型別 tdatetime型別 delphi中最常用的表示日期時間的資料型別tdatetime型別,tdatetime型別實質上是乙個double型的數,在delphi中是這樣定義tdatetime型別 type tdatetime type...

delphi中日期型別TDateTime使用總結

剛才真正明白了delphi中的tdatetime型別,實際上為乙個浮點數,因此tdatetime型別的兩個變數可以進行浮點數的大部分操作,對於小數部分可以使用minuteof輸出它的分鐘數,負小數取補後轉化為分鐘數。並且可以通過tdatetimetostr,strtodatetime可以方便與str...