Delphi DateUtils-Function详解

date


IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond
DateUtils.IncYear();
DateUtils.IncMonth();
DateUtils.IncWeek();
DateUtils.IncDay();
DateUtils.IncHour();
DateUtils.IncMinute();
DateUtils.IncSecond();
DateUtils.IncMilliSecond();


 

 
  1. unit Unit1;  
  2. interface  
  3. uses  
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  5.   Dialogs, StdCtrls;  
  6. type  
  7.   TForm1 = class(TForm)  
  8.     procedure FormCreate(Sender: TObject);  
  9.   end;  
  10. var  
  11.   Form1: TForm1;  
  12. implementation  
  13. {$R *.dfm}  
  14. uses DateUtils;  
  15. procedure TForm1.FormCreate(Sender: TObject);  
  16. var  
  17.   t1,t2: TDateTime;  
  18.   i: Int64;  
  19.   d: Double;  
  20. begin  
  21.   t1 := StrToDateTime('201111 1:1:1');  
  22.   t2 := IncYear(t1);  
  23.   ShowMessage(DateTimeToStr(t2)); //2012-1-1 1:01:01  
  24.   t2 := IncYear(t1, 3);  
  25.   ShowMessage(DateTimeToStr(t2)); //2014-1-1 1:01:01  
  26.   t2 := IncMonth(t1);  
  27.   ShowMessage(DateTimeToStr(t2)); //2011-2-1 1:01:01  
  28.   t2 := IncWeek(t1);  
  29.   ShowMessage(DateTimeToStr(t2)); //2011-1-8 1:01:01  
  30.   t2 := IncDay(t1);  
  31.   ShowMessage(DateTimeToStr(t2)); //2011-1-2 1:01:01  
  32.   t2 := IncHour(t1);  
  33.   ShowMessage(DateTimeToStr(t2)); //2011-1-1 2:01:01  
  34.   t2 := IncMinute(t1);  
  35.   ShowMessage(DateTimeToStr(t2)); //2011-1-1 1:02:01  
  36.   t2 := IncSecond(t1);  
  37.   ShowMessage(DateTimeToStr(t2)); //2011-1-1 1:01:02  
  38.   t2 := IncMilliSecond(t1);  
  39.   ShowMessage(FormatDateTime('yyyy-m-d h:n:s:zzz', t2)); //2011-1-1 1:01:01:001  
  40. end;  
  41. end.  
分享到: