TDateTime

来源:互联网 时间:1970-01-01

8.6 日期时间类
8.6 日期时间类
此类函数和过程主要定义在SysUtils 和DateUtils 两个单元。
8.6.1 获取/合成日期/时间
function Now: TDateTime;
返回当前日期和时间。
function Date: TDateTime;
返回当前日期。
function Time: TDateTime;
返回当前时间。
function YearOf(const AValue: TDateTime): Word;
返回指定日期/时间的年份。类似的有:
MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf。
如果要一次取得其中的多项,可以使用:
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure DecodeDateTime(DateTime: TDateTime; var Year, Month, Day, Hour,
Minute, Second, MilliSecond: Word);
如果要合成一个日期/时间,可以使用:
function EncodeDate(Year, Month, Day: Word): TDateTime;
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function EncodeDateTime(Year, Month, Day, Hour, Minute, Second,
MilliSecond: Word): TDateTime;
procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);
更新DateTime 的日期部分。
procedure ReplaceTime(
var DateTime: TDateTime; const NewTime: TDateTime);
更新DateTime 的时间部分。类似的有:
RecodeYear/Month/Day 等等可以更新年份、月份、天等数据。
8.6.2 日期/时间和字符串的转换
function DateToStr(Date: TDateTime): string;
function TimeToStr(Time: TDateTime): string;
function DateTimeToStr(DateTime: TDateTime): string;
function StrToDate(const S: string): TDateTime;
function StrToTime(const S: string): TDateTime;
function StrToDateTime(const S: string): TDateTime;
8.6.3 日期/时间的运算
日期/时间数据在本质上是一个浮点数,在System 单元可以看到:
TDateTime = type Double;
也就是说,TDateTime 不过是Double 的别名。该数据的整数1 表示一天,如:
var
dt: TDateTime;
begin
dt := Now; {现在}
dt := dt + 1; {明天}
dt := dt + 0.25; {6 小时后,因为6 小时为0.25 天}
end;
VCL 提供以下函数和过程封装了这些原始运算:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
对年份运算。类似的有IncMonth、IncDay 等。ANumberOfYears 可以是正数或负数。
function WeeksInYear(const AValue: TDateTime): Word;
一年中有多少周。
  
function DaysInYear(const AValue: TDateTime): Word;
一年中有多少天。
function IsInLeapYear(const AValue: TDateTime): Boolean;或者
function IsLeapYear(Year: Word): Boolean;
是否是闰年。
function YearSpan(const ANow, AThen: TDateTime): Double;
两个日期相差多少年。它假设一年为365.25 天。
function YearsBetween(const ANow, AThen: TDateTime): Integer;
它是Trunc(YearSpan)(直接取整数,不四舍五入)的结果。
类似的有MonthSpan/sBetween、DaySpan/sBetween、WeekSpan/sBetween、HourSpan/sBetween 等。
function SystemTimeToDateTime(const SystemTime: TSystemTime):
TDateTime;
将一个系统类型时间转化为TDateTime 类型。
可用API 函数GetSystemTime(SystemTime: PSystemTime)取得系统时间。


相关阅读:
Top