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 |