Separação antes e depois da virgula

[JuniorVaz]

Dai galera, precisava da seguinte dica, preciso separar um campo PREÇO com os digitos de antes e os depois da virgula, ou seja, os reais e os centavos separados, exemplo:

XPRECO=28,90
xreal=28
xcents=90
Era só isso ai, vlw

[AndersonR]

Caro Júnior,

faça o seguinte:

XPreco=28,90
CENTAVOS=Int(xpreco)-xpreco

a varíável CENTAVOS será o valor dos centavos.


Espero ter colaborado

Anderson R

[AndersonR]

Caro Júnior,

faça o seguinte:

XPreco=28,90
CENTAVOS=Int(xpreco)-xpreco

a varíável CENTAVOS será o valor dos centavos.


Espero ter colaborado

Anderson R

[JuniorVaz]

Deste modo fica o seguinte. O campo real fica correto, no caso xreais=28
mas o campo xcents precisaria ficar 99 por exemplo, e no caso fica, 0.99. Alguma outra dica?

[janio]

mas o campo xcents precisaria ficar 99 por exemplo, e no caso fica, 0.99. Alguma outra dica?

Amigo,

É simples: Basta você multiplicar o resultado por 100

--->>> 0.99 x 100 = 99

Um abraço,

Janio

[Grings]

Simples: :xau

nNumero:= 1784574847.99
nTamanho:=LenNum(nNumero)
? nVariavel1:=Val(SubStr(Str(nNumero),1,(nTamanho-3)))
? nVariavel2:=Val(SubStr(Str(nNumero),(nTamanho-1),2))

[Everton]

ou assim tbm.

VLTOT := str(VLTOT)
nPos := RAT(".",VLTOT)
Val_Int := substr(VLTOT,1,nPos -1)
Val_Dec := substr(VLTOT,nPos +1, 2))