안녕하세요?
김기원입니다.
먼저 어제 올린 시간문제에 대해서 해결을 했습니다.
저와 같은 문제에 봉착을 했을 때를 위해 이렇게 글을 올립니다.

Edit1.Text 가 0900 (여기서 0900 은 09시 00분을 의미합니다.)
Edit2.Text 가 1600 (여기서 1600 은 오후 04시 00분은 아시겠죠?)

여기서 제가 쓸 함수는 StrToTime 함수입니다.
이 함수는 시간 중간에 : 가 붙습니다.
모르시는 분은 책이나 함수를 찾아보시고요...

즉, Edit1.Text 는 StrToTime(Copy(Edit1.Text,1,2) + ':' +
                            Copy(Edit1.Text,3,2)) 를 해줍니다.
이러면 Edit1.Text는 StrToTime이라는 함수에 맞게 시간으로
변환이 됩니다.

여기서는 Edit1.Text 에서부터 Edit2.Text 의 시간을 뺀 시간이
바로 근무시간이 되니까.... Edit3.Text에 넣어보겠습니다.

위에서 뺀 시간을 Edit3.Text에 넣어보시면 오전 07시 00분 이라는
값이 나오게 됩니다.

이것을 다시 FormatDateTime함수를 써서 바꿔주시면 되는데
아래의 소스를 보시면 될겁니다.
전체 소스는 다음과 같습니다.

Edit3.Text := FormatDateTime('hhnn', (StrToTime(Copy(Edit1.Text,1,2) + ':' +
                                      StrToTime(Copy(Edit1.Text,3,2)) -
                                     (StrToTime(Copy(Edit2.Text,1,2) + ':' +
                                      StrToTime(Copy(Edit2.Text,3,2)) );

위와 같이 하면 0700 이라는 값이 나오게 됩니다.
한번해 보세요....

언제든지 쓰실 수 있을 지 모르니까요?
그럼, 좋은 하루들 되세요.....