Datevalue(1/1/2000) = 01/05/2000

[WhiteSky]

Hey,

Ik heb het volgende in mijn code staan:

If rngGegevens.Cells(intRijGegevens, 3).Value = "NVT" Or rngGegevens.Cells(intRijGegevens, 3) = "" Then rngTabel.Cells(intRij, 2).Value = DateValue(1 / 1 / 2000) Else rngTabel.Cells(intRij, 2).Value = rngGegevens.Cells(intRijGegevens, 3).Value

Ik verwacht hierbij te zien dat als in rnggegevens die bepaalde cel leeg is of hier "NVT" instaat, er in rngTabel dan 01/01/2000 wordt gezet.
Echter komt in deze cel dan 01/05/2000 te staan.
Dit maakt niet echt uit (omdat ik in de verdere code het verschil tussen deze datum en een andere ga nemen, en met een datum uit het jaar 2000 valt het op dat het aantal dagen veel te groot is en er dus iets niet klopt aan de originele gegevens). Maar ik vraag me gewoon af waarom ipv 1 januari er 1 mei komt te staan?

Mvg,

Karen

 

[AHulpje]

Zoek de verschillen:

Cells(1, 1) = DateValue("1 / 1 / 2000")
Cells(2, 1) = DateValue(1 / 1 / 2000)

 

[snb]

In VBA:

Sub M_snb()
   MsgBox DateValue("01/01/2000")
   MsgBox DateValue(1 / 1 / 2000)
   MsgBox CDate("01/01/2000")
   MsgBox CDate(1 / 1 / 2000)
End Sub