Programación General > Visual Basic 6.0 e inferiores

 Redondeo En Vb6

<< < (2/2)

naked-boy:
Hola amigo....
Creo que te estas ahogando en un vaso de agua :o

La respuesta ya te la dieron y no te diste cuenta:

Lo que tienes que hacer es lo siguiente (Pseudocodigo), priemero necesita unas variables donde guardar tus valores, para restarlos y sumarlos.
Yo creo que si te servirá :comp:

Text1.text= 14.5

......
Dim Var1 As Integer
Var1= val(Text1.text)
c = Round(Var1)
.....

if Text1 > c then
  Var2=Text1-c
else
  Var2=c-Text1
end fi
....

if Var2 <= 0.2 then
    ... No haces nada
Text1=c
end if

if Var2 > .03 and Var2 <7 then
Text1=  Var1 - Var2 +  0.5
end if

if Var2 > .07  then
    ... No haces nada
Text1=c
end if

Navegación

[0] Índice de Mensajes

[*] Página Anterior