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 webbrowser载入自定义html内容并显示

Delphi:取得浏览器地址，网址(支持ie，firefox)

Delphi form工程创建

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi 播放声音 采用 异步方式，比较流畅

在Delphi xe6 firemonkey移动应用程序的twebbrowser html页面上运行javascript

Delphi复制整个文件夹(当然包括嵌套文件夹)

Delphi下spcomm串口编程

Delphi检查程序内存泄露 checkmem.pas

Delphi显示jpg、png、gif图片

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

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