Q&A
- 시간계산관련 질문입니다.
'20020305080000', '20020305020000' 이둘은 년도와 시간을 붙여논
스트링 타입입니다
이 두시간의 차가 몇시간몇분인지 알려면 어떻게 해야되나여?
꼭 답변 부탁드립니다........수고하세여!
스트링 타입입니다
이 두시간의 차가 몇시간몇분인지 알려면 어떻게 해야되나여?
꼭 답변 부탁드립니다........수고하세여!
2
COMMENTS
-
-
procedure TForm1.MaskEdit5Exit(Sender: TObject);
begin
MaskEdit5.Text := FormatDateTime('YYYY-MM-DD', StrToDate(MaskEdit5.Text));
Edit5.Text := FormatDateTime('MMDDYYYY', StrToDate(MaskEdit5.Text));
if StrToDate(MaskEdit5.text) < StrToDate(MaskEdit4.text) then
ShowMessage('From 날짜보다 작습니다.')
else begin
MaskEdit6.Text := FormatDateTime('YYYY-MM-DD', StrToDate(MaskEdit5.text) - StrToDate(MaskEdit4.text));
Edit6.Text := FloatToStr(StrToDate(MaskEdit5.text) - StrToDate(MaskEdit4.text));
end;
end;
예제를 올립니다..
즐코하세여
(NOTICE) You must be logged in to comment on this post.
-
- 오진욱
- •
- 2002.03.06 04:52
- 2 COMMENTS
- /
- 0 LIKES
-
김강수•2002.03.06 10:04수고하십니다. 저도 윈95때 부터 아래의 기능을 직접 만들어서 사용을 했는데 결론은 윈9X의 ExitWindows ...
-
오진욱•2002.03.06 22:04감사합니다. 님께서 해주신 답변을 보고..InitiateSystemShutdown 대신 ExitWindowsEx(EWX_POWEROFF,0); ...
-
- kjkinter
- •
- 2002.03.06 04:17
- 1 COMMENTS
- /
- 0 LIKES
-
루단스•2002.03.06 09:08예외사항.....? try except end; 이것을 말씀하시는건가요? try .. ...
-
- 김관수
- 2002.03.06 03:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 최민호
- •
- 2002.03.06 03:46
- 1 COMMENTS
- /
- 0 LIKES
-
장명선•2002.03.06 05:13이런건 팁쪽에 많이 있는데 함 찾아보는것두 좋을듯 하네요 DestroyWindow( ImmGetDefaultIMEWnd( Handl...
-
- 김건림
- •
- 2002.03.06 03:41
- 1 COMMENTS
- /
- 0 LIKES
-
cell•2002.03.06 04:43이곳 예전 질/답란에 있을 꺼에요..... 저도 같은 경우를 당해서 예전에 질문을 했던 기억이 나네요 ...
-
- 이은정
- •
- 2002.03.06 02:38
- 1 COMMENTS
- /
- 0 LIKES
-
깨비•2002.03.06 02:46Component를 조금 바꿔 보심이... 소스가 있으니.. 음.. 일단 inputbox라는 함수를 찾아보세요.. 소스...
-
- 손창호
- •
- 2002.03.06 02:31
- 1 COMMENTS
- /
- 0 LIKES
-
김강수•2002.03.06 10:08New Field를 하셔서 Field Type을 Calculated로 하셔서 테이블 오픈후 불러오는 이벤트 중 OnCalcFields에...
-
- 깨비
- •
- 2002.03.06 02:12
- 7 COMMENTS
- /
- 0 LIKES
-
타락천사•2002.03.06 08:07안녕하세여.. 타락임다..^^ 이미지 전송수단으로 스트림을 쓰시려는 걸로 보이는군여..^^;; 제 경험...
-
깨비•2002.03.06 20:40타락님께서 직접 답변을 해주시다니.. 흑흑... 감사.. 버뜨. 전 아직 메모리라면.. 무뇌한이라서.. 메모...
-
타락천사•2002.03.07 08:33안녕하세여. 타락임다..^^;; 예전 기록보며 기억을 떠올려 해보려고 했는데, 안돼네여..ㅠㅠ 기냥 스...
-
깨비•2002.03.06 02:55procedure TForm1.Button2Click(Sender: TObject); var jpeg1: TJpegimage; &n...
-
이준희•2002.03.06 02:21음.... jpeg 파일 포맷은 richedit로 볼 수 없습니다. jpeg파일 포맷은 이진데이터 파일로 되어 있...
-
깨비•2002.03.06 02:29볼 수 있어요..(프로그래머에게는 기본이죠.. 이진 파일 보는거... ) jpeg 가 데이터 이기 때문에.. 흐...
-
이준희•2002.03.06 03:00굳이 보시겠다면야... 그런데 리치에디트는 rtf 포맷이기 때문에 그냥 lines.add 해서는 볼 수 없구요 ...
-
- 까몽
- •
- 2002.03.06 01:29
- 1 COMMENTS
- /
- 0 LIKES
-
이준희•2002.03.06 02:48FileList를 만들면서 FindClose를 안해주신 것 같군요... FindNext를 위해서 디렉토리를 꽉 잡고 있게 ...
-
- 델.초
- •
- 2002.03.06 01:09
- 3 COMMENTS
- /
- 0 LIKES
-
깨비•2002.03.06 02:23일단은.. Appliction.CreateForm 명령어로 해도 문제 없이 원하시는게 되리라 봅니다. 새로운 ...
-
델.초•2002.03.06 02:43안녕하세요..답변감사드립니다^^ 저기 제가 뛰운 소스가 procedure TForm1.HNewClick(Sender: TObject)...
-
석•2002.03.06 02:59문제는 Application.CreateForm;의 특성에 있어요. Application.CreateForm;는 MainForm이 nil인 경우에 ...
-
- 최영진
- 2002.03.05 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 황 선헌
- 2002.03.05 23:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보임당
- 2002.03.05 23:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 최경은
- •
- 2002.03.05 23:12
- 2 COMMENTS
- /
- 0 LIKES
'20020305080000', '20020305020000' 이둘은 년도와 시간을 붙여논 스트링 타입입니다 이 두시간의 차가 몇시간몇분인지 알려면 어떻게 해야되나여? 꼭 답변 부탁드립니다........수고하세여!-
홍성락•2002.03.05 23:35///////////////////////////////////////////////////////// procedure TForm1.Button1Click(Sender:...
-
장명선•2002.03.05 23:17procedure TForm1.MaskEdit5Exit(Sender: TObject); begin MaskEdit5.Text := FormatDateTime('YYYY-MM-D...
-
- 김명찬
- •
- 2002.03.05 22:51
- 2 COMMENTS
- /
- 0 LIKES
-
장명선•2002.03.05 23:15DBChart를 이용해보세여 훨씬 쉬어요... 그럼 즐코하세요
-
김명찬•2002.03.06 02:38님 답변 보고 잘 해결했습니다. 감사합니다. 오류는 아니지만 한가지 문제점이 있어 다시 질문을 합니다....
-
- lazenca
- •
- 2002.03.05 22:50
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.03.05 23:49/////////////////////////// DB오픈후에 아래처럼해보세요 TStringGrid(DBGrid1).ColWidths[3] := 1...
-
장명선•2002.03.05 23:12각셀의 크기 조절을 자동으로 해주는 것이 없는걸로 알고 있습니다. 입력값이 제일큰것으로 마추는 수밖에...
-
- 정진훈
- •
- 2002.03.05 22:49
- 3 COMMENTS
- /
- 0 LIKES
-
장명선•2002.03.05 23:10메뉴에 보면 Component 에서 Install Component에서 등록하시면 됩니다. 그럼 즐코하세여
-
정진훈•2002.03.05 23:30좀구체적으로 그렇게 해보니 안돼어서그러는데 좀구체적으로 가르져주실수있겠습니까?
-
김중인•2002.03.05 23:50첫번째로, Package로 되어 있는 Component 인 경우. Component -> Install Packages... -> Add....
-
- 송상우
- •
- 2002.03.05 22:49
- 1 COMMENTS
- /
- 0 LIKES
-
장지용•2002.03.05 22:54테이블에 있는 필드 크기를 변경하셨군요. 이럴땐 "DataSet" 의 해당 필드 "Size" ...
-
- lazenca
- •
- 2002.03.05 22:42
- 1 COMMENTS
- /
- 0 LIKES
-
장명선•2002.03.05 23:14Application.CreateForm(TTestForm,TestForm); TestForm.Show; 이런씩으로 하면 되지 않을까여 ? 즐...
-
- 최여옥
- •
- 2002.03.05 22:31
- 3 COMMENTS
- /
- 0 LIKES
-
윤정식•2002.03.06 01:02아스키값으로 들어오더라도 숫자인 경우, Char형 숫자가 들어 올것입니다.. 아스키값은 모두 문자형이므로...
-
장명선•2002.03.05 23:21컴포넌트에 Read 이벤트가 있을겁니다. Read 이벤트가 발생할때 자료를 저장하면 될듯싶네요 그리고 포...
-
이용수•2002.03.09 02:33저두 허접입니다만 님의 글을 읽다가 혹 제가 알고 있는 부분이 도움이 될까하구여..! 제가 알기론 232통...
/////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
HYear, HMonth, HDay, Hour, Min, Sec, MSec: Word;
HDate1, HDate2, DffDate: TDateTime;
strDate1, strdate2, str : string;
begin
strdate1 := '20020305080000';
strdate2 := '20020305020000';
//시작 날짜지정 StrToDateTime도 있으나 시스템 영향 안받게 하려했믐
HYear := StrToint(copy(strdate1,1,4));
HMonth:= StrToint(copy(strdate1,5,2));
HDay := StrToint(copy(strdate1,7,2));
Hour := StrToint(copy(strdate1,9,2));
Min := StrToint(copy(strdate1,11,2));
Sec := StrToint(copy(strdate1,12,2));
MSec := 0;
HDate1 := EncodeDate(HYear, HMonth, HDay) + EncodeTime(Hour, Min, Sec, MSec);
HYear := StrToint(copy(strdate2,1,4));
HMonth:= StrToint(copy(strdate2,5,2));
HDay := StrToint(copy(strdate2,7,2));
Hour := StrToint(copy(strdate2,9,2));
Min := StrToint(copy(strdate2,11,2));
Sec := StrToint(copy(strdate2,12,2));
MSec := 0;
HDate2 := EncodeDate(HYear, HMonth, HDay) + EncodeTime(Hour, Min, Sec, MSec);
DffDate := HDate1-HDate2;
if Trunc(DffDate) > 0 then
str := intTostr(Trunc(DffDate)) + '일'
else
str := '';
str := '차이' + #10 +str + ' ' + FormatDateTime('HH:MM:SS', DffDate-Trunc(DffDate));
showmessage(str);
end;