delphi获取星期函数

本文整理自网络，侵删。

 delphi获取星期函数

function GetWeek: string;
var
mytime:SYSTEMTIME;
begin
GetLocalTime(mytime);
case mytime.wDayOfWeek of
0: Result:='星期日';
1: Result:='星期一';
2: Result:='星期二';
3: Result:='星期三';
4: Result:='星期四';
5: Result:='星期五';
6: Result:='星期六';
end;
end;

 

相关阅读 >>

Delphi 安卓获得设备 id

Delphi access数据库 主键

Delphi10.2.3解决的一个json问题

Delphi 获取memo文本光标的位置

Delphi xe ioutils 单元(1): 初识 tdirectory.getfiles

Delphi tdownloadurl下载网络文件

Delphi ifdef 另类用法

Delphi中quotedstr介绍及使用

Delphi 编写activex控件（ocx控件）的知识和样例

Delphi idhttp使用代理ip

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

转载请注明出处：木庄网络博客 » delphi获取星期函数