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 以低用户权限启动一个进程.比如vista或者win7中的ie

Delphi 解决strtodatetime（）不是有效日期类型的问题

Delphi添加任务栏右键菜单

Delphi idhttp解决获取utf-8网页中文乱码问题

Delphi清除ie临时文件,历史记录

Delphi 数据类型列表

Delphi 文件crc和md5校验

Delphi有关asqlite控件支持中文路径的解决方案

Delphi padl 处理字符串的函数

Delphi读取android短信信息

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

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