Schrikkeljaarprobleem

[NIh1IlO]

Hello Excelspecialisten

ik heb verschillende kolommen in een werkblad staan die vervaldata bevatten.
Ik zou willen dat op de vervaldatum zelf de datum automatisch wordt verlengd met 1 jaar (zelfde datum maar één jaar verder).
Voor de niet-schrikkeljaren kan men dit ondervangen door in een formule +365 toe te voegen; maar wat met het schrikkeljaar zelf. Ik zou liefst de beide problemen verwerkt zijn in één formule of één totaaloplossing.
Moet ik een nieuwe kolom openen om aan celverwijzing te kunnen doen?
Is mijn aanpak correct of bestaat er een meer algemene en betere formule die mijn probleem ondervangt.
Of moet het sowieso met een macro gebeuren? Indien ja, hoe moet die er dan uitzien?
Ik werk met Windows XP en met Excel 2000.

Ik hoop het probleem goed te hebben verwoord en kijk al uit naar een degelijke oplossing.

Met vriendelijke groeten en beste dank al op voorhand.

nih1IlO

 

[DIEZEL]

Kolom A = datum
A2 = A1 + 1 etc.

In kolom B (beginnen in B1):
=ALS(EN(REST(JAAR(A1);4)=0;MAAND(A1)=2;DAG(A1)=29);ZELFDE.DAG(A1;12);ALS(REST(JAAR(A1+365);4)=0;A1+366;ZELFDE.DAG(A1;12)))

 

[DIEZEL]

:8-0: Bij de jaarovergang van een NIET-schrikkeljaar naar een schrikkerljaar zit nog een fout.
Wordt morgenochtend.

Deze werkt beter (check hem nog wel even als je wilt).
=ALS(EN(REST(JAAR(A1);4)=0;MAAND(A1)=2;DAG(A1)=29);ZELFDE.DAG(A1;12);ALS(EN(REST(JAAR(A1+365);4)=0;DAG(A1+366)=29);A1+366;ZELFDE.DAG(A1;12)))

 

[NIh1IlO]

Hello DIEZEL

er steekt inderdaad nog een foutje in: bij de datum 28/02/2007 bvb is het resultaat van de beide formules 29/02/2008; het zou moeten 28/02/2008 zijn.
Het resultaat van de formule voor datum 29/02/2008 is echter dan wel correct: 28/02/2009.

Ik kijk uit naar dè perfecte formule!

Met vriendelijke groeten

nIh1ilO

 

[DIEZEL]

Was uitgegaan van 28/02/2007 = end of month zodat een jaar later 29/02/2008 end of month is. Vandaar.

Vanavond lukt niet, morgen gehele dag weg, wellicht morgenavond.
Groet,

 

[NuMan]

probeer deze formule:
=DATUM(JAAR(A1)+1;MAAND(A1);ALS(EN(MAAND(A1)=2;DAG(A1)=29);28;DAG(A1)))
succes, NuMan

 

[NIh1IlO]

Hello NuMan

deze formule doet het perfect!

Van harte bedankt!
Ook mijn dank aan DIEZEL voor het meedenken.

Nog veel suc6 met jullie bijstandsactiviteiten.

Vriendelijke groeten van

nIh1IlO

 

[DIEZEL]

Complimenten aan NuMan. Deze is veel mooier. :thumb:
NIh1IO, graag meegedacht, leer ik zelf ook van.