delphi日期数、日期加减.docVIP

delphi日期函数、日期加减 2008-02-29 09:12 Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的。 function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime; // function IncMonth is in SysUtils function IncWeek(const AValue: TDateTime;const ANumberOfWeeks: Integer = 1): TDateTime; function IncDay(const AValue: TDateTime;const ANumberOfDays: Integer = 1): TDateTime; function IncHour(const AValue: TDateTime;const ANumberOfHours: Int64 = 1): TDateTime; function IncMinute(const AValue: TDateTime;const ANumberOfMinutes: Int64 = 1): TDateTime; function IncSecond(const AValue: TDateTime;const ANumberOfSeconds: Int64 = 1): TDateTime; function IncMilliSecond(const AValue: TDateTime;const ANumberOfMilliSeconds: Int64 = 1): TDateTime; Day 开头的函数 ● Unit DateUtils function DateOf(const Avalue: TDateTime): TDateTime; 描述 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是 2003/03/19 10:50:49 ●function DateTimeToStr(DateTime: TDateTime): string; 描述 DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个 字符串，使用给定的全局变量 ShortDateFormat 的格式，时间部分按照 给定的全局变量 LongTimeFormat 的格式。 其中 DateTime 为零的部分将不会显示出来。 例如： ShortDateFormat:=’yyyy mm dd’; showmessage(DateTimetostr((now()))); 你将得到：2003 03 19 10:50:49 ●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); 描述： DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式 转化成字符串，并保存在Result中。 对于Format的格式类型，请看 Date-Time format strings 的帮助。 例如： DateTimeToString(result,’yyyy mm dd’,now()); 那么 result的结果为：2003 03 19 10:50:49 ●procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime); 描述： 有时为了调用API函数来使用系统时间，你可以使用 DateTimeToSystemTime 方法，来将一个 TDateTime 类型的时间变量转换成一个 TSystemTime 类型的 系统时间。 ●function DateTimeToUnix(const Avalue: TDateTime ): Int64; 描述： 使用 DateTimeToUnix 函数来将一个 TDateTime 型时间变量转换成一个相应的 Unix 格式 的日期和时间。 Unix date-and-tim