PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Fracao
Fracao
Débuté par adrianoboller, 18 nov. 2014 14:26 - 1 réponse
Membre enregistré
2 962 messages
Popularité : +89 (91 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)
Membre enregistré
2 962 messages
Popularité : +89 (91 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)