24/05/2002, 02:42
|
| | | Fecha de Ingreso: mayo-2002
Mensajes: 35
Antigüedad: 22 años Puntos: 0 | |
| Re: ¡Redondear!
la solucion de sixtex es buena pero no redondea si no que trunca los decimales
mira esta
for i =1 to len(text1.text)
if mid$(text1.text,i,1)="," then
x=mid$(text1.text,i,1)
end if
next
if x<5 then
text1.text = int(text1.text)
else
text1.text=int(text1.text)+1
end if
|