IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond – 增时

  • A+
所属分类:[开发技巧]
  1. //DateUtils.IncYear();  
  2. //DateUtils.IncMonth();  
  3. //DateUtils.IncWeek();  
  4. //DateUtils.IncDay();  
  5. //DateUtils.IncHour();  
  6. //DateUtils.IncMinute();  
  7. //DateUtils.IncSecond();  
  8. //DateUtils.IncMilliSecond();  
  9.   unit Unit1;  
  10. interface  
  11. uses  
  12. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  13. Dialogs, StdCtrls;  
  14. type  
  15. TForm1 = class(TForm)  
  16. procedure FormCreate(Sender: TObject);  
  17. end;  
  18. var  
  19. Form1: TForm1;  
  20. implementation  
  21. {$R *.dfm}  
  22. uses DateUtils;  
  23. procedure TForm1.FormCreate(Sender: TObject);  
  24. var  
  25. t1,t2: TDateTime;  
  26. i: Int64;  
  27. d: Double;  
  28. begin  
  29. t1 := StrToDateTime('2011-1-1 1:1:1');  
  30. t2 := IncYear(t1);  
  31. ShowMessage(DateTimeToStr(t2)); //2012-1-1 1:01:01  
  32. t2 := IncYear(t1, 3);  
  33. ShowMessage(DateTimeToStr(t2)); //2014-1-1 1:01:01  
  34. t2 := IncMonth(t1);  
  35. ShowMessage(DateTimeToStr(t2)); //2011-2-1 1:01:01  
  36. t2 := IncWeek(t1);  
  37. ShowMessage(DateTimeToStr(t2)); //2011-1-8 1:01:01  
  38. t2 := IncDay(t1);  
  39. ShowMessage(DateTimeToStr(t2)); //2011-1-2 1:01:01  
  40. t2 := IncHour(t1);  
  41. ShowMessage(DateTimeToStr(t2)); //2011-1-1 2:01:01  
  42. t2 := IncMinute(t1);  
  43. ShowMessage(DateTimeToStr(t2)); //2011-1-1 1:02:01  
  44. t2 := IncSecond(t1);  
  45. ShowMessage(DateTimeToStr(t2)); //2011-1-1 1:01:02  
  46. t2 := IncMilliSecond(t1);  
  47. ShowMessage(FormatDateTime('yyyy-m-d h:n:s:zzz', t2)); //2011-1-1 1:01:01:001  
  48. end;  
  49. end.  
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: