DateSerial
数値＞日付 DateSerial
数値＞日付
DateSerial関数は年月日を数値で与えると日付型で返す関数です。 Delphiでは EncodeDate 関数を使用します。 渡す値は Word型 です。時間を結合するには EncodeTime 関数を使用します。
| ■ EncodeDateの使用例 |
procedure TForm1.Button1Click(Sender: TObject);
var
datBirthday : TDateTime;
YY,MM,DD : word;
begin
//年月日を設定
YY := 1973;
MM := 12;
DD := 28;
//日付型に変換
datBirthDay := EncodeDate(YY,MM,DD);
//表示
Label1.Caption := DateToStr(datBirthDay);
end;
|