datum probleempje

[JohnyBoy]

Beste, kan iemand mij helpen aan de formule om bij een datum: vb 21/03/2012 60 jaar bij te tellen zodat in een andere veld het volgende verschijnt 21/03/2072. Dit moet ik voor een hele lijst doen en handmatig is dit te veel werk. Ik geraak er maar niet aan uit en zou een beetje hulp heel erg appreciëren. Vriendelijke groeten, Johny

 

[plagvreugd]

Stel in B1 staat genoemde datum (ook echt met datumformaat), dan werkt bij mij deze formule prima:

=B1+365,25*60

Grt,
plagvreugd.

 

[popipipo]

=DATE(YEAR(A1)+60;MONTH(A1);DAY(A1))

De bekende andere weg naar Rome

 

[danny147]

Beste JohnyBoy

OF

=DATUM(JAAR(A1)+60;MAAND(A1);DAG(A1))

In A1 staat de datum.

Groetjes Danny. :thumb:

PS: Willem was mij voor, maar je hebt het dan in de Nederlandse versie ook.

 

[danny147]

Beste plagvreugd

Kijk eens naar de volgende uitkomsten met uw voorbeeld met de datum van vandaag :

=B1+365,25*60 = 7-2-2070

=B1+365,25*59 = 6-2-2069

=B1+365,25*58 = 7-2-2068

=B1+365,25*57 = 7-2-2067

=B1+365,25*56 = 7-2-2066

Groetjes Danny. :thumb:

 

[ReneDirks]

Makkelijkst: Functie in VBA zetten en daar dan naar verwijzen:

Public Function NewDate(dDate As Date) As Date
    NewDate = DateAdd("yyyy", 60, dDate)
End Function

Zie bijlage

 

[plagvreugd]

Beste plagvreugd

Kijk eens naar de volgende uitkomsten met uw voorbeeld met de datum van vandaag :

=B1+365,25*60 = 7-2-2070

=B1+365,25*59 = 6-2-2069

=B1+365,25*58 = 7-2-2068

=B1+365,25*57 = 7-2-2067

=B1+365,25*56 = 7-2-2066

Groetjes Danny. :thumb:

*bloos doe*

 

[danny147]

Beste ReneDirks

Makkelijkst: Functie in VBA zetten en daar dan naar verwijzen:

Als je het aantal jaren wilt wijzigen moet men steeds naar de VBA editor gaan om te wijzigen.

Makkelijkst ???

Groetjes Danny. :thumb:

 

[ReneDirks]

Nou, dan pas je toch gewoon de functie aan, zo moeilijk is dat niet hoor:

Public Function NewDate(dDate As Date, iYears as integer ) As Date
    NewDate = DateAdd("yyyy", iYears, dDate)
End Function

 

[HSV]

Ook nog een duit in het zakje.
=ZELFDE.DAG(A2;60*12)
of:
=ZELFDE.DAG(A2;720)
of verwijzen naar C2 waar dan het aantal maanden je erbij wil staat.
=ZELFDE.DAG(A2;C2)

 

[JohnyBoy]

bedankt

Iedereen,

bedankt, de lijst is ondertussen aangepast en het resultaat is bevredigend. Er zijn inderdaad verschillende mogelijkheden-formules. Ik dank u allen zeer hartelijk en wens u nog een prettig weekend. :thumb::thumb::thumb:

 

[danny147]

Beste JohnyBoy

Blij dat je geholpen bent.
Ook een prettig weekend nog gewenst.

Kan je dan ook de vraag op opgelost zetten, onderaan rechts.

Groetjes Danny. :thumb:

 

[JohnyBoy]

bedankt

:thumb: