MonthOfTheYear、WeekOfTheYear、WeekOfTheMonth、DayOfTheYear … 相对时间

  • A+
所属分类:[开发技巧]
  1. //SysUtils.DayOfWeek();  
  2. //DateUtils.MonthOfTheYear();  
  3. //DateUtils.WeekOfTheYear();  
  4. //DateUtils.WeekOfTheMonth();  
  5. //DateUtils.NthDayOfWeek();  
  6. //DateUtils.DayOfTheYear();  
  7. //DateUtils.DayOfTheMonth();  
  8. //DateUtils.DayOfTheWeek();  
  9. //DateUtils.SysUtils.DayOfWeek();  
  10. //DateUtils.HourOfTheYear();  
  11. //DateUtils.HourOfTheMonth();  
  12. //DateUtils.HourOfTheWeek();  
  13. //DateUtils.HourOfTheDay();  
  14. //DateUtils.MinuteOfTheYear();  
  15. //DateUtils.MinuteOfTheMonth();  
  16. //DateUtils.MinuteOfTheWeek();  
  17. //DateUtils.MinuteOfTheDay();  
  18. //DateUtils.MinuteOfTheHour();  
  19. //DateUtils.SecondOfTheYear();  
  20. //DateUtils.SecondOfTheMonth();  
  21. //DateUtils.SecondOfTheWeek();  
  22. //DateUtils.SecondOfTheDay();  
  23. //DateUtils.SecondOfTheHour();  
  24. //DateUtils.SecondOfTheMinute();  
  25. //DateUtils.MilliSecondOfTheYear();  
  26. //DateUtils.MilliSecondOfTheMonth();  
  27. //DateUtils.MilliSecondOfTheWeek();  
  28. //DateUtils.MilliSecondOfTheDay();  
  29. //DateUtils.MilliSecondOfTheHour();  
  30. //DateUtils.MilliSecondOfTheMinute();  
  31. //DateUtils.MilliSecondOfTheSecond();  
  32. unit Unit1;  
  33. interface  
  34. uses  
  35. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  36. Dialogs;  
  37. type  
  38. TForm1 = class(TForm)  
  39. procedure FormCreate(Sender: TObject);  
  40. end;  
  41. var  
  42. Form1: TForm1;  
  43. implementation  
  44. {$R *.dfm}  
  45. uses DateUtils;  
  46. procedure TForm1.FormCreate(Sender: TObject);  
  47. var  
  48. t: TDateTime;  
  49. w: Word;  
  50. c: Cardinal;  
  51. i: Int64;  
  52. begin  
  53. t := StrToDateTime('2009-5-20 11:22:33');  
  54. {指定时间是年度第几月份}  
  55. w := MonthOfTheYear(t); //5  
  56. {指定时间分别是年、月的第几周}  
  57. w := WeekOfTheYear(t); //21  
  58. w := WeekOfTheMonth(t); //3  
  59. w := NthDayOfWeek(t); //3  
  60. {指定时间分别是年、月、周的第几天}  
  61. w := DayOfTheYear(t); //140  
  62. w := DayOfTheMonth(t); //20  
  63. w := DayOfTheWeek(t); //3  
  64. w := SysUtils.DayOfWeek(t); //4; DayOfWeek 和 DayOfTheWeek 类似, 但算法不同  
  65. {指定时间分别是年、月、周、日的第几小时}  
  66. w := HourOfTheYear(t); //3347  
  67. w := HourOfTheMonth(t); //467  
  68. w := HourOfTheWeek(t); //59  
  69. w := HourOfTheDay(t); //11  
  70. {指定时间分别是年、月、周、日、时的第几分钟}  
  71. c := MinuteOfTheYear(t); //200842  
  72. w := MinuteOfTheMonth(t); //28042  
  73. w := MinuteOfTheWeek(t); //3562  
  74. w := MinuteOfTheDay(t); //682  
  75. w := MinuteOfTheHour(t); //22  
  76. {指定时间分别是年、月、周、日、时、分的第几秒}  
  77. c := SecondOfTheYear(t); //12050553  
  78. c := SecondOfTheMonth(t); //1682553  
  79. c := SecondOfTheWeek(t); //213753  
  80. c := SecondOfTheDay(t); //40953  
  81. w := SecondOfTheHour(t); //1353  
  82. w := SecondOfTheMinute(t); //33  
  83. {指定时间分别是年、月、周、日、时、分、秒的第几毫秒}  
  84. i := MilliSecondOfTheYear(t); //12050553000  
  85. c := MilliSecondOfTheMonth(t); //1682553000  
  86. c := MilliSecondOfTheWeek(t); //213753000  
  87. c := MilliSecondOfTheDay(t); //40953000  
  88. c := MilliSecondOfTheHour(t); //1353000  
  89. c := MilliSecondOfTheMinute(t); //33000  
  90. w := MilliSecondOfTheSecond(t); //0  
  91. end;  
  92. end.  
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

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