PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV Mobile 2024 → Fracao
Fracao
Débuté par adrianoboller, 18 nov. 2014 14:26 - 1 réponse
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 18 novembre 2014 - 14:26
Procedure Fracao(LOCAL ValorReal, LOCAL QtdeCasasDecimais)

RetornoFracionario is string = ""

IF ValorReal
PosicaoPonto is int = PositionOccurrence(ValorReal,".",firstRank,FromBeginning) + 1
PosicaoVirgula is int = PositionOccurrence(ValorReal,",",firstRank,FromBeginning) + 1

IF PosicaoPonto > 0 THEN
RetornoFracionario = Middle(ValorReal, PosicaoPonto, QtdeCasasDecimais)
ELSE IF PosicaoVirgula > 0
RetornoFracionario = Middle(ValorReal, PosicaoVirgula, QtdeCasasDecimais)
ELSE
RetornoFracionario = ValorReal
END

END

RESULT(RetornoFracionario)
#2
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 18 novembre 2014 - 14:28
Procedure Inteiro(LOCAL ValorReal)

ValorInteiro is string = ""

IF ValorReal <> Null AND ValorReal <> "" THEN

PosicaoPonto is int = PositionOccurrence(ValorReal,".",firstRank,FromBeginning) - 1
PosicaoVirgula is int = PositionOccurrence(ValorReal,",",firstRank,FromBeginning) - 1


IF PosicaoPonto > 0 THEN
ValorInteiro = Middle(ValorReal,1,PosicaoPonto)
ELSE IF PosicaoVirgula > 0
ValorInteiro = Middle(ValorReal,1,PosicaoVirgula)
ELSE
ValorInteiro = ValorReal
END

END

RESULT(ValorInteiro)
→ Revenir à WINDEV Mobile 2024