我奇怪的事难道有一个isPM就没有一个 ISAM,外国人的思维真奇怪 肯定是认为 ISAM=not isPM 所以少写了一个,难道外国的日子是用PM开始? unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var t1,t2: TDateTime; b1,b2: Boolean;begin t1 := ...

DateUtils.CompareDate DateUtils.CompareDateTime DateUtils.CompareTime DateUtils.DateOf DateUtils.DateTimeToJulianDate DateUtils.DateTimeToModifiedJulianDate DateUtils.DateTimeToUnix DateUtils.DayOf DateUtils.DayOfTheMonth DateUtils.DayOfTheWeek DateUtils.DayOfTheYear DateUtils.DaysBetween DateUtils.DaysInAMonth DateUtils.DaysInAYear DateUtils.DaysInMonth DateUtils.DaysInYear DateUtils.DaySpan DateUtils.DecodeDateDay DateUtils.DecodeDateMonthWeek DateUtils.DecodeDateTime Da...

SysUtils.IsLeapYear();DateUtils.IsInLeapYear(); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var b: Boolean;begin b := IsLeapYear(2009); //False b := IsLeapYear(2012); //True b := IsInLeapYear(StrToDateTime('2009-1-1')...

DateUtils.IsValidDateTimeDateUtils.IsValidDateDateUtils.IsValidTimeDateUtils.IsValidDateDayDateUtils.IsValidDateWeekDateUtils.IsValidDateMonthWeek//可用下面几个过程抛出异常:DateUtils.InvalidDateDayErrorDateUtils.InvalidDateMonthWeekErrorDateUtils.InvalidDateTimeErrorDateUtils.InvalidDateWeekErrorDateUtils.InvalidDayOfWeekInMonthError unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = clas...

DateUtils.RecodeDateTime();DateUtils.RecodeDate();DateUtils.RecodeTime();DateUtils.RecodeYear();DateUtils.RecodeMonth();DateUtils.RecodeDay();DateUtils.RecodeHour();DateUtils.RecodeMinute();DateUtils.RecodeSecond();DateUtils.RecodeMilliSecond();DateUtils.TryRecodeDateTime();

SysUtils.DecodeDate();SysUtils.DecodeDateFully();SysUtils.DecodeTime();DateUtils.DecodeDateTime();DateUtils.DecodeDateDay();DateUtils.DecodeDateWeek();DateUtils.DecodeDateMonthWeek();DateUtils.DecodeDayOfWeekInMonth(); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses DateUtils;proce...

SysUtils.EncodeDateTimeSysUtils.EncodeDateSysUtils.EncodeTimeDateUtils.EncodeDateDayDateUtils.EncodeDateMonthWeekDateUtils.EncodeDateTimeDateUtils.EncodeDateWeekDateUtils.EncodeDayOfWeekInMonthDateUtils.TryEncodeDateTimeDateUtils.TryEncodeDateDayDateUtils.TryEncodeDateWeekDateUtils.TryEncodeDateMonthWeekDateUtils.TryEncodeDayOfWeekInMonth unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 =...

DateUtils.WithinPastYears();DateUtils.WithinPastMonths();DateUtils.WithinPastWeeks();DateUtils.WithinPastDays();DateUtils.WithinPastHours();DateUtils.WithinPastMinutes();DateUtils.WithinPastSeconds();DateUtils.WithinPastMilliSeconds(); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}us...

DateUtils.DaysInYear();DateUtils.DaysInMonth();DateUtils.DaysInAYear();DateUtils.DaysInAMonth();DateUtils.WeeksInYear();DateUtils.WeeksInAYear(); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var dt: TDateTime; w: Word;begi...

{参数是指定的年、月、周、日}DateUtils.StartOfAYear DateUtils.StartOfAMonthDateUtils.StartOfAWeek DateUtils.StartOfADay{参数是 TDateTime}DateUtils.StartOfTheYear DateUtils.StartOfTheMonthDateUtils.StartOfTheWeek DateUtils.StartOfTheDay{参数是指定的年、月、周、日}DateUtils.EndOfAYear DateUtils.EndOfAMonthDateUtils.EndOfAWeek DateUtils.EndOfADay{参数是 TDateTime}DateUtils.EndOfTheYearDateUtils.EndOfTheMonthDateUtils.EndOfTheWeekDateUtils.EndOfTheDay

DateUtils.IncYear();DateUtils.IncMonth();DateUtils.IncWeek();DateUtils.IncDay();DateUtils.IncHour();DateUtils.IncMinute();DateUtils.IncSecond();DateUtils.IncMilliSecond(); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var ...

DateUtils.YearsBetween();DateUtils.MonthsBetween();DateUtils.WeeksBetween();DateUtils.DaysBetween();DateUtils.HoursBetween();DateUtils.MinutesBetween();DateUtils.SecondsBetween();DateUtils.MilliSecondsBetween();DateUtils.YearSpan();DateUtils.MonthSpan();DateUtils.WeekSpan();DateUtils.DaySpan();DateUtils.HourSpan();DateUtils.MinuteSpan();DateUtils.SecondSpan();DateUtils.MilliSecondSpan(); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co...