Vandaag een half uur bezig geweest over iets dat eigenlijk in een minuutje zou moeten kunnen.
Ik kreeg een begin- en einddatum, en moest daar de dagen ertussen (inclusief de 2 gegeven datums) uithalen.
Eerst geprobeerd met een "for each"-loop, dit werkte niet.
Dan met een for i = 0 to ...-loop, maar dan had ik 't probleem dat een "date+1" niet ging.
Dan uiteindelijk gevonden, de functie .addDays() lost veel op:
mlstUitgeleendeDatums.Add(datum)
datum = datum.AddDays(1)
Dim datum As Date = oUitlening.Begindatum.DateWhile datum < oUitlening.Eindtijdstip.Date.AddDays(1)End While
Geen opmerkingen:
Een reactie posten