2017-03-01T23:17:33.235475443P0D1LibreOfficeDev/5.4.0.0.alpha0$Linux_X86_64 LibreOffice_project/36de6c50684c8241969a2064d30aff41e0bc5d97 0 0 21431 4459 view1 2 8 0 0 0 0 2 0 0 0 0 0 100 60 true false 4 8 0 0 0 0 2 0 0 0 0 0 100 60 true false Sheet2 1241 0 100 60 false true true true 12632256 true true true true true false false 1270 1270 1 1 true false 7 false false true true false false false 1270 1270 true true true true true false 12632256 false Lexmark-E352dn cs CZ de DE en US nl NL true true 3 1 true 1 true lgH+/0xleG1hcmstRTM1MmRuAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ1VQUzpMZXhtYXJrLUUzNTJkbgAAAAAAAAAAAAAAAAAWAAMAtwAAAAAAAAAIAFZUAAAkbQAASm9iRGF0YSAxCnByaW50ZXI9TGV4bWFyay1FMzUyZG4Kb3JpZW50YXRpb249UG9ydHJhaXQKY29waWVzPTEKY29sbGF0ZT1mYWxzZQptYXJnaW5kYWp1c3RtZW50PTAsMCwwLDAKY29sb3JkZXB0aD0yNApwc2xldmVsPTAKcGRmZGV2aWNlPTEKY29sb3JkZXZpY2U9MApQUERDb250ZXhEYXRhClBhZ2VTaXplOkxldHRlcgAAEgBDT01QQVRfRFVQTEVYX01PREUPAER1cGxleE1vZGU6Ok9mZg== false 0 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č - - - - : : : : 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 - - : : : : - - ( ) - $ $ ( ) $ - ( ) - $ $ ( ) $ - ( ) ok ERR! - - - - 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()