PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV Mobile 2024
→
I need help to generate Extensive number, can anyone help me?
I need help to generate Extensive number, can anyone help me?
Started by adrianoboller, Nov., 18 2014 2:25 PM - No answer
Connect yourself…
adrianoboller
#1
Registered member
3,660 messages
Popularité : +175 (223 votes)
Posted on November, 18 2014 - 2:25 PM
Procedure
ExtensoNumero
(
LOCAL
Simbolo
,
LOCAL
Valor
,
LOCAL
MoedaMedida
,
LOCAL
FalarSN
)
NumeroExtenso is
string
=
""
s
Ext is
string
=
"33"
n
Uniw is
int
=
6
n
Undw is
int
=
9
n
Dezw is
int
=
9
n
Cenw is
int
=
12
s
Uni is
string
=
"um dois três quatrocinco seis sete oito nove "
s
Und is
string
=
"dez onze doze treze quatorze quinze dezesseisdezessetedezoito dezenove "
s
Dez is
string
=
"vinte trinta quarenta cinqüentasessenta setenta oitenta noventa "
s
Cen is
string
=
"cento duzentos trezentos quatrocentosquinhentos seiscentos setecentos oitocentos novecentos "
IF
Simbolo
<
>
""
AND
Valor
<
>
""
AND
MoedaMedida
<
>
""
THEN
IF
PositionOccurrence
(
Valor
,
","
,
firstRank
)
THEN
NumeroExtenso
=
Valor
NumeroExtenso
=
Replace
(
Valor
,
","
,
" e "
)
NumeroExtenso
=
NumeroExtenso
+
MoedaMedida
END
IF
FalarSN
=
""
THEN
LerTexto
(
NumeroExtenso
,
""
,
""
,
""
)
END
END
NOT OK
!
!
!
!
!
!
!
!
!
Report
0
0
→ Go back to WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (earlier versions)
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text