datum plus 5 jaar

[dinoshop]

zoek een code die dit omzet in bv 02-03-2000 en dat moet dan worden 02-03-2005

ik gebruik nu deze =Year([Gekeurd Op])+[Keurings frequentie PJ] en krijg dus 2005 en niet de gehele datum .

 

[OctaFish]

Gebruik DateAdd om dat uit te rekenen:

Sub testje()
    MsgBox DateAdd("yyyy", 5, Date)
End Sub

Werkt uiteraard ook in een query.

 

[dinoshop]

helaas niet goed begrepen
de input is dus [gekeurd op] en daarbij moet hij dus de jaren die ingevuld staan in [Keurings frequentie PJ] dit kan 1 jaar maar ook 5 of 10 jaar staan.
deze datum van gekeurd op moet hiermee dus worden aangepast en dat doe de regel ook goed maar ik zou dus dd,mm,yyyy willen zien in plaats alleen yyyyy

 

[edmoor]

Ik denk dat Octafish het juiste voorbeeld geeft maar dat je die zo wilt gebruiken:

Sub testje()
    MsgBox DateAdd("yyyy", 5, [Gekeurd Op])
End Sub

 

[OctaFish]

Bijna goed Ed

Terugkomdatum: DateAdd("yyyy";[Keurings frequentie PJ];([gekeurd op])

 

[edmoor]

Ik zeg niks, want dan heb ik weer het laatste woord!

 

[OctaFish]

Het laatste woord is natuurlijk altijd aan TS.

 

[edmoor]

Uiteraard. Het was ook maar een geintje

 

[dinoshop]

Thanks boy`s