Delphi6取当前时间

在Delphi 6中，获取当前时间可以通过使用Now函数或DateTime函数来实现。这两种方法都可以得到当前的日期和时间，但是它们返回的数据类型略有不同。

使用Now函数

Now函数返回一个TDateTime类型的值，它包含了当前的日期和时间。

var

CurrentTime: TDateTime;

begin

CurrentTime := Now;

ShowMessage(DateTimeToStr(CurrentTime)); // 将TDateTime转换为字符串形式显示

end;

使用DateTime函数

如果你只需要当前的日期，可以使用Date函数；如果你只需要当前的时间，可以使用Time函数。但是，如果你确实想用一个函数来同时获取日期和时间，可以使用DateTime函数，它实际上是等同于Now函数的。

var

CurrentDateTime: TDateTime;

begin

CurrentDateTime := DateTime; // 或者使用 Now 也是可以的

ShowMessage(DateTimeToStr(CurrentDateTime)); // 将TDateTime转换为字符串形式显示

end;

格式化时间

在Delphi中，你可以使用DateTimeToStr函数将TDateTime值转换为字符串，以便于显示或记录。例如，如果你想以特定的格式显示时间（比如年-月-日 时:分:秒），你可以这样做：

var

FormattedTime: string;

begin

FormattedTime := FormatDateTime('yyyy-mm-dd hh:nn:ss', Now); // 使用Now或DateTime都可以

ShowMessage(FormattedTime); // 显示格式化的时间字符串

end;

获取当前日期或时间部分

如果你只需要当前日期或时间的某个部分（例如，只获取当前的小时数），你可以使用Date和Time函数分别获取当前日期和时间的部分，然后使用Hour, Minute, Second等属性来获取具体的时间部分。

var

CurrentHour: Word;

begin

CurrentHour := Hour(Time); // 获取当前小时数（0-23）

ShowMessage('Current hour: ' + IntToStr(CurrentHour));

end;