构建时间 -EncodeDateTime … TryEncodeDateTime

  • A+
所属分类：[开发技巧]
  1. SysUtils.EncodeDateTime  
  2. SysUtils.EncodeDate  
  3. SysUtils.EncodeTime  
  4. DateUtils.EncodeDateDay  
  5. DateUtils.EncodeDateMonthWeek  
  6. DateUtils.EncodeDateTime  
  7. DateUtils.EncodeDateWeek  
  8. DateUtils.EncodeDayOfWeekInMonth  
  9. DateUtils.TryEncodeDateTime  
  10. DateUtils.TryEncodeDateDay  
  11. DateUtils.TryEncodeDateWeek  
  12. DateUtils.TryEncodeDateMonthWeek  
  13. DateUtils.TryEncodeDayOfWeekInMonth  
  14.   unit Unit1;  
  15. interface  
  16. uses  
  17. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  18. Dialogs, StdCtrls;  
  19. type  
  20. TForm1 = class(TForm)  
  21. Memo1: TMemo;  
  22. procedure FormCreate(Sender: TObject);  
  23. end;  
  24. var  
  25. Form1: TForm1;  
  26. implementation  
  27. {$R *.dfm}  
  28. uses DateUtils;  
  29. procedure TForm1.FormCreate(Sender: TObject);  
  30. var  
  31. t: TDateTime;  
  32. s: string;  
  33. begin  
  34. t := EncodeDateTime(2009, 5, 20, 11, 22, 33, 999);  
  35. s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 11:22:33:999  
  36. t := EncodeDate(2009, 5, 20);  
  37. s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 0:0:0:000  
  38. t := EncodeTime(11, 22, 33, 999);  
  39. s := FormatDateTime('h:n:s:zzz', t); //11:22:33:999  
  40. t := EncodeDateDay(2009, 140);  
  41. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  42. t := EncodeDateWeek(2009, 21);  
  43. s := FormatDateTime('yyyy-m-d', t); //2009-5-18  
  44. t := EncodeDateWeek(2009, 21, 3);  
  45. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  46. t := EncodeDateMonthWeek(2009, 5, 3, 3);  
  47. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  48. t := EncodeDayOfWeekInMonth(2009, 5, 3, 3);  
  49. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  50. if TryEncodeDateTime(2009, 5, 20, 11, 22, 33, 999, t) then  
  51. s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 11:22:33:999  
  52. if TryEncodeDateDay(2009, 140, t) then  
  53. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  54. if TryEncodeDateWeek(2009, 21, t) then  
  55. s := FormatDateTime('yyyy-m-d', t); //2009-5-18  
  56. if TryEncodeDateMonthWeek(2009, 5, 3, 3, t) then  
  57. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  58. if TryEncodeDayOfWeekInMonth(2009, 5, 3, 3, t) then  
  59. s := FormatDateTime('yyyy-m-d', t); //2009-5-20  
  60. end;  
  61. end.  
历史上的今天
五月
25
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

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