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;

 

相关阅读 >>

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi xe android-uri-管理联系人uri

Delphi idhttp post 支持 gzip 解压缩

Delphi idhttp1 获取网页代码

Delphi xe5发送短信以及读取短信代码

Delphi firedac 下的 sqlite [1] - 前言

Delphi xe tparallel.for的用法

Delphi的对象注销方法destroy和free的区别

Delphi 模拟网站验证码

Delphi xe5 android toast

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

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