DayOfWeek 曜日 DayOfWeek 曜日
VBで DayOfWeek は曜日を返す関数です。Delphiも同じ名前の関数 DayOfWeek 関数を使用します。 渡す値は Integer型 で、１が日曜日で７が土曜日です。
| ■ DayOfWeekの使用例 |
procedure TForm1.Button1Click(Sender: TObject);
const
WeekName : array [0..6] of string = ('日','月','火','水','木','金','土');
var
datBirthday : TDateTime;
intWeek : integer;
begin
//曜日を求める日付
datBirthday := StrToDate('1998/9/23');
//何曜日？
intWeek := DayOfWeek(datBirthday);
//表示
Label1.Caption := DateToStr(datBirthDay) + 'は' +
WeekName[intWeek - 1] + '曜日です。';
end;
|