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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.037997961044312 seconds