Files
harbour-core/harbour/contrib/samples/testtime.prg

26 lines
363 B
Plaintext

/*
* $Id$
*/
function Test()
? Days( 145604 )
? SecondsAsDays( 145604 )
? AMPM( "01:02:03" )
? TIMEASAMPM( "01:02:03" )
? SECS( "01:02:03" )
? TIMEASSECONDS( "01:02:03" )
? TSTRING( 2000 )
? TIMEASSTRING( 2000 )
? ELAPTIME( "01:02:03", "01:12:03" )
? TIMEDIFF( "01:02:03", "01:12:03" )
? TIMEISVALID( "01:02:03" )
? TIMEISVALID( "25:02:03" )
return nil