Delphi DecodeDate和EncodeDate 拆分和聚合时间函数的用法

 

 

SysUtils
procedure DecodeData(Date: TDateTime; var Year, Month, Day: Word);
DecodeDate打断TdateTime成为年月日的值。
DecodeDate打断由Date参数说明的值成为年月日的值。
如果TDateTime值是小于或等于0，那么返回的年月日值为0;

这个例子使用一个按纽和两个标签，当按击按钮时，当前的日期和时间就会出现在两个标签的标题中显示。
procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present := Now;
DecodeDate(Present, Year, Hour, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime()Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '+ IntToStr(Hour);
end;

 procedure TForm1.Button1Click(Sender:   TObject); 
var 
    Present:   TDateTime; 
    Year,   Month,   Day,   Hour,   Min,   Sec,   MSec:   Word; 
  begin 
    Present:=   Now; 
    DecodeDate(Present,   Year,   Month,   Day); 
    Label1.Caption   :=   'Today   is   Day   '   +   IntToStr(Day)   +   '   of   Month   ' 
        +   IntToStr(Month)   +   '   of   Year   '   +   IntToStr(Year); 
    DecodeTime(Present,   Hour,   Min,   Sec,   MSec); 
    Label2.Caption   :=   'The   time   is   Minute   '   +   IntToStr(Min)   +   '   of   Hour   ' 
        +   IntToStr(Hour); 
end; 
procedure   TForm1.Button1Click(Sender:   TObject); 
var 
    MyDate:   TDateTime; 
begin 
    MyDate   :=   EncodeDate(StrToInt(Edit1.Text),   StrToInt(Edit2.Text),   StrToInt(Edit3.Text)); 
    Label1.Caption   :=   DateToStr(MyDate); 
end;