|
Modules |
| 5.70 Calcolare l'età in anni ed in mesi |
| Microsoft |
|
La funzione che segue serve a determinare il numero di anni compiuti nell'ultimo compleanno. '*************************************************************
' NOME della FUNZIONE: Age()
'
' SCOPO:
' Calcolare l'etā espressa in anni da una specifica data sino alla data odierna.
'
' PARAMETRI di INPUT:
' varBirthDate: La data di inizio (ad esempio, una data di nascita).
'
' RISULTATO:
' Etā espressa in anni.
'
'*************************************************************
Function Age (varBirthDate As Variant) As Integer
Dim varAge As Variant
If IsNull(varBirthdate) then Age = 0: Exit Function
varAge = DateDiff("yyyy", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
La funzione che segue serve invece a determinare quanti mesi sono passati dall'ultimo compleanno:'*************************************************************
' NOME della FUNZIONE: AgeMonths()
'
' SCOPO:
' Se la data fornita alla funzione č una data di nascita verrā restituito
' il numero di mesi passati dall'ultimo compleanno.
'
' INPUT PARAMETERS:
' StartDate: La data di inizio (ad esempio, una data di nascita).
'
' RISULTATO
' I mesi passati dall'ultimo compleanno
'*************************************************************
Function AgeMonths(ByVal StartDate As String) As Integer
Dim tAge As Double
tAge = (DateDiff("m", StartDate, Now))
If (DatePart("d", StartDate) > DatePart("d", Now)) Then
tAge = tAge - 1
End If
If tAge < 0 Then
tAge = tAge + 1
End If
AgeMonths = CInt(tAge Mod 12)
End Function
Quindi lanciando ambedue la funzioni è possibile ottenere il calcolo dell'età espressa in anni e mesi.Queste due funzioni sono state tratte dall'articolo Microsoft Knowledge Base - 210522. |