Q&A

  • 고수님들!!제발 도와 주세여~~
안냐심까!

지는 델파이를 첨 공부하는 학상인대요..

날짜 계산에 대해서 한가지 궁금한게 있어서여..

평일과 휴일 그리구 공휴일 계산하는 방법 아시는분 있으시면 좀 가르쳐주세여~

간절히 부탁드립니다..꾸벅..

중요하거든요..꼭 좀 부탁드립니다.

1  COMMENTS
  • Profile
    프리지아 2000.10.20 03:30
    초보초보 wrote:

    > 안냐심까!

    > 지는 델파이를 첨 공부하는 학상인대요..

    > 날짜 계산에 대해서 한가지 궁금한게 있어서여..

    > 평일과 휴일 그리구 공휴일 계산하는 방법 아시는분 있으시면 좀 가르쳐주세여~

    > 간절히 부탁드립니다..꾸벅..

    > 중요하거든요..꼭 좀 부탁드립니다.



    제가 방금 테스트한 소스 올려드립니다..

    참고 하세요..



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    ShowMessage(GetWeekName(now));

    end;



    function TForm1.GetWeekName(currdate: TDateTime): string;

    const

    WeekName : array[0..6] of string = ('일','월','화','수','목','금','토' );

    begin

    result := WeekName[DayofWeek(currdate)] + '요일'



    end;

    end.