REM ***** BASIC ***** REM case SbxINTEGER: REM case SbxLONG: REM case SbxSINGLE: REM case SbxDOUBLE: REM case SbxCURRENCY: REM case SbxDATE: REM case SbxUSHORT: REM case SbxULONG: REM case SbxINT: REM case SbxUINT: REM case SbxSALINT64: REM case SbxSALUINT64: REM case SbxDECIMAL: REM case SbxBOOL: Function TestFuncCurr() As Currency Dim Result As Currency Result = 5.50 TestFuncCurr = Result End Function Function TestFuncInt() As integer Dim Result As integer Result = 5.50 TestFuncInt = Result End Function Function TestFuncLong() As long Dim Result As Long Result = 5.50 TestFuncLong = Result End Function Function TestFuncSingle() As Single Dim Result As Single Result = 5.50 TestFuncSingle = Result End Function Function TestFuncDouble() As double Dim Result As Double Result = 5.50 TestFuncDouble = Result End Function Function TestFuncDate() As date Dim Result As Date Result = 5590 TestFuncDate = Result End Function Function TestFuncBool() As boolean Dim Result As boolean Result = 1 TestFuncBool = Result End Function Kč - Kč ( ) - Kč - Kč Kč - Kč Kč - Kč Kč - Kč £ - £ £ - £ £ - £ £ - £ £ - £ ( ) ( ) £ - £ £ - £ € - € - € / / / / € - € Kč - Kč Kč - Kč Kč - Kč Kč - Kč - - - - - - Kč - Kč - Kč - - Kč - Kč - Kč : : : : Yes Yes No True True False On On Off ¥€ ( € ) € - € $ ($ ) € - € € - € € € - € € - € - - € - € - € - - € - € - € $ ($ ) $ ($ ) $ ($ ) ( ) - $ $ ( ) $ - $ $ ( ) $ - € ( € ) \ \- \ \- \ \- \ \- \ \ - \ - - - \ \ - \ - - - - - - - $ $( ) $- ( ) - $ $( ) $- ( ) - % % % % % % % % % % € - € € - € € - € € - € € - € € - € € - € € - € € - € € - € € - € € - € € - € € - € € - € % % % % % % $ ( $ ) % % - % - - - £ - £ £ - £ % - % DM - DM DM - DM DM - DM DM - DM - - DM - DM - DM - - DM - DM - DM Ouch! - - Error detected! - Result=0 - No Errordetection / / / / £ -£ £ -£ £ -£ £ -£ - - £ -£ £ - - - £ -£ £ - ￥ - ￥ DM - DM DM - DM DM - DM DM - DM DM - DM € € - tan aa zł - zł € - € : : : : € - € € - € ( ) - $ $ ( ) $ - ( ) - $ $ ( ) $ - € ( € ) ok ERR! - - Kč - Kč - Kč - - Kč - Kč - Kč ¥€ ( € ) / / - - - - : : : : : : / / : ( ) ( ) ( ) ( ) ( ) ( ) - : : : ( ) % ( ) - ( ) - ( ) - ( ) - . . : : : . . : - - - - € - € € - € € - € € - € : : : € € - € € - € € - € € - - - - - - - : : : : : : - - : - - - - - - € € - € - - - € € - € - ??? Page 1 ??? (???) 00/00/0000, 00:00:00 Page 1 / 99 Own function in basic Result TRUE Sheet Result Description 1 TRUE Simple own function in basic Function Expected Correct FunctionString Comment 5.5 5.5 TRUE =TESTFUNCCURR() 6.00000000000000E+000 6 TRUE =TESTFUNCINT() 6 6 TRUE =TESTFUNCLONG() 5.5 5.5 TRUE =TESTFUNCSINGLE() 5.50000000000000E+000 5.5 TRUE =TESTFUNCDOUBLE() 5.59000000000000E+003 5590 TRUE = TESTFUNCDATE() 1.00000000000000E+000 1 TRUE =TESTFUNCBOOL()