學習官方樣本 – SysUtils.DecodeDate、DecodeTime

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  Present: TDateTime;  Year, Month, Day, Hour, Min, Sec, MSec: Word;begin  Present := Now;  DecodeDate(Present, Year, Month, Day);  DecodeTime(Present, Hour, Min, Sec, MSec);  Text := Format('%d年%d月%d日 %d:%d:%d:%d', [Year, Month, Day, Hour, Min, Sec, MSec]);end;end.