참고하세요

특정날짜의 1개월 후의 날짜를 계산하는 것과 기간을 계산하는 것입니다.

윤년도 함께 Check 하는것 같아서 올립니다.procedure TForm1.Button1Click(Sender: TObject);

var

tt1,tt2:Tdatetime;

ii:integer;

FristStamp,LastStamp:Ttimestamp;

begin

//다음달 구하기

tt1:=strtodate(Edit1.Text);

if radiobutton1.Checked then ii:= 1;

if radiobutton2.Checked then ii:= 2;

if radiobutton3.Checked then ii:= 3;

if radiobutton4.Checked then ii:= 4;

if radiobutton5.Checked then ii:= 5;

if radiobutton6.Checked then ii:= 6;

if radiobutton7.Checked then ii:= 7;

if radiobutton8.Checked then ii:= 8;

if radiobutton9.Checked then ii:= 9;

if radiobutton10.Checked then ii:= 10;

if radiobutton11.Checked then ii:= 11;

if radiobutton12.Checked then ii:= 12;

tt2:=incmonth(tt1,ii);//sysutils.pas에 있는 함수라고 하는군요

Edit2.Text := formatdatetime('yyyy-mm-dd',tt2);



//날짜 기간 구하기

Friststamp := Datetimetotimestamp(tt1);

Laststamp := Datetimetotimestamp(tt2);

Edit3.Text := inttostr(Laststamp.date-friststamp.date);



end;



end.