초보딱지 wrote:

> 음... 시간에 관한 질문입니다..

> 시간에 관한거는 오늘 첨써보는거라서... ㅡㅡ;

> 폼에 문장을 한 20일주기로 매일 바뀌게하고 싶거든요,...

> 예를 들어 하루는 "안녕하세요 반갑습니다." 그 다음날은 "좋은 아침입니다."등등...

> 이런식으로 20개의 문장들이 20일 주기로 하루하루 바뀌게 하고싶습니다..

> 방법 좀 알려주세요...

> 자세한 설명도 부탁드립니다..

> 초보거든요....ㅡㅡ;

>

> 그럼 모두들 좋은 하루되세요...

////////////////////////////////////////////////////////////////

시작일자와 현일자를 TDateTime형으로 변환해 차이값을 이용 19로 나눠 계산해보세요

procedure TForm1.Button1Click(Sender: TObject);

var

HYear, HMonth, HDay, DiffDay: Word;

HDate: TDateTime;

begin

//시작 날짜지정

HYear := StrToint(Edit1.Text);

HMonth:= StrToint(Edit2.Text);

HDay := StrToint(Edit3.Text);

HDate := EncodeDate(HYear, HMonth, HDay);

//현재일자와의 차이

DiffDay := Trunc(ABS(now-HDate));

//20일 주기로 나눔

Edit4.Text := intTostr((DiffDay mod 19)+1) + '번 문장입니다';

end;