ｎ日後の日付の計算について (ID:41987)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは，Mr.XRAYです． こんな感じでしょうか．他にもいろい方法があると思います． implementation uses DateUtils; {$R *.dfm} // usesにDateUtilsを追加しておくこと procedure TForm1.Button1Click(Sender: TObject); var A : Integer; Date1 : TDate; Date2 : TDate; begin A := 20120105; //Aの値を日付型に変換 Date1 := StrToDate(FormatFloat('0000/00/00', A)); //ここでは10日後の日付を計算 Date2 := IncDay(Date1, 10); //結果の日付を形式を指定して表示 ShowMessage(FormatDateTime('10日後は，yyyy年mm月dd日だよ〜', Date2)); end;