5,943
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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;
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;
