안녕하세요..
저는 한 데이타 베이스에서 시작되는 날짜와시간
그리고 종료되는날짜와 시간 사이에 분을 구하고자 하는데요..
음..
var
MyDate1,MyDate2, MyDate3,MyDate4 : TDateTime; ->시작되는 날짜,시간
종료시 날짜,시간변수
MyDate1 := strToint(MaskEdit1.text); ->시작 날짜을 받구
MyDate2 := strToint(MaskEdit2.text); ->시작 시간을 받구
MyDate3 := strToint(MaskEdit3.text); ->종료 날짜을 받구
MyDate4 := strToint(MaskEdit4.text); ->종료 시간을 받구
ParamByName('date_bosu').AsString
:= intTostr(((MyDate3 - MyDate1)* 60) -> 그래서 날짜대로 계산.
+ ((MyDate4 -MyDate2)); -> 여기선 분처리해서 위의값과 더함
*** 이렇게 차이의 시간으로 구할려고 하는데요..'date_bosu'으로 가게요
그런데 아닌가.. 시간이 안나와여..???
음.. 맞긴 맞는건지... ^o^;;
고수님들의 가르침을 부탁드립니다..
참고로.. 날짜.. 2000-01-02(varchar:10) 시간은 00:00(varchar:5)이예요
TDateTime은 실수형이고, 정수부분에 날짜가 소수부분에 시간이 들어갑니다...
StrToInt대신에 StrToDate, StrToDateTime, StrToTime을 사용하시죠...
그리고 하루는 60분이 아니라 24*60분인거 같네요...
^^ 항상 즐코하세요...
BBO~ wrote:
> 안녕하세요..
> 저는 한 데이타 베이스에서 시작되는 날짜와시간
> 그리고 종료되는날짜와 시간 사이에 분을 구하고자 하는데요..
>
> 음..
>
> var
> MyDate1,MyDate2, MyDate3,MyDate4 : TDateTime; ->시작되는 날짜,시간
> 종료시 날짜,시간변수
>
> MyDate1 := strToint(MaskEdit1.text); ->시작 날짜을 받구
> MyDate2 := strToint(MaskEdit2.text); ->시작 시간을 받구
> MyDate3 := strToint(MaskEdit3.text); ->종료 날짜을 받구
> MyDate4 := strToint(MaskEdit4.text); ->종료 시간을 받구
>
> ParamByName('date_bosu').AsString
> := intTostr(((MyDate3 - MyDate1)* 60) -> 그래서 날짜대로 계산.
> + ((MyDate4 -MyDate2)); -> 여기선 분처리해서 위의값과 더함
>
> *** 이렇게 차이의 시간으로 구할려고 하는데요..'date_bosu'으로 가게요
> 그런데 아닌가.. 시간이 안나와여..???
> 음.. 맞긴 맞는건지... ^o^;;
> 고수님들의 가르침을 부탁드립니다..
>
> 참고로.. 날짜.. 2000-01-02(varchar:10) 시간은 00:00(varchar:5)이예요