안녕하세요 김동원입니다.



질문은 날짜를 얘기 하셨는데

예제를 보니 월을 바꾸는걸로 되어 있네요.

날짜를 바꾸는 것은 강인규님의 답변대로 하면

되는거고요..

달을 바꾸는 것은

그달의 마지막날짜를 구하는 함수를 만들어서

그 달의 날짜를 순차적으로 빼 가면서 하시면 됩니다.



아니면 EncodeDate, DecodeDate 함수를 이용해서

하는 방법이 있습니다.

단순히 월만 변화시킨 다면 후자가 쉬울듯 하네요.



델파이의 예제를 올립니다. 참조하세요

procedure TForm1.Button1Click(Sender: TObject);



var

MyDate: TDateTime;

begin

MyDate := EncodeDate(83, 12, 31);

Label1.Caption := DateToStr(MyDate);

end;



procedure TForm1.Button1Click(Sender: TObject);



var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '

+ IntToStr(Month) + ' of Year ' + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '

+ IntToStr(Hour);

end;





mickyblue wrote:

> 위에 하나 아래에 하나 form에 edit 만들고 중간에 버튼만들고 위 에디트에 1을 치고 버튼(실행)누르면 오늘날짜가 아래 에디트에 뜨고 2는 어제 3은 어제 그제 날짜(년, 월)가 떠야하는데 시작한지가 2틀정도 됩니다. 약소하나마 제실력으로 짜본 소스니까 한번 봐주시고 틀린점 지적해주세여. 안되면 전 짤릴거 같아여...부탁합니다.

>

>

>

> unit Unit1;unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

>

> type

> TForm1 = class(TForm)

> Edit1: TEdit;

> Button1: TButton;

> Edit2: TEdit;

> procedure TForm1.Button1click(Send:TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> Sung : Integer;

> begin

> Sung := IntTostr(Edit1.Text);

>

> If Sung = 1 Then

> Edit2.Caption := '2000년9월'

> Else If Sung 2 Then

> Edit2.Caption := '2000년8월'

> Else If Sung 3 Then

> Edit2.Caption := '2000년7월'

> end

>

>

>

procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer;

begin

i := strtoint(edit1.Text)-1;

Edit2.Text := FormatDateTime('yyyy''년''mm''월',now-i);

end;

100일이고 사용할 수 있습니다.

즐프하세여~~





mickyblue wrote:

> 위에 하나 아래에 하나 form에 edit 만들고 중간에 버튼만들고 위 에디트에 1을 치고 버튼(실행)누르면 오늘날짜가 아래 에디트에 뜨고 2는 어제 3은 어제 그제 날짜(년, 월)가 떠야하는데 시작한지가 2틀정도 됩니다. 약소하나마 제실력으로 짜본 소스니까 한번 봐주시고 틀린점 지적해주세여. 안되면 전 짤릴거 같아여...부탁합니다.

>

>

>

> unit Unit1;unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

>

> type

> TForm1 = class(TForm)

> Edit1: TEdit;

> Button1: TButton;

> Edit2: TEdit;

> procedure TForm1.Button1click(Send:TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> Sung : Integer;

> begin

> Sung := IntTostr(Edit1.Text);

>

> If Sung = 1 Then

> Edit2.Caption := '2000년9월'

> Else If Sung 2 Then

> Edit2.Caption := '2000년8월'

> Else If Sung 3 Then

> Edit2.Caption := '2000년7월'

> end

>

>

>