vervaldatum berekenen

[fonzie]

Graag enige help voor een noob,
Ik heb net men eertse database aangemaakt en alles verloopt vrij vlot, echter zou ik graag een vervaldatum berekenen die normaal de datum is + 30dagen einde maand. Ik kan de manier niet vinden om de juiste expressie te maken, enige tips???

 

[beheer25]

De expressie: =Date()+30


Grtz,

 

[fonzie]

Bedank voor de reactie beheer, maar dit is niet de oplossing daar hij nu 30 dagen bij de huidige datum voert, ik heb bv in "datum" staan 12 jan en wil dan in vak "vervaldatum "28 feb krijgen, hij moet de laatste dag van de volgende maand opgeven

 

[fonzie]

heb het gevonden, de oplossing was :
Function lastofthismonth(thisdate As Variant) As Variant
If CLng(thisdate) = 0 Then thisdate = Date
lastofthismonth = DateSerial(Year(thisdate), Month(thisdate) + 2, 1) - 1
End Function

 

[ilse DD]

waarom VBA ?

het kan ook zonder vba, schrijf onderstaande formule als besturingselementenbron van een tekstvak.

In dit voorbeeld staat de basisdatum (vb12/1/2005) in txtdat1

indien deze "txtdat1" het juiste formaat mee krijgt is de Cdate midden in de formule (2X) overbodig. Indien je zekerheid wilt laat je hem er beter bijstaan.

=CDate("1/" & (Month(CDate([txtdat1])+62)) & "/" & Year(CDate([txtdat1])+62))-1

 

[fonzie]

thx ilse DD
Deze werkt idd zonder het gebruik van vba:thumb: