Delphi 获取星期几

本文整理自网络，侵删。

 
  if Pos('星期',FormatDateTime('ddd',Now))=0 then
   Caption := FormatDateTime('yyyy年mm月dd日',Now)+'星期'+FormatDateTime('ddd',Now);

 

相关阅读 >>

Delphi tstream详解

Delphi 时间差函数及部分字符串与日期时间相互转换的函数

Delphi listview排序

Delphi 下载整个网站图片例子

Delphi excel表格数据导入数据库

Delphi 内存管理[6]

Delphi 两个exe之间共享数据

Delphi 检查注册表键、键值是否存在

Delphi 判断文件扩展名函数

Delphi 设置系统静音取消系统静音

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取星期几