Q&A
- 고수님들...스트링형 타임의 계산..
sSql := 'select Id, InTime, Date'
+ ' From Pay'
+ ' where id = "'
+ sId+ '" and Date = "'+sDate+'"';
Query1.Sql.Clear;
Query1.Sql.Add(sSql);
Query1.Open;
if Query1.RecordCount <> 0 then
Begin
if trim(sId) = Query1.FieldByName('Id').AsString then
Begin
sOutTime := copy(TimeToStr(Time), 1, 4);
sTotal := TimeToStr(StrToTime(sOutTime) - StrToTime(sInTime)- 1/24);
sSql := 'Update Pay set OutTime = "'+sOutTime+'", Total = "'+sTotal+'"'
+ ' WHERE ID = "'+ sId +'" '
+ ' and Date = "'+ sDate +'" ';
Query1.sql.clear;
Query1.sql.Add(sSql);
Query1.ExecSQL;
end;
end;
위의 코드는 pay라는 테이블에서..
출근시간(Intime)을 검색 된 아이디에서 불러와
퇴근시간(outtime)과 계산을 해서 총 일한 시간을 구하는 것인데요~
sTotal := TimeToStr(StrToTime(sOutTime) - StrToTime(sInTime)- 1/24); 에서
제대로 된 값이 들어가지 않는것 같고요~
저 토탈 값이 구해지면..
시간당 2500원의 값을 곱해서 월급을 계산해야 하는데...
값이 나오질 않습니다.. --;
어떻게 해야 되나요~
부탁합니다 고수님들...
+ ' From Pay'
+ ' where id = "'
+ sId+ '" and Date = "'+sDate+'"';
Query1.Sql.Clear;
Query1.Sql.Add(sSql);
Query1.Open;
if Query1.RecordCount <> 0 then
Begin
if trim(sId) = Query1.FieldByName('Id').AsString then
Begin
sOutTime := copy(TimeToStr(Time), 1, 4);
sTotal := TimeToStr(StrToTime(sOutTime) - StrToTime(sInTime)- 1/24);
sSql := 'Update Pay set OutTime = "'+sOutTime+'", Total = "'+sTotal+'"'
+ ' WHERE ID = "'+ sId +'" '
+ ' and Date = "'+ sDate +'" ';
Query1.sql.clear;
Query1.sql.Add(sSql);
Query1.ExecSQL;
end;
end;
위의 코드는 pay라는 테이블에서..
출근시간(Intime)을 검색 된 아이디에서 불러와
퇴근시간(outtime)과 계산을 해서 총 일한 시간을 구하는 것인데요~
sTotal := TimeToStr(StrToTime(sOutTime) - StrToTime(sInTime)- 1/24); 에서
제대로 된 값이 들어가지 않는것 같고요~
저 토탈 값이 구해지면..
시간당 2500원의 값을 곱해서 월급을 계산해야 하는데...
값이 나오질 않습니다.. --;
어떻게 해야 되나요~
부탁합니다 고수님들...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델초보 -.-;;
- •
- 2001.05.21 20:11
- 1 COMMENTS
- /
- 0 LIKES
-
컴맹..•2001.05.21 20:54물론 폼을 이용하여.. 프레임과 같이 사용할수 있습니다... 간단한 소스를 올립니다... 일단 Form1에 ...
-
-
컴맹..•2001.05.21 19:54해당 ListView의 property 중 SortType 을 stText 로 설정 하세여... Caption으로 자동 소팅이 됩니다...
-
-
- ijwook
- •
- 2001.05.21 19:37
- 1 COMMENTS
- /
- 0 LIKES
-
바다를향해•2001.05.22 00:49무식한 바다를향해가 참고의 말 한마디 할게여... 일단 하드웨어로 락을 거는 방법은 예전에 프린터 포트...
-
- 강경혜
- •
- 2001.05.21 19:29
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.22 08:53소스중 어떤일을 하는부분에서 에러가 발생하는지를 먼저 파악하셔야겠군요 MIS관련프로그램으로 보이는...
-
- 포반장
- •
- 2001.05.21 19:26
- 2 COMMENTS
- /
- 0 LIKES
-
[훈]•2001.05.21 20:40charset 문제인거 같거든여... 나두 이런문제 있었는데... 자세하게 답변하기 힘드네여... 포반장 wro...
-
이제관•2001.05.22 07:10스크립트 문제일수도 있답니다. 폰트의 스크립트를 확인하세요 [훈] wrote: > charset 문제인거 같...
-
- 미지수
- •
- 2001.05.21 19:19
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.21 22:41안녕하세요. 최용일입니다. var R: MyRecordType; S: string; begin SetLength(S, Size...
-
- 정종필
- •
- 2001.05.21 19:02
- 2 COMMENTS
- /
- 0 LIKES
-
델초보•2001.05.24 02:33정종필 wrote: > 델5에서 퀵레포트 같은거 안 쓰고 assignfile 로 LPT1 을 지정한 다은 직접 > > 출력...
-
정종필•2001.05.26 19:49이렇게 하시면 될겁니다. procedure Tform1.TestPrint; var F : TextFile; begin Assignf...
-
- 백승환
- •
- 2001.05.21 18:51
- 2 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.21 20:08백승환 wrote: > 레지스트리에서요... > > 이진데이타를 어떻게 받아와야 하죠...???? > > 예를 들...
-
백승환•2001.05.22 02:49블랙봉 wrote: > 백승환 wrote: > > 레지스트리에서요... > > > > 이진데이타를 어떻게 받아와야 하죠...
-
- 이원택
- 2001.05.21 18:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 네오
- •
- 2001.05.21 18:35
- 1 COMMENTS
- /
- 0 LIKES
-
김은미•2001.05.21 22:44네오 wrote: > 안녕하세요. > try ~ except 문을 적어 > error가 발생할경우 except 로 빠지게 만들어 ...
-
- Burier
- 2001.05.21 18:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 배원성
- 2001.05.21 17:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접
- •
- 2001.05.21 17:15
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.21 22:35안녕하세요. 최용일입니다. 이 경우는 CompareMem함수를 사용할수도 없고... 직접 필드 하나하나 비교하...
-
허접•2001.05.22 01:08정말 큰 도움이 됐습니다... 꾸벅... 즐거운 일주일 되시고, 항상 건강하세요...^^ 최용일 wrote:...
-
- 진짜초보
- •
- 2001.05.21 16:31
- 1 COMMENTS
- /
- 0 LIKES
sSql := 'select Id, InTime, Date' + ' From Pay' + ' where id = "' + sId+ '" and Date = "'+sDate+'"'; Query1.Sql.Clear; Query1.Sql.Add(sSql); Query1.Open; if Query1.RecordCount 0 then Begin if trim(sId) = Query1.FieldByNam...-
바다를향해•2001.05.21 21:23이 상황에선 변수에 값을 받을때 잘 받아 지나....그것부터 확인 해야져 다시말해 sOutTime := copy(T...
-
- 초보
- •
- 2001.05.21 02:48
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.21 16:48초보 wrote: > 스트링 그리드에서 > row를 선택하면 그 row 전체가 > 선택되게 하는 방법이 없을까요? ...
-
-
최용일•2001.05.21 22:49안녕하세요. 최용일입니다. 책에서 제공하는 것이라면 트라이얼 버전인데... 이것에는 없습니다. 정품에...
-
-
- 김윤곤
- 2001.05.20 11:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 류성심
- •
- 2001.05.20 02:57
- 1 COMMENTS
- /
- 0 LIKES
-
김일배•2001.05.20 19:03폼에 BitBtn 과 PopUpMenu을 올리고 다음과 같이 코딩해 보십시요 procedure TForm1.BitBtn1Click(Sende...
-
- 무명
- 2001.05.20 04:18
- 0 COMMENTS
- /
- 0 LIKES
-
- sallyslaw
- •
- 2001.05.20 00:34
- 1 COMMENTS
- /
- 0 LIKES
-
서철기•2001.05.20 01:04저도 초본데.. 답변이 될 지 모르겠습니다.. Fail Over를 구현하신 다는 것이.. PDC가 연결이 끊어 ...
다시말해
sOutTime := copy(TimeToStr(Time), 1, 4);
이 부분에서 sOutTime변수에 제데로된 시간값이 안들어 간다는 얘깁니다.
제데로 시간값을 문자열로 받을려면 FormatDateTime함수를 사용 하시져
sOutTime := FormatDateTime('hh:mm', TDateTime(Time));
위와같이 하게 되면 순수하게 원하는 시간하고 분만 나오게 되져....
아니면
sOutTime := copy(TimeToStr(Time), 1, 5);
일케 하시던가여....^^
진짜초보 wrote:
> sSql := 'select Id, InTime, Date'
> + ' From Pay'
> + ' where id = "'
> + sId+ '" and Date = "'+sDate+'"';
>
> Query1.Sql.Clear;
> Query1.Sql.Add(sSql);
> Query1.Open;
>
> if Query1.RecordCount <> 0 then
> Begin
> if trim(sId) = Query1.FieldByName('Id').AsString then
> Begin
> sOutTime := copy(TimeToStr(Time), 1, 4);
> sTotal := TimeToStr(StrToTime(sOutTime) - StrToTime(sInTime)- 1/24);
> sSql := 'Update Pay set OutTime = "'+sOutTime+'", Total = "'+sTotal+'"'
> + ' WHERE ID = "'+ sId +'" '
> + ' and Date = "'+ sDate +'" ';
>
> Query1.sql.clear;
> Query1.sql.Add(sSql);
> Query1.ExecSQL;
> end;
> end;
>
> 위의 코드는 pay라는 테이블에서..
> 출근시간(Intime)을 검색 된 아이디에서 불러와
> 퇴근시간(outtime)과 계산을 해서 총 일한 시간을 구하는 것인데요~
>
> sTotal := TimeToStr(StrToTime(sOutTime) - StrToTime(sInTime)- 1/24); 에서
> 제대로 된 값이 들어가지 않는것 같고요~
>
> 저 토탈 값이 구해지면..
> 시간당 2500원의 값을 곱해서 월급을 계산해야 하는데...
> 값이 나오질 않습니다.. --;
>
> 어떻게 해야 되나요~
> 부탁합니다 고수님들...
>
>