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č
-
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()