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 inc函数和dec函数的用法

Delphi 校验注册码时的技巧

Delphi 使用代理服务器

Delphi xe5调用外部扫描程序――谷歌 zxing

Delphi ado组件动态连接access数据库

Delphi bmp转换png

Delphi 数字转excel字母列序号

Delphi xe vcl - tlinklabel(链接标签)

Delphi制作手机签名app（windows同样适用）

Delphi 单元文件结构

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

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