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 rtf文件转txt函数

Delphi strtodatetime 这个函数在win7下出错

Delphi里参数修饰符const、var、out的作用分别是什么?

Delphi byte类型算术运算

Delphi idftp ditdirectory未定义

Delphi ado组件动态连接access数据库

Delphi fmx自定义对话框样式，多屏幕布局

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi html转义

Delphi 检测程序有没有被dll注入的代码

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

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