Q&A

  • 간단한 예제 부탁드립니다~


시스템에서 받은 시간을 가지고...

일한 시간의 양을 구하려고 합니다



InTime := TimeToStr(Time); //출근시간

OutTime := TimeToStr(Time); //퇴근시간



이렇게 되면 두 변수를 가지고 근무 한 시간을 구하고..

또 근무외 시간 (otherTime)도 구해야 하는데..



이 세 변수를 varchar로 지정했거든요..



타입형 에러가 자꾸나서요~ --;

구현하는 간단한 예제 좀 올려주세요~고수님~^^





이 게시물을
1  COMMENTS
  • Profile
    빈거울 • 2001.05.17 02:58
    이렇게 하면 시간 차이를 구할 수 있습니다..

    var

    Test : TDateTime;

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

    begin

    Test := OutTime - InTime;

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

    Edit1.Text := IntToStr(Hour) + ' : ' + IntToStr(Min) + ' : ' + IntToStr(Sec);





    진짜초보 wrote:

    >

    > 시스템에서 받은 시간을 가지고...

    > 일한 시간의 양을 구하려고 합니다

    >

    > InTime := TimeToStr(Time); //출근시간

    > OutTime := TimeToStr(Time); //퇴근시간

    >

    > 이렇게 되면 두 변수를 가지고 근무 한 시간을 구하고..

    > 또 근무외 시간 (otherTime)도 구해야 하는데..

    >

    > 이 세 변수를 varchar로 지정했거든요..

    >

    > 타입형 에러가 자꾸나서요~ --;

    > 구현하는 간단한 예제 좀 올려주세요~고수님~^^

    >

    >

←First Page
1778 1779 1780 1781 1782 1783 1784 1785 1786 1787
Last Page→
한델 로그인 하기