Files
harbour-core/contrib/hbnf/tests/elapsed.prg
Przemysław Czerpak 96ca3fe470 2014-01-21 20:41 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* Makefile
  * config/*
  * contrib/*
  * doc/*
  * extras/*
  * include/*
  * lib/*
  * package/*
  * src/*
  * tests/*
  * utils/*
    * removed empty lines left after removed '$' + 'Id' + '$' identifiers
2014-01-21 20:41:05 +01:00

20 lines
484 B
Plaintext

#require "hbnf"
PROCEDURE Main()
LOCAL dStart, dEnd, cTimeStart, cTimeEnd, n, aDataTest
dStart := hb_SToD( "19901128" )
dEnd := hb_SToD( "19901130" )
cTimeStart := "08:00:00"
cTimeEnd := "12:10:30"
aDataTest := ft_Elapsed( dStart, dEnd, cTimeStart, cTimeEnd )
FOR n := 1 TO 4
? aDataTest[ n, 1 ], Str( aDataTest[ n, 2 ], 12, 4 )
?? " "
?? iif( n == 1, "Days", iif( n == 2, "Hours", iif( n == 3, "Mins.", "Secs." ) ) )
NEXT
RETURN