Datum mellan datum

[Moonman]

Halo.

Jag vet att det finns många trådar om detta på forumet men jag hittade ingen som riktigt hjälper mig. Jag undrar om det finns någon komponent som om man ger den två datum spottar ut alla datum emellan. Datumen ska självklart vara korrekta och den ska klara av skottår. Finns det något sådant eller är det bara att sätta sig och koda?

mvh Alex Robsahm
www.kroginspektionen.nu

[Sebbe]

<%
Session.LCID = 1053
Dim dtmStart, dtmStop, intMellan, i

dtmStart = "2003-01-23"
dtmStop = "2003-02-17"
intMellan = DateDiff("d",dtmStart,dtmStop)

For i = intMellan - 1 To 1 Step -1
  Response.Write(DateAdd("d",i,dtmStart) & "<br>")
Next
%>

Funkar bra för mig.

[@nders]

Jag slog ihop en liten funktion åt dig, som returnerar en array med alla datum mellan de två du specificerar. Den går ju att ändra så du får precis den funktionalitet du vill ha, jag vet inte hur du ska använda datumen.

Eftersom jag endast använder riktiga datumfunktioner, så är det säkert att endast giltiga datum returneras.

<%
Function GetDateList(ByVal dteDate1, ByVal dteDate2)
	dim varDateArray(), varTempDate, p
	varTempDate = dteDate1
	Redim varDateArray(0)
	for i = 0 to Datediff("d", dteDate1, dteDate2) - 2 
		Redim Preserve varDateArray(i)
		varTempDate = DateAdd("d", 1, varTempDate)
		varDateArray(i) = varTempDate
	next
	GetDateList = varDateArray
End Function

varAllDates = GetDateList (#2003-02-11#, #2003-06-01#)

for i = 0 to ubound(varAllDates)
	Response.Write varAllDates(i) & "<br>"
next
%>

Mvh,

[Moonman]

Tack så hemskt mycket grabbar... Det var mycket mer än vad jag frågade om men jag är otroligt glad över svaren... bara att modifiera om efter mitt egna behov =)

Tack än en gång Alex Robsahm
www.kroginspektionen.nu