Calc18Anni
Private Function Stato(Data_Nascita As Date) As String If DateDiff("d", Data_Nascita, DateAdd("yyyy", -18, Date)) >= 0 Then Stato = "MAGGIORENNE" Else Stato = "MINORENNE" End If End Function
Private Function Stato(Data_Nascita As Date) As String
If DateDiff("d", Data_Nascita, DateAdd("yyyy", -18, Date)) >= 0 Then
Stato = "MAGGIORENNE"
Else
Stato = "MINORENNE"
End If
End Function
( calc18anni.html )- by Paolo Puglisi
- Modifica del 17/12/2023