Files
harbour-core/harbour/contrib/hbclipsm/tests/testnum.prg
Viktor Szakats f2480e5443 2007-12-01 02:34 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/make_b32_all.bat
   * contrib/make_vc_all.bat
   * contrib/Makefile
   - contrib/msql
   + contrib/hbmsql
   * contrib/hbmsql/common.mak
   * contrib/hbmsql/Makefile
   - contrib/libmisc
   + contrib/hbmisc
   - contrib/mysql
   + contrib/hbmysql
   - contrib/odbc
   + contrib/hbodbc
   - contrib/ole
   + contrib/hbole
   - contrib/pgsql
   + contrib/hbpgsql
   * contrib/hbpgsql/common.mak
   * contrib/hbpgsql/Makefile
   - contrib/samples
   + contrib/hbclipsm
   * contrib/hbclipsm/common.mak
   * contrib/hbclipsm/Makefile
2007-12-01 01:34:59 +00:00

25 lines
434 B
Plaintext

/*
* $Id$
*/
function Test()
? Ceiling( 3.2 )
? DToR( 180 )
? Floor( 3.2 )
? NumAsCurrency( 3000, "$", -1 )
? NumAsCurrency( 3000, "$", 1 )
? NumAsCurrency( 3000, "Euro", -1 )
? NumAsCurrency( 3000, "Euro", 1 )
? NumAsLog10( 1 )
? NumGetDecimals( 1 )
? NumGetDecimals( 1.2345 )
? NumGetLen( 1 )
? NumGetLen( 1.2345 )
? RToD( 180 )
? Sign( 0 )
? Sign( 33 )
? Sign( -33 )
return nil