Q&A

  • 시작, 종료시 날짜와 시간의 값에서 차이나는 분구하기??
안녕하세요..

저는 한 데이타 베이스에서 시작되는 날짜와시간

그리고 종료되는날짜와 시간 사이에 분을 구하고자 하는데요..



음..



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)이예요

1  COMMENTS
  • Profile
    최용일 2001.11.13 00:07
    안녕하세요. 최용일입니다.



    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)이예요