Files
harbour-core/harbour/tests/working/transdef.prg
1999-07-23 10:14:30 +00:00

6 lines
199 B
Plaintext

procedure main
local a := 1, b := 5.22
qout( "[" + transform( 1, "@B" ) + "]" )
qout( "[" + transform( 1.0, "@B" ) + "]" )
qout( "[" + transform( day( ctod("1/1/2000") ), "@B" ) + "]" )
quit