Para juanjo
Publicado por lucho (147 intervenciones) el 26/05/2008 18:55:50
Hola Juanjo:
Nuevamente te molesto con las siguientes aplicaciones con etiquetas en formulario, para hacerme el favor de indicarme donde estoy haciendo mal, del cual siempre estaré agradecido.
Del problema anterior totalmente resuelto con cuadro de textos
Private Sub cmdcalcular_Click()
Me.lbldias.Caption = Me.fecha - Me.fechanac
Me.lblmeses.Caption = DateDiff("m", fechanac, fecha)
If Day(Me.fecha) < Day(Me.fechanac) Then
Me.lblmeses = Me.lblmeses - 1
End If
Me.lblaños.Caption = Int([Me.lblmeses] / 12) & " años y " & ([Me.lblmeses] Mod 12) & " meses"
End Sub
Nuevamente te molesto con las siguientes aplicaciones con etiquetas en formulario, para hacerme el favor de indicarme donde estoy haciendo mal, del cual siempre estaré agradecido.
Del problema anterior totalmente resuelto con cuadro de textos
Private Sub cmdcalcular_Click()
Me.lbldias.Caption = Me.fecha - Me.fechanac
Me.lblmeses.Caption = DateDiff("m", fechanac, fecha)
If Day(Me.fecha) < Day(Me.fechanac) Then
Me.lblmeses = Me.lblmeses - 1
End If
Me.lblaños.Caption = Int([Me.lblmeses] / 12) & " años y " & ([Me.lblmeses] Mod 12) & " meses"
End Sub
Valora esta pregunta
0