Datum 30 dagen ophogen werkt niet

Status
Niet open voor verdere reacties.

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Hi forum,

Ik wou graag de datum van een textbox verhogen met 30 dagen (vervaldatum) alleen krijg ik dan foutcode runtime error 5

ik gebruik deze code;

Code:
txtDatum.Value = Format(Now(), "dd-mm-yyyy")
  lblVervalDatum.Caption = DateAdd(D, 30, txtDatum.Value)

alvast bedankt
 
Code:
txtDatum.Value = Format(Date, "dd-mm-yyyy")
lblVervalDatum.Caption= Format(Date + 30, "dd-mm-yyyy")
 
Je probeert 30 op te tellen bij een string en dat kan niet. Je zal txtDatum.Value eerst moeten converteren naar een Date:
Code:
TxtDatum.Value = Format(Now(), "dd-mm-yyyy")
lblVervalDatum.Caption = Format(CDate(TxtDatum.Value) + 30, "dd-mm-yyyy")

Of gebruik direct de huidige datum, zoals gast0660 laat zien.
 
Hoi Edmoore, ik dacht dat Format(now) dat al regelde. Bedankt voor de extra info, zal daar in het vervolg rekening mee houden.
gr rob
 
De Format functie regelt alleen het uiterlijk van een waarde, niet de conversie naar een ander datatype.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan