Delphi 獲取當前日期時間：Now、Date、Time、CurrentYear 完整範例

SysUtils 日期時間核心函數實戰

在 Delphi 中獲取當前日期時間是基礎且高頻的操作。SysUtils 單元提供了 Now、Date、Time、CurrentYear 四個核心函數，搭配格式化轉換函數即可滿足大多數顯示需求。

核心函數說明

完整程式碼範例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  dt: TDateTime;
  d: TDate;
  t: TTime;
  y: Word;
begin
  dt := Now;           // 完整日期時間
  d := Date;           // 僅日期
  t := Time;           // 僅時間
  y := CurrentYear;    // 年份整數

  ShowMessage(DateTimeToStr(dt)); // 2024-01-15 14:30:45
  ShowMessage(DateToStr(d));      // 2024-01-15
  ShowMessage(TimeToStr(t));      // 14:30:45
  ShowMessage(IntToStr(y));       // 2024
end;

end.

關鍵轉換函數

• DateTimeToStr：TDateTime → 完整字串
• DateToStr：TDate → 日期字串
• TimeToStr：TTime → 時間字串
• FormatDateTime：自訂格式輸出（如 'yyyy/mm/dd hh:nn:ss'）

進階應用提示

• TDateTime 實質是 Double，整數部分為日期（從 1899-12-30 起算），小數部分為時間比例
• 日期運算可直接用 + -：Date + 7 表示一週後
• 跨時區應用建議改用 System.DateUtils.NowUTC 或 TTimeZone 類
• CurrentYear 內部實際調用 YearOf(Now)，效能相當

這四個函數構成了 Delphi 日期時間處理的基石，掌握它們的類型差異與轉換方式，能避免常見的類型不匹配錯誤。