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研究之驱动开发篇（六）--利用section与用户模式程

Delphi winapi: getparent、setparent、movewindow - 获取、指定父窗口和移动窗口

Delphi 禁用启用网卡

Delphi 获取公网ip地址

Delphi adoquery filter使用

Delphi 控制窗口显示隐藏

Delphi 通过u盘方式加密

Delphi 10 seattle中录制音频

Delphi trestclient + trestrequest + trestresponse

Delphi 新版 thttpclient组件同步下载文件方法

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

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