ironheadMedlem sedan mars 20011 346 inlägg Hej!
Skulle vilja skriva ut veckonummer ovanför början på varje vecka,
hur göra?
Denna kod visar månad för månad:
<html>
<body>
<%
FirstRun = 0
'# Hämta datum från QS eller dagensdatum
If Request.Querystring("date")<>"" Then
dtmDate = Request.Querystring("date")
Else
dtmDate = Date()
End IF
'# Gör om datum till namn
Function sUpperMonthName(sMonth)
sUpperMonthName = UCase(Left(sMonth,1)) & Right(sMonth, Len(sMonth)-1)
End Function
sMonthName = MonthName(Month(dtmDate))
Response.Write "<table width=""800"" cellpadding=""2"" cellspacing=""2"" border=""1""><tr>"
Response.write "<td><a href='1.asp?date=" & DateAdd("m", -1, dtmDate) & "'>«</a> </td>"
Response.Write "<td align=""center""><b>" & sUpperMonthName(sMonthName) & "</b></td>"
Response.write "<td align=""right""> <a href='1.asp?date=" & DateAdd("m", 1, dtmDate) & "'>»</a></td>"
Response.Write "</tr></table>"
%>
<table width="800" cellpadding="2" cellspacing="2" border="1">
<tr>
<td>Måndag</td><td>Tisdag</td><td>Onsdag</td><td>Torsdag</td><td>Fredag</td><td>Lördag</td><td>Söndag</td>
</tr>
<table>
<table width="800" cellpadding="2" cellspacing="2" border="1">
<tr>
<%
For i = 1 To WeekDay(DateSerial(Year(dtmDate), Month(dtmDate), "01"), vbMonday) - 1
Response.Write(" <td> </td>" & vbCrLf)
intCount = intCount + 1
Next
intDays = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(Year(dtmDate), Month(dtmDate), "01"))))
For i = 1 To intDays
If intCount Mod 7 = 0 AND intCount > 0 Then Response.Write(" </tr><tr>" & vbCrLf)
Response.Write(" <td>" & i & "<br><input type=""text"" name=""id"" size=""10""></td>" & vbCrLf)
intCount = intCount + 1
Next
If intCount Mod 7 > 0 Then
For i = (intCount Mod 7) + 1 To 7
Response.Write(" <td> </td>" & vbCrLf)
Next
End If
%>
</tr>
</table>
</body>
</html>
ironheadMedlem sedan mars 20011 346 inlägg *hmmm* Man funkar inte så bra idag...gjorde såhär:
For i = 1 To WeekDay(DateSerial(Year(dtmDate), Month(dtmDate), "01"), vbMonday) - 1
If FirstRun = 0 Then
Response.Write "<tr><td colspan=""7"" bgcolor=""#F1F1F1""><i>Vecka: " & DatePart("WW", Left(dtmDate,8) & i & "", 2, 2) & "</i></td></tr>"
FirstRun = 1
End If
Response.Write(" <td> </td>" & vbCrLf)
intCount = intCount + 1
Next
If WeekDay(DateSerial(Year(dtmDate), Month(dtmDate), "01"), vbMonday) - 1=0 Then
Response.Write "<tr><td colspan=""7"" bgcolor=""#F1F1F1""><i>Vecka: " & DatePart("WW", Left(dtmDate,8) & i & "", 2, 2) & "</i></td></tr>"
ENd If
If intCount Mod 7 = 0 AND intCount > 0 Then Response.Write(" </tr><tr><td colspan=""7"" bgcolor=""#F1F1F1""><i>Vecka: " & DatePart("WW", Left(dtmDate,8) & i & "", 2, 2) & "</i></td></tr><tr>" & vbCrLf)
J.N.Medlem sedan apr. 20031 660 inlägg
ironhead skrev:
*hmmm* Man funkar inte så bra idag...gjorde såhär:
If intCount Mod 7 = 0 AND intCount > 0 Then Response.Write("</tr><tr><td colspan=""7"" bgcolor=""#F1F1F1""><i>Vecka: " & DatePart("WW", Left(dtmDate,8) & i & "", 2, 2) & "</i></td></tr><tr>" & vbCrLf)
Synd.
Du får gärna dela med dig av vad som inte fungerar, annars blir det svårt.
Du kanske måste sätta CDate runt DataPart för att få datum-i:et att hänga ihop?
Det bör fungera lika bra, men har du inte datumet i enklare form än detta, dvs måste du använda i:et för att veta datumet?
ironheadMedlem sedan mars 20011 346 inlägg
J.N. skrev:
ironhead skrev:
*hmmm* Man funkar inte så bra idag...gjorde såhär:
If intCount Mod 7 = 0 AND intCount > 0 Then Response.Write("</tr><tr><td colspan=""7"" bgcolor=""#F1F1F1""><i>Vecka: " & DatePart("WW", Left(dtmDate,8) & i & "", 2, 2) & "</i></td></tr><tr>" & vbCrLf)
Synd.
Du får gärna dela med dig av vad som inte fungerar, annars blir det svårt.
Du kanske måste sätta CDate runt DataPart för att få datum-i:et att hänga ihop?
Det bör fungera lika bra, men har du inte datumet i enklare form än detta, dvs måste du använda i:et för att veta datumet?
Det var bara det att jag hade hårdkodat startdatum till "01" vilket gjorde att första veckan blev fel då jag började på ett nytt år.
t.ex. v53 är både för December/Januari 2004/05 och då blev det fel
