Q&A

  • 매달 증가시키기..
1900년대부터 2002년까지 매달의 1일을 얻어올려고 합니다.

ADate, AYear, AMonth  : string;
i,k                      : integer;

for i := 1900 to 2002 do begin
   AYear := inttostr(i);
   while k < 13 do begin
     AMonth := formatfloat('00',k);
     ADate := Ayear + '-' + AMonth + '-' + '01';
     Memo1.Lines.Add(ADate);
     inc(k);
     if k > 12 then begin
        k := 1;
        break;
     end;
   end;
end;

위에것은 제가 짠건데 넘 무식한거 같아서요..
다른방법이 있으면 알려주세요..
답변기다리겠습니다.  
이 게시물을
1  COMMENTS
  • Profile
    최용일 • 2003.05.21 00:02
    안녕하세요. 최용일입니다.

    걍 for문 2번쓰시면 될것같네요...

    var
        Year, Month: Integer;
        DateStr: string;
    begin
        for Year := 1900 to 1901 do
        begin
            for Month := 1 to 12 do
            begin
                DateStr := Format('%d-%s-01', [Year, FormatFloat('00', Month)]);
                Memo1.Lines.Add(DateStr);
            end;
        end;
    end;

    ^^ 항상 즐코하세요...
←First Page
652 653 654 655 656 657 658 659 660 661
Last Page→
한델 로그인 하기