分解时间 –DecodeDate、DecodeTime … DecodeDateTime …

  • A+
所属分类:[开发技巧]
  1. SysUtils.DecodeDate();
  2. SysUtils.DecodeDateFully();
  3. SysUtils.DecodeTime();
  4. DateUtils.DecodeDateTime();
  5. DateUtils.DecodeDateDay();
  6. DateUtils.DecodeDateWeek();
  7. DateUtils.DecodeDateMonthWeek();
  8. DateUtils.DecodeDayOfWeekInMonth();
  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. t: TDateTime;
  26. Year, Month, Day, Week: Word;
  27. Hour, Min, Sec, MSec: Word;
  28. begin
  29. t := EncodeDateTime(2009521112233999);
  30. DecodeDate(t, Year, Month, Day);
  31. ShowMessageFmt('%d,%d,%d', [Year, Month, Day]); //2009,5,21
  32. DecodeDateFully(t, Year, Month, Day, Week);
  33. ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Day, Week]); //2009,5,21,5; 最后的 5 表示周四
  34. DecodeTime(t, Hour, Min, Sec, MSec);
  35. ShowMessageFmt('%d,%d,%d,%d', [Hour, Min, Sec, MSec]); //11,22,33,999
  36. DecodeDateTime(t, Year, Month, Day, Hour, Min, Sec, MSec);
  37. ShowMessageFmt('%d,%d,%d,%d,%d,%d,%d', [Year, Month, Day, Hour, Min, Sec, MSec]); //2009,5,21,11,22,33,999
  38. DecodeDateDay(t, Year, Day);
  39. ShowMessageFmt('%d,%d', [Year, Day]); //2009,141; 2009 年第 141 天
  40. DecodeDateWeek(t, Year, Week, Day);
  41. ShowMessageFmt('%d,%d,%d', [Year, Week, Day]); //2009,21,4; 2009 年第 21 周, 周 4
  42. DecodeDateMonthWeek(t, Year, Month, Week, Day);
  43. ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Week, Day]); //2009,5,3,4; 2009 年 5 月的第 3 周, 周 4
  44. DecodeDayOfWeekInMonth(t, Year, Month, Week, Day);
  45. ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Week, Day]); //2009,5,3,4
  46. end;
  47. end.
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

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