获得系统当前时间日期和格式化时间

发布日期：2020/9/11

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥购买>>

获得系统当前时间

本例中主要应用了FormatDateTime函数此函数主要用于将日期时间格式化为指定的字符串利用该函数可以输出许多形式的时间格式

程序运行结果如图所示

图获得系统当前时间

主要代码如下

procedure TFormButtonClick(Sender: TObject);

begin

LabelCaption := FormatDateTime(hh:nn:ssNow());

end;

获得系统当前日期

当用户单击窗体中的按钮时程序会利用DateTimeToStr函数将当前日期转换为一个字符串显示在标签上

程序运行结果如图所示

图获得系统当前日期

主要代码如下

procedure TFormButtonClick(Sender: TObject);

begin

LabelCaption := DateTimeToStr(Date());

end;

将日期时间格式化为指定格式

本例将日期时间格式化为指定格式主要是应用了FormatDateTime函数使用该函数可以将当前日期时间格式化为自定义格式

程序运行结果如图所示

图将日期时间格式化为指定格式

主要代码如下

procedure TFormTimerTimer(Sender: TObject);

begin

LabelCaption := DateTimeToStr(now());

end;

procedure TFormButtonClick(Sender: TObject);

begin

LabelCaption := FormatDateTime(yyyy年mm月dd日 hh时nn分ss秒now());

end;