Domanda.

nome=Vincenzo
cognome=Vicarelli
versione=2000
conosco2=medio
email=amm.vicarelli@angelini.it
chra=720
problema=Vorrei sapere se esiste una funzione che agisca come fine mese
(fine.mese) per fine anno.

Esempio: 03/07/2002 deve scrivere -> 31/12/2002
08/09/2002 deve scrivere -> 31/12/2002

oppure si deve scrivere una macro o codice VBA.

Grazie per il consulto.
 

Risposta.

no Vincenzo, non mi risulta una funzione FineAnno. Te ne ho preparata una, questa:

Function FineAnno(data As Date, anni As Long) As Date
Y = Year(data)
Z = Y + anni
FineAnno = "31/12/" & Z
End Function


Dovrai inserirla in un modulo, e poi potrai richiamarla come fai per il Fine.Mese, esempio, se in A1 hai la data, e in B1 vuoi il fine anno, in B1 scrivi
=FineAnno(A1;0)
ed avrai la data di fine anno. Se al posto dello zero, come secondo argomento, metterai 2, o un'altro numero, ti verrà calcolato il fine anno della data corrente più tanti anni corrispondenti al valore immesso.
unico accorgimento: il formato cella che ospita la funzione dovrà essere di tipo Data, con il formato che vorrai tu.
ciao, fammi sapere, ennius