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 检查字符串是不是 包含 中文和获取中文字符个数

在 Delphi 中调用 javascript

Delphi禁用,启用网卡

Delphi dateutils.ispm - 判断时间是否是下午

Delphi 字符串对比比较

Delphi xe5 for android 退出提示

Delphi 三个消息函数的威力

Delphi 把字符串复制到剪贴板

Delphi fdquery 判断记录为空

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

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