Delphi 获取星期的函数

本文整理自网络，侵删。

 
Function GetWeek( dtTarih: TDateTime ): String;
begin
 Case DayOfWeek( dtTarih ) of
 1 : Result := '星期日';
 2 : Result := '星期一';
 3 : Result := '星期二';
 4 : Result := '星期三';
 5 : Result := '星期四';
 6 : Result := '星期五';
 7 : Result := '星期六';
 End;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
ShowMessage( GetWeek( DateTimePicker1.DateTime ) );
end;

 

相关阅读 >>

Delphi 用 gdi+ 给图片添加花边的例子

Delphi 提升权限查找进程关闭进程单元

Delphi 调用极光推送服务端http api实例

Delphi 内存管理[3]

Delphi kbmmw sampleservice/sampleclient方式传输数据集

Delphi 简单的 "双缓冲" 绘图的例子

Delphi操作ini配置文件

Delphi 自动把combobox控件的内容里没有的内容加入列表中

Delphi tparallel并行性能测试

Delphi 关闭所有正在运行的程序

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

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