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用邻域平均法对图像进行平滑处理

Delphi tscreen 类 - 通过 screen 更换光标

Delphi android权限

Delphi windows 编程[12] - 菜单与菜单资源(1-3)

Delphi xe7 新的并行库 system.threading

Delphi 字符串保存为 txt文件

delph 自带url编码函数 tnetencoding

Delphi跨平台检测网络连接状态

Delphi like 通配符的使用

Delphi 判断字符是否是汉字

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

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