SEPARAR CASAS DECIMAIS DE UM NUMERO INTEIRO

TIAGOFAC 07/01/2010 09:24:14
#331275
Bom dia

Como seria a rotina para separar casas decimais de um numero inteiro no Visual Basic 6.0

Exemplo : Resultado de uma conta é igual a 11,27

Gostaria de separar os valores em duas variaveis por exemplo...

Variavel - ValorInteiro = 11

Variavel - Decimal = 27

Grato
PH1959 07/01/2010 09:51:59
#331281
eita Jaú - Capital do calçado feminino....

public sub retiradecimais( a as variant)

Ainteiro= Int(a)
Adecimal=(a - Ainteiro)*100

end sub
ASHKATCHUP 07/01/2010 10:35:15
#331292
Se você tiver um número de decimais dinâmico, separe pela virgula.


Private Sub Form_Load()
    Dim iNumeroInteiro                            As Integer
    Dim iNumeroDecimal                            As Integer
    Dim dValor                                    As Double
    [ô]
    dValor = CDbl(23.9)
    [ô]
    iNumeroInteiro = CInt(Split(dValor, [Ô],[Ô])(0))
    iNumeroDecimal = CInt(Split(dValor, [Ô],[Ô])(1))
    [ô]
    Stop
End Sub
ONBASS 07/01/2010 15:53:41
#331316
ou ainda..

vlrTotal = 11,27

vlrInteiro = Left(vlrTotal,2)
vlrDecimal = Right(vlrTotal,2)
ASHKATCHUP 07/01/2010 16:10:14
#331318
Citação:

DEKINHO :
ou ainda..

vlrTotal = 11,27

vlrInteiro = Left(vlrTotal,2)
vlrDecimal = Right(vlrTotal,2)



E se o valor for 128,39? A tua lógica não vai funcionar.
MARCELO.TREZE 07/01/2010 16:46:33
#331323 Resposta escolhida
simples colega

Dim Valor() As string
Valor() = Split(txtValor.Text,[Ô],[Ô])
msgbox [Ô]valor inteiro = [Ô] & Valor(0) & [Ô] e valor decimal = [Ô] & Valor(1)


o código acima irá separar o valor em em uma matrix Valor(0)=Inteiro e Valor(1) = Decimal, isso baseado na virgula

tente e diga se funcionou
ONBASS 07/01/2010 16:49:36
#331324
verdade, não pensei nesse detalhe...
Tópico encerrado , respostas não são mais permitidas
Voltar