Module: xtend      Library: Clipper 5.3


This module contains the following functions and procedures:

function DAYS( Arg1 )
function DBF
function ELAPTIME( Arg1, Arg2 )
function LENNUM( Arg1 )
function MOD( Arg1, Arg2 )
procedure RDDSYS
function SECS( Arg1 )
function STRZERO( Arg1, Arg2, Arg3 )

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