레마 wrote:

> 안녕하세요?

> 현재월에서 한달을 뺀 달만을 변수로 받고싶은데.. 어떻게...

functaion DecMonth(ADate: TDateTime): Word;

var

TempDate: TDateTime;

Year, Month, Day: Word;

begin

TempDate := IncMonth(ADate, -1); //한달 뺌.

DecodeDate(TempDate, Year, Month, Day);

Result := Month;

end;



testMonth := DecMonth(Date);



참고하세요.

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;





procedure TForm1.Button1Click(Sender: TObject);



var

MyDate: TDateTime;

begin

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

Label1.Caption := DateToStr(MyDate);

end;



단 3월 31일 에서 1달 제외하면 어떤한 반응이 나올까요?



그것 테스트 하세요...



그러 이만..



레마 wrote:

> 안녕하세요?

> 현재월에서 한달을 뺀 달만을 변수로 받고싶은데.. 어떻게...

이렇게 하면 어떨까요?



procedure ....

var Year,Month,Day : Word;

MonthBefore : TDate;

begin

DecodeDate(now,Year,Month,Day);

if Month = 1 then

begin

Year := Year -1;

Month := 12;

end

else

Month := Month - 1;



MonthBefore := Encode(Year,Month,Day);

end;



비슷하게 쓰시면 될꺼 같은데...



그럼 수고하세요 ^^







레마 wrote:

> 안녕하세요?

> 현재월에서 한달을 뺀 달만을 변수로 받고싶은데.. 어떻게...