Private Sub Calendar_Click()
Dim lngDays As Long
lblFPP.Caption = DateAdd("d", 280, Calendar.DateValue)
lngDays = DateDiff("d", Calendar.DateValue, Now)
lblGestAge.Caption = Int(lngDays / 7) & " Sem y " & lngDays Mod 7 & " días"
lbldate.Caption = Format(Calendar.DateValue, "dd/mmmm/yyyy")
cmdOK.Enabled = True
End Sub