Visual Basic - re:

Life is soft - evento anual de software empresarial
 
Vista:

re:

Publicado por maicol (3 intervenciones) el 17/09/2004 16:56:51
que tal miguel gracias por contestar . . .
mira ya hice la calculadora solo me faltan el detalle de la entrada de datos, no busco como aplicar el maskedbox, esto es lo que tengo:

es una ventana con 2 textbox, 1 commandbutton y 1 label

el codigo es:

Option Explicit

Private Sub Command1_Click()

Command1.Caption = \"¡Calculando!\"
Dim nac As Variant, lim As Variant
Dim anios As Integer, meses As Integer
Dim ndias As Double

nac = DateValue(Text1)
lim = DateValue(Text2)
ndias = lim - nac
anios = Int(ndias / 365.25)
ndias = ndias - (365.25 * anios)
meses = Int(ndias / 30.4375)
Label1 = anios & \" años y \" & meses & \" meses\"
Command1.Caption = \"¡LISTO!\"
End Sub

Private Sub Form_Load()
Text1 = DateValue(Now)
Text2 = DateValue(Now + 1)
Command1.Caption = \"Calcular!\"

End Sub

Private Sub text1_Click()
Command1.Caption = \"Calcular!\"
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder