Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
COMMAND1_CLICK '<<--Boton 'este codigo tambien lo puedes poner en el vento change del textbox, pero primero puébalo en el evento click de un boton.
dim a as currency
if text1.text=0 or text1.text<0 then msgbox "escribe algo mayor de cero" exit sub end if
a=format (text1.text,"currency") <<-- para que te dé los dos decimales