ola 

pessoal

 

como fazer  para que em  uma multiplicacao numero  quebrados  seja mostrado inteiro em um text box

ex:

 

14,5 ate 15,4 =  a 15  na textbox

13,5 ate 14,4 = a 13  na  textbox.....

 

 

  a  possibilidade???

 

 

tente isso...

 

Public Function Arredondar(VALOR As Double, Casas As Integer) As Double
Dim MVALOR1 As Integer
Dim MVALOR2 As Currency

Arredondar = Int(VALOR * 10 ^ Casas + 0.5) / 10 ^ Casas
MVALOR1 = Mid(Arredondar, 1, 1)
If Arredondar = CInt(Arredondar) Then Exit Function
MVALOR2 = Mid(Arredondar, 3, 3)
If MVALOR2 < 5 Then
   Arredondar = MVALOR1 + 0.5
ElseIf MVALOR2 > 5 Then
   Arredondar = MVALOR1 + 1
End If
End Function
Public Function Arredondar_Inteiro(VALOR) As Single
Dim N%
Dim n2 As Single
N = VALOR
n2 = Round(VALOR)
If N < VALOR Then
    Arredondar_Inteiro = N + 1
Else
    Arredondar_Inteiro = N
End If
End Function

da erro ..tipo  argumento naum opcional......

 

mas     valeu  ....muito obrigado

'Text1 - guarda o valor a ser arredondado

'Text2 - Informa o valor após o processamento

'sValor - Variável auxiliar do arredondamento

 

Dim sValor As Currency
If Len(Me.Text1.Text) <> 0 Then 'Se algum número for digitado
sValor = Me.Text1.Text + 0.001
End If
Me.Text2.Text = Round(sValor, 0) 'Arredonda o valor