FiveTech Software tech support forums

Posted: **Sun Mar 29, 2009 2:12 pm**

Hi,
anyone know a function to compare two hours ?

Imagine you have cTime1="10.55" and cTime2="13.44",
is there a function to know if cTime1>cTime2 ?

Thanks in advance

Posted: **Sun Mar 29, 2009 2:35 pm**

Marco:

Take a look at the TimeToSec function of xHarbour.

This function converts the time in seconds and then you can compare seconds against seconds

Regards

Posted: **Sun Mar 29, 2009 2:37 pm**

Code: Select all


Local cTime1 := "10:00"
Local cTime2 := "13:20"

If TimeAsSeconds( cTime1 ) <= TimeAsSeconds( cTime2 )
 ....
EndIf

FUNCTION TimeAsSeconds( cTime )
RETURN VAL( cTime ) * 3600 + VAL( SUBSTR( cTime, 4 ) ) * 60 + VAL( SUBSTR( cTime, 7 ) )

Posted: **Sun Mar 29, 2009 3:19 pm**

Just a quick observation .. why can't you not change them to values and compare the numbers ?

Code: Select all

Imagine you have cTime1="10.55" and cTime2="13.44",
is there a function to know if cTime1>cTime2 ?

Code: Select all


lOK := .F.

nTIME1 := VAL("10.55")
nTIME2 := VAL("13.44")

nDIFF := nTIME1 - nTIME2

IF nDIFF > 0
    lOK := .T.   
ELSE
    lOK := .F.
ENDIF

RETURN(lOK)

On the other hand still as "char" cTime2 would always be greater than cTime1 as you have them defined .. am I missing something here ??

Rick Lipkin

Posted: **Sun Mar 29, 2009 3:39 pm**

For xHarbour:
MsgInfo(ElapTime( "10:55:00", "13:44:00" ))

Posted: **Sun Mar 29, 2009 7:05 pm**

Ok. I am using TimeToSec() for this special situation.

Thanks to all for the great support.

Posted: **Tue Mar 31, 2009 10:10 am**

Marco Turco wrote:Hi,
anyone know a function to compare two hours ?

Imagine you have cTime1="10.55" and cTime2="13.44",
is there a function to know if cTime1>cTime2 ?

Thanks in advance

Marco,
when I come back home Ican send you a function
( date1,ora1,date2,ora2)
I use it to rent beach services

Posted: **Thu Apr 02, 2009 7:25 am**

I use this function:

Code: Select all

Function DRazlika(dStartDate,cStartTime,dEndDate,cEndTime)
Return (((dEndDate - dStartDate) * 86400) - TimeToSec(cStartTime)) + TimeToSec(cEndTime)

... and in PRG code is somethnig like this

Code: Select all

//*** End_Time, Start_Time are string ("12:15", "13:15") 
        dd2 :=alltrim(End_Time)
        dd1 :=alltrim(Start_Time)
        dd3 :=DRazlika(@StartDate,@dd1,@End_Date,@dd2)    //*** Return dd3 in seconds
        dd4 :=int(dd3/86400)                           //*** No of days
        dd5 :=dd3-(dd4*86400)                         
        dd6 :=int(dd5/3600)                            //*** No in hours
        dd7 :=(dd5-dd6*3600)/60                     //*** rest in minutes
...
...
 @ row ,4 say "Result: "+str(dd4,2)+" days "+str(dd6,2)+" hours "+str(dd7,2)+" min"

Regards
Zupan Miran
Slovenia

FiveTech Software tech support forums

Compare two hours

Compare two hours

Re: Compare two hours

Re: Compare two hours

Re: Compare two hours

Re: Compare two hours

Re: Compare two hours

Re: Compare two hours

Re: Compare two hours