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

SysUtils.DayOfWeek();



DateUtils.MonthOfTheYear();

DateUtils.WeekOfTheYear();

DateUtils.WeekOfTheMonth();

DateUtils.NthDayOfWeek();

DateUtils.DayOfTheYear();

DateUtils.DayOfTheMonth();

DateUtils.DayOfTheWeek();

DateUtils.SysUtils.DayOfWeek();



DateUtils.HourOfTheYear();

DateUtils.HourOfTheMonth();

DateUtils.HourOfTheWeek();

DateUtils.HourOfTheDay();



DateUtils.MinuteOfTheYear();

DateUtils.MinuteOfTheMonth();

DateUtils.MinuteOfTheWeek();

DateUtils.MinuteOfTheDay();

DateUtils.MinuteOfTheHour();



DateUtils.SecondOfTheYear();

DateUtils.SecondOfTheMonth();

DateUtils.SecondOfTheWeek();

DateUtils.SecondOfTheDay();

DateUtils.SecondOfTheHour();

DateUtils.SecondOfTheMinute();



DateUtils.MilliSecondOfTheYear();

DateUtils.MilliSecondOfTheMonth();

DateUtils.MilliSecondOfTheWeek();

DateUtils.MilliSecondOfTheDay();

DateUtils.MilliSecondOfTheHour();

DateUtils.MilliSecondOfTheMinute();

DateUtils.MilliSecondOfTheSecond();


 
   

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses DateUtils;



procedure TForm1.FormCreate(Sender: TObject);

var

  t: TDateTime;

  w: Word;

  c: Cardinal;

  i: Int64;

begin

  t := StrToDateTime('2009-5-20 11:22:33');



  {指定时间是年度第几月份}

  w := MonthOfTheYear(t);  //5



  {指定时间分别是年、月的第几周}

  w := WeekOfTheYear(t);  //21

  w := WeekOfTheMonth(t); //3

  w := NthDayOfWeek(t);   //3



  {指定时间分别是年、月、周的第几天}

  w := DayOfTheYear(t);   //140

  w := DayOfTheMonth(t);  //20

  w := DayOfTheWeek(t);   //3

  w := SysUtils.DayOfWeek(t); //4; DayOfWeek 和 DayOfTheWeek 类似, 但算法不同



  {指定时间分别是年、月、周、日的第几小时}

  w := HourOfTheYear(t);  //3347

  w := HourOfTheMonth(t); //467

  w := HourOfTheWeek(t);  //59

  w := HourOfTheDay(t);   //11



  {指定时间分别是年、月、周、日、时的第几分钟}

  c := MinuteOfTheYear(t);  //200842

  w := MinuteOfTheMonth(t); //28042

  w := MinuteOfTheWeek(t);  //3562

  w := MinuteOfTheDay(t);   //682

  w := MinuteOfTheHour(t);  //22



  {指定时间分别是年、月、周、日、时、分的第几秒}

  c := SecondOfTheYear(t);   //12050553

  c := SecondOfTheMonth(t);  //1682553

  c := SecondOfTheWeek(t);   //213753

  c := SecondOfTheDay(t);    //40953

  w := SecondOfTheHour(t);   //1353

  w := SecondOfTheMinute(t); //33



  {指定时间分别是年、月、周、日、时、分、秒的第几毫秒}

  i := MilliSecondOfTheYear(t);   //12050553000

  c := MilliSecondOfTheMonth(t);  //1682553000

  c := MilliSecondOfTheWeek(t);   //213753000

  c := MilliSecondOfTheDay(t);    //40953000

  c := MilliSecondOfTheHour(t);   //1353000

  c := MilliSecondOfTheMinute(t); //33000

  w := MilliSecondOfTheSecond(t); //0

end;



end.

---

DateUtils-Function

---