Module: xtend Library: Clipper 5.3 This module contains the following functions and procedures: Note: Because this is raw decompiler output, the code is closer to that seen in a .PPO file, rather than a .PRG file. In other words, you must allow for the preprocessor conversions normally performed based on the contents of STD.CH and other .CH files #include "common.ch" #include "inkey.ch" //---------------------------------------------------[top]- // DAYS( Arg1 ) // function DAYS( Arg1 ) return Int(Arg1 / 86400) //---------------------------------------------------[top]- // DBF // function DBF return alias() //---------------------------------------------------[top]- // ELAPTIME( Arg1, Arg2 ) // function ELAPTIME( Arg1, Arg2 ) return tstring(iif( Arg2 < Arg1, 86400, 0 ) + secs(Arg2) - ; secs(Arg1)) //---------------------------------------------------[top]- // LENNUM( Arg1 ) // function LENNUM( Arg1 ) return Len(LTrim(Str(Arg1))) //---------------------------------------------------[top]- // MOD( Arg1, Arg2 ) // function MOD( Arg1, Arg2 ) local Local1 := Arg1 % Arg2 return iif( Arg2 = 0, Arg1, iif( Local1 * Arg2 < 0, Local1 + ; Arg2, Local1 ) ) //---------------------------------------------------[top]- // RDDSYS // procedure RDDSYS return //---------------------------------------------------[top]- // SECS( Arg1 ) // function SECS( Arg1 ) return Val(Arg1) * 3600 + Val(SubStr(Arg1, 4)) * 60 + ; Val(SubStr(Arg1, 7)) //---------------------------------------------------[top]- // STRZERO( Arg1, Arg2, Arg3 ) // function STRZERO( Arg1, Arg2, Arg3 ) local Local1 if ( PCount() == 3 ) Local1 := Str(Arg1, Arg2, Arg3) elseif ( PCount() == 2 ) Local1 := Str(Arg1, Arg2) else Local1 := Str(Arg1) endif if ( "-" $ Local1 ) return "-" + Replicate("0", Len(Local1) - Len(LTrim(Local1))) ; + SubStr(Local1, At("-", Local1) + 1) endif return Replicate("0", Len(Local1) - Len(LTrim(Local1))) + ; LTrim(Local1) //---EOF Use your Browser's BACK button to return to Function Listings