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

解決

ひでひで 2012-04-18 17:27:27 No: 41986 IP: 192.*.*.*

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

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

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

編集削除

Mr.XRAY 2012-04-18 18:10:22 No: 41987 IP: 192.*.*.*

こんにちは，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-18 21:09:50 No: 41988 IP: 192.*.*.*

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

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

編集削除

ひでひで 2012-04-20 15:51:59 No: 41989 IP: 192.*.*.*

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

編集削除