Code: Select all
Called from FLOOR(0)
Called from N2E(164) in .\source\function\VALTOSTR.PRG
Called from CVALTOSTR(150) in .\source\function\VALTOSTR.PRG
Called from TRGROUP:TOTAL(96) in .\source\classes\RGROUP.PRG
Called from TRGROUP:FOOTER(189) in .\source\classes\RGROUP.PRG
Called from TREPORT:ENDGROUP(1774) in ..\clases\report.prg
Called from TREPORT:PLAY(1124) in ..\clases\report.prg
Called from (b)TREPORT_ACTIVATE(923) in ..\clases\report.prg
Code: Select all
e := Floor( nLog )
Code: Select all
static function N2E( nNum, nDec )
local e := 0, nLog, cRet
DEFAULT nDec := 2
nLog := Log10( nNum )
e := Floor( nLog )
nNum := 10 ^ ( nLog - e )
if e > 9 .and. nDec > 0
nDec--
endif
cRet := Str( nNum, nDec + 2, nDec ) + "E" + LTrim( Str( e ) )
return cRet
Gracias