Ik wil binnen Viual Basic het getal verkrijgen van een datum, bijv 1-1-1900 moet 1 leveren,
22-7-1952 moet 191797 leveren.
Mijn datum notatie is "1952-07-22",
MsgBox DateSerial(lngJaar, lngMaand, lngDag) 'Levert 22-07-1952, maar ik wil 19157 zien.
22-7-1952 moet 191797 leveren.
Mijn datum notatie is "1952-07-22",
Code:
strInput = "1952-07-22"
lngJaar = CLng(Left(strInput, 4))
lngMaand = CLng(Mid(strInput, 6, 2))
lngDag = CLng(Mid(strInput, 9, 20))MsgBox DateSerial(lngJaar, lngMaand, lngDag) 'Levert 22-07-1952, maar ik wil 19157 zien.
Laatst bewerkt door een moderator:
