25. januar 2004 - 16:53
Der er
3 kommentarer og
1 løsning
Generering af datoer..
Jeg skal bruge noget kode der autogenerer en masse datoer på bestemte ugedage, men ved ikke hvor jeg skal starte og hvordan det skal udformes så ville høre hvordan i ville gøre det..
Princippet er følgende: en person vælger f.eks. 2 faste ugedage - mandag og onsdag. Og personen vælger i hvilket tidsrum dagene skal være - f.eks. august04-marts05 og koden skal nu skrive til en access db alle datoerne for mandag og onsdag - f.eks. Onsdag 25. august 2004 ind i en db..
Hvordan griber jeg det an?
25. januar 2004 - 18:56
#1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
Dim objStartDate : objStartDate = DateSerial( "2004", "08", "01" )
Dim objStopDate : objStopDate = DateSerial( "2005", "03", "01" )
Dim intCounter : intCounter = 1
Dim objNewDate : objNewDate = objStartDate
Dim intDayOfWeek, strDayOfWeek, strDayToPresent
Dim arrWeekDays : arrWeekdays = SPLIT( "Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag", "," )
Dim arrMonths : arrMonths = SPLIT( "januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december", "," )
while DateDiff( "d", objNewDate, objStopDate ) > 0
objNewDate = DateAdd( "d", intCounter, objStartDate )
intCounter = intCounter + 1
intDayOfWeek = Weekday( objNewDate, 1 )
if intDayOfWeek = 1 or intDayOfWeek = 3 Then
strDayOfWeek = arrWeekDays( intDayOfWeek - 1 )
strDayToPresent = strDayOfWeek & " " & Day( objNewDate ) & ". " & arrMonths( Month( objNewDate ) - 1 ) & " " & Year( objNewDate ) '
Response.Write( strDayToPresent & "<br>" )
end if
wend
%>
</body>
</html>
/nute
