请问哪个函数知道星期几

grace009 2001-08-15 08:31:15
请问哪个函数知道星期几
...全文
86 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
DD88 2001-08-15
  • 打赏
  • 举报
回复
up
grace009 2001-08-15
  • 打赏
  • 举报
回复
谢谢
DD88 2001-08-15
  • 打赏
  • 举报
回复
gZ
comanche 2001-08-15
  • 打赏
  • 举报
回复
还迟一步....
Crob 2001-08-15
  • 打赏
  • 举报
回复
function DayOfWeek(Date: TDateTime): Integer;


procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;

5,378

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧