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的tservice 服务路径获取 dll中获取文件路径

Delphi 回车符 换行符

Delphi [函数] unicode 检查字符串是否含中文字

Delphi eof 判断文件指针是否移动到了文件未尾

Delphi 根据进程名得到进程所在路径

Delphi 遍例一个外部程序中所有的类名

Delphi中单独编译pas生成dcu文件

Delphi初级教程之Delphi断点调试

Delphi与sql server存储过程编程详解

Delphi 内进行音量控制及静音

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

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