ARREDONDAR PARA CIMA

LEANDRO.LUIZ 08/12/2006 23:31:51
#188938

  
If Valor Mod 2 <> 0 Then
    Valor = Int(Valor / 2) + 1
End If

USUARIO.EXCLUIDOS 09/12/2006 00:17:58
#188939 Resposta escolhida

segura Fox....


If key = 13 Then
v_1 = CSng(Text1.Text)
If Text1.Text < 1 Then: Text1.Text = 1
v_2 = Format(CDbl(Text1.Text), "##,########")
dif = v_1 - v_2
If dif > 0 Then
v_3 = v_2 + 1
Text2.Text = v_3
End If
If dif < 0 Then
v_3 = v_2
Text2.Text = v_3
End If
If dif = 0 Then
v_3 = v_2
Text2.Text = v_3
MsgBox "O resultado gerou um numero inteiro

Abraços..

LCSD 09/12/2006 01:00:31
#188941

valeu leandro, obrigado ae...pela tentativa, mas a ideia do Idelvan deu mais certo...flws...