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基于prewitte算子的图像边缘检测

Delphi 在windows平台下实现进程隐藏

Delphi提取exe,dll文件的icon图标

模拟鼠标点击 查找窗口标题

Delphi 获取带分隔符字符串中的字段值

Delphi 双进程监控保护

Delphi读取excel文件-统计全部工作表中内容相同单元格出现次数

Delphi real控件 rm格式的播放器

Delphi 如何从dll中检索导出函数的列表

Delphi 判断字符串是否包含汉字

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

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