9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
109 lines
2.9 KiB
Plaintext
109 lines
2.9 KiB
Plaintext
/*
|
|
* Author....: Alexander B. Spencer
|
|
* CIS ID....: 76276,1012
|
|
*
|
|
* This is an original work by Alexander B. Spencer and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:04:02 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:52:22 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 14 Jun 1991 03:43:52 GLENN
|
|
* Initial revision.
|
|
*
|
|
*/
|
|
|
|
FUNCTION ft_Mil2Min( cMILTIME )
|
|
|
|
RETURN Int( Val( Left( cMILTIME, 2 ) ) * 60 + Val( Right( cMILTIME, 2 ) ) )
|
|
|
|
FUNCTION ft_Min2Mil( nMin )
|
|
|
|
nMin := nMin % 1440
|
|
|
|
RETURN ;
|
|
Right( "00" + hb_ntos( Int( nMin / 60 ) ), 2 ) + ;
|
|
Right( "00" + hb_ntos( Int( nMin % 60 ) ), 2 )
|
|
|
|
FUNCTION ft_Mil2Civ( cMILTIME )
|
|
|
|
LOCAL cHRS, cMINS, nHRS, cCIVTIME
|
|
|
|
nHRS := Val( Left( cMILTIME, 2 ) )
|
|
cMINS := Right( cMILTIME, 2 )
|
|
|
|
DO CASE
|
|
CASE ( nHRS == 24 .OR. nHRS == 0 ) .AND. cMINS == "00" // Midnight
|
|
cCIVTIME := "12:00 m"
|
|
CASE nHRS == 12 // Noon to 12:59pm
|
|
IF cMINS == "00"
|
|
cCIVTIME := "12:00 n"
|
|
ELSE
|
|
cCIVTIME := "12:" + cMINS + " pm"
|
|
ENDIF
|
|
CASE nHRS < 12 // AM
|
|
IF nHRS == 0
|
|
cHRS := "12"
|
|
ELSE
|
|
cHRS := Right( " " + hb_ntos( Int( nHRS ) ), 2 )
|
|
ENDIF
|
|
cCIVTIME := cHRS + ":" + cMINS + " am"
|
|
|
|
OTHERWISE // PM
|
|
cCIVTIME := Right( " " + hb_ntos( Int( nHRS - 12 ) ), 2 ) + ;
|
|
":" + cMINS + " pm"
|
|
ENDCASE
|
|
|
|
RETURN cCIVTIME
|
|
|
|
FUNCTION ft_Civ2Mil( cTIME )
|
|
|
|
LOCAL cKEY, cMILTIME
|
|
|
|
// ** Ensure leading 0's
|
|
|
|
cTIME := Replicate( "0", 3 - At( ":", LTrim( cTIME ) ) ) + LTrim( cTIME )
|
|
|
|
// ** Adjust for popular use of '12' for first hour after noon and midnight
|
|
IF Left( LTrim( cTIME ), 2 ) == "12"
|
|
cTIME := Stuff( cTIME, 1, 2, "00" )
|
|
ENDIF
|
|
|
|
// ** am, pm, noon or midnight
|
|
cKEY := SubStr( LTrim( cTIME ), 7, 1 )
|
|
|
|
DO CASE
|
|
CASE Upper( cKEY ) == "N" // noon
|
|
IF Left( cTIME, 2 ) + SubStr( cTIME, 4, 2 ) == "0000"
|
|
cMILTIME := "1200"
|
|
ELSE
|
|
cMILTIME := " "
|
|
ENDIF
|
|
CASE Upper( cKEY ) == "M" // midnight
|
|
IF Left( cTIME, 2 ) + SubStr( cTIME, 4, 2 ) == "0000"
|
|
cMILTIME := "0000"
|
|
ELSE
|
|
cMILTIME := " "
|
|
ENDIF
|
|
CASE Upper( cKEY ) == "A" // am
|
|
cMILTIME := Right( "00" + hb_ntos( Val( Left( cTIME, 2 ) ) ), 2 ) + ;
|
|
SubStr( cTIME, 4, 2 )
|
|
CASE Upper( cKEY ) == "P" // pm
|
|
cMILTIME := Right( "00" + hb_ntos( Val( Left( cTIME, 2 ) ) + 12 ), 2 ) + ;
|
|
SubStr( cTIME, 4, 2 )
|
|
OTHERWISE
|
|
cMILTIME := " " // error
|
|
ENDCASE
|
|
|
|
RETURN cMILTIME
|
|
|
|
FUNCTION ft_Sys2Mil()
|
|
|
|
RETURN Left( Stuff( Time(), 3, 1, "" ), 4 )
|