Question

在delphi里怎样定义一个日期型的变量

Answer 1

delphi 语言里，与日期、时间有关的数据类型有三种：TDate、TTime 和 TDateTime。这三种数据类型的定义都在 System 单元中，如下所示：

从图中可以看出，其实这三种类型只是同一种数据类型的别名。

TDateTime 使用 Double 浮点数来记录日期时间，其中，浮点数的整数部分代表日期，小数点后面的部分代表时间。以下是关于 delphi 帮助文档中对这个数据类型的详细描述：

在 delphi 语言里，声明一个日期变量比较简单，使用 var 来定义一个变量，用 const 来定义一个常量，以下是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
const
  Birthday: TDate = 33208; //定义一个日期型常量
var
  aDate: TDateTime;        //定义一个日期时间型变量
  s: string;
begin
  aDate := Today; //获取今天的日期
  s := '今天是 ' + FormatDateTime('yyyy 年 M 月 d 日。',aDate) + #13#10 + #13#10 +
       '你出生于 ' + FormatDateTime('yyyy 年 M 月 d 日。',Birthday) + #13#10 + #13#10 +
       '恭喜你！你在地球上已经生活了 ' + IntToStr(DaysBetween(aDate,Birthday)) + ' 天！';
  MessageBox(Handle, PChar(s) ,'信息提示', MB_OK + MB_ICONINFORMATION);
end;

代码运行截图：