ｎ日後の日付の計算について

解決

ひでひで 2012-04-19 02:27:27 No: 41986

はじめまして、Delphiを勉強中の初心者です。
サンプルで友人からもらったソースを参考に勉強していますが
下記のようなことを行いたいのですが、お教えいただければ助かります。

変数1= 20120105 でinteger型で日付が入っています
この変数を利用してn日後の日付を計算したいのですが

ご存知の方よろしくお願いいたします

Mr.XRAY 2012-04-19 03:10:22 No: 41987

こんにちは，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;

ひでひで 2012-04-19 06:09:50 No: 41988

Mr.XRAYさん
ありがとうございました。

上手くいきました
もっと勉強します

ひでひで 2012-04-21 00:51:59 No: 41989

解決しました
ありがとうございました