SrcDateYEar

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