FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
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?
Débuté par adrianoboller, 18 nov. 2014 14:25 - Aucune réponse
Connectez-vous…
adrianoboller
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 18 novembre 2014 - 14:25
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
!
!
!
!
!
!
!
!
!
Signaler
0
0
→ Revenir à WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte