DatePart 日付分解

DatePart関数は指定された日付の年・月・日 (他にもたくさんある) を返します。 Delphiでは DecodeDate手続きを使用します。
この手続きは指定された日付を年・月・日に分解します。また時間を分解する場合は DecodeTime手続きを使用します。

■ DecodeDateの使用例
  procedure TForm1.Button1Click(Sender: TObject);
  var
    datNow    : TDateTime;
    YY,MM,DD  : word;
  begin
    //今日の日付を取得
    datNow    :=  Now;
    //年月日に分解
    DecodeDate(datNow,YY,MM,DD);
    //ラベルに表示
    Label1.Caption  :=  IntToStr(YY) + '' + IntToStr(MM) + '' + IntToStr(DD) + ''; 
  end;

関連項目
CDate 型キャスト
Date 日付
DateSerial 数値>日付
Format 書式
Now 日付/時刻