Mat - Ottenere La Data DelPrimo E Dell'ultimo Giorno Dell'anno

Visual # Una funzione utile quando vogliamo conoscere il primo o l'ultimo giorno di
un'anno, relativo ad una specifica data passatagli come valore
Function TrovaPrimoUltimoGiornoAnno(Data As Variant, Flag As Integer) As String
'Nella variabile Flag si specifica se si vuole il primo o l'ultimo giorno

dell'anno
'---- Flag = True primo giorno

'---- Flag = False ultimo giorno

If Data = 0 Then
Data = Date
End If
If Flag Then
TrovaPrimoUltimoGiornoAnno = DateSerial(Year(Data), 1, 1)
Else
TrovaPrimoUltimoGiornoAnno = DateSerial(Year(Data), 12, 31)
End If
End Function