Delphi关于日期时间的操作（delphi 日期相减）

Delphi是一种面向对象的编程语言，它提供了一些内置的函数和类型来处理日期和时间的操作。本文将介绍一些常用的Delphi日期时间函数和类型，以及如何使用它们进行各种计算和格式化。

日期时间函数

Delphi中有一些预定义的函数，可以用来获取或设置系统的日期和时间，或者对日期和时间进行转换和比较。以下是一些常用的函数：

- Date：返回当前系统日期，类型为TDate。

- Time：返回当前系统时间，类型为TTime。

- Now：返回当前系统日期和时间，类型为TDateTime。

- IncDay：增加或减少一个日期的天数，返回一个新的日期。

- IncMonth：增加或减少一个日期的月数，返回一个新的日期。

- IncYear：增加或减少一个日期的年数，返回一个新的日期。

- EncodeDate：根据给定的年、月、日参数，创建一个日期值，类型为TDate。

- DecodeDate：根据给定的日期值，分解出年、月、日参数，类型为Integer。

- EncodeTime：根据给定的时、分、秒、毫秒参数，创建一个时间值，类型为TTime。

- DecodeTime：根据给定的时间值，分解出时、分、秒、毫秒参数，类型为Word。

- DateTimeToStr：将一个日期时间值转换为字符串，可以指定格式化字符串。

- StrToDateTime：将一个字符串转换为日期时间值，可以指定格式化字符串。

- CompareDate：比较两个日期值，返回-1、0或1，分别表示第一个日期小于、等于或大于第二个日期。

- CompareTime：比较两个时间值，返回-1、0或1，分别表示第一个时间小于、等于或大于第二个时间。

- CompareDateTime：比较两个日期时间值，返回-1、0或1，分别表示第一个日期时间小于、等于或大于第二个日期时间。

日期时间类型

Delphi中有一些预定义的类型，可以用来表示和存储日期和时间的数据。以下是一些常用的类型：

- TDate：表示一个日期值，范围是从0001年1月1日到9999年12月31日。它是一个浮点数，整数部分表示从0001年1月1日开始的天数，小数部分表示当天的时间（忽略）。

- TTime：表示一个时间值，范围是从00:00:00.000到23:59:59.999。它是一个浮点数，整数部分表示从00:00:00开始的小时数（忽略），小数部分表示当小时的分钟、秒和毫秒。

- TDateTime：表示一个日期时间值，范围是从0001年1月1日00:00:00.000到9999年12月31日23:59:59.999。它是一个浮点数，整数部分表示从0001年1月1日开始的天数，小数部分表示当天的时间。

- TTimeStamp：表示一个日期时间值，包含两个字段：Date和Time。Date字段是一个Longint类型，表示从1899年12月30日开始的天数。Time字段是一个Longint类型，表示从00:00:00开始的毫秒数。

示例代码

以下是一些使用Delphi日期时间函数和类型的示例代码：

//获取当前系统日期

var

d: TDate;

begin

d := Date;

ShowMessage('今天是' + DateToStr(d));

end;

//获取当前系统时间

var

t: TTime;

begin

t := Time;

ShowMessage('现在是' + TimeToStr(t));

end;

//获取当前系统日期和时间

var

dt: TDateTime;

begin

dt := Now;