hvis ugen er lige så

If datepart("ww", date(), 3,3)mod 2 = 0 Then
  'så er ugen lige!
Else
  'så er ugen ulige!
End If

//>Rune

Et mere logisk eksempel kunne være:

strWeek =  DatePart("ww",Now())
Response.Write "Uge: " & strWeek & "<br>"


If strWeek mod 2 = 0 Or strWeek = 0 Then
Response.Write "Ugen er lige"
Else
Response.Write "Ugen er ulige"
End if


Den spytter i dag dette ud:

Uge: 35
Ugen er ulige

//>Rune

Til det andet spørgsmål så:
Udgangspunkt: 1/1
Find den første torsdag i året - den ligger i uge 1. SÅ kan du finde mandag i uge 2 osv.
Med DateAdd() kan du spole et antal uger frem uf fra en dato.

//>Rune

så er jeg heller ikke stærker i asp, sorry..

med den første som jeg brugte mener du da ikke
If datepart("ww", date(), 3,3)mod 2 = 0 Then
  'så er ugen ulige!
Else
  'så er ugen lige!
End If

Jov... Det er oxo ved at være sent...

//>Rune

ok. vil gerne se hvordan jeg kan gøre det med datoen..

i feltet hvor der står : "dato" på denne side ønsker jeg at få angivet den pågælende dato til dagen : http://www.1q.frip.dk/lektie/

hvordan kan man lave en kode der tjekke for et SPECIELT ugenummer, eks
hvis ugen = 52,56, eller nogle flere så
' vis speciel uges data
hvis ugen er lige
'vis lige uges data
hvis ugen er ulige
'vis ulige uges data
end if

Til nr.2:


dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)


'Udskriver Dato fra mandag til fredag
for i = 1 to 5
  response.write WeekdayName(dato) & " - " & dato & "<br>"
  dato = DateAdd("d", 1, dato)
next

eagle hvordan sætter jeg det ind i mine tabeller.

eks hvor uge nr også er med:

ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)

response.write "<tabel>"
response.write "<tr><td colspan=""5"">"
if ugeNr MOD 2 = 0 then
  response.write "Lige uge : "
else
  response.write "Ulige uge : "
end if
response.write ugeNr
response.write "</td></tr>"
response.write "<tr>"
for i = 1 to 5
  response.write "<td>" & WeekdayName(dato) & " - " & dato & "</td>"
  dato = DateAdd("d", 1, dato)
next
response.write "</tr>"
response.write "</table>"

hov første linie:
ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)

Skal være:
ugeNr = DatePart("ww", Date, vbMonday, vbFirstFourDays)

det skulle gerne ligne min side.. den er godt nok lavet om nu men der må gerne stå..
Mandag d. 11/11 Tirsdag d. 12/11 osv.

sådan ser den ud nu.
http://www.1q.frip.dk/lektie/test.asp

hov det hedder jo table og ikke tabel:

response.write "<tabel>"

rettes til:
response.write "<table>"

For at navnet på dagen kommer med ret denne:
response.write "<td>" & WeekdayName(dato) & " - " & dato & "</td>"

Til:
response.write "<td>" & WeekdayName(Day(dato)) & " - " & dato & "</td>"

den vil ikke godtage WeekDayName.. og jeg kan ikke se tabellen, er der mulighed for at der kan laves en udregning oppe i toppen, og jeg derefter kan skrive et LILLE stykke kode det sted på siden hvor mandags dato skal står, og hvor tirsdags skal osv. ?

ret linien til med weeekday yil:


response.write "<td>" & WeekdayName(DatePart("W", dato, 2)) & " - " & dato & "</td>"

http://www.1q.frip.dk/lektie/test.asp
kan du klare den anden ?

"og jeg kan ikke se tabellen"... hvad mener du med det??? Jeg kan godt se den og du må selv sætte border/styles på tabellen som du vil havde det...:

Eks ret denne linie:
response.write "<table>"

Til denne så kommer der en ramme omkring.:
response.write "<table border=""1"">"

det ser ud som om denne linie er røget ud:
dato = DateAdd("d", 1, dato)


Prøv at rette de  linier du mellem for i = 1 to 5 og next til:

for i = 1 to 5
  response.write "<td>" & WeekdayName(DatePart("W", dato, 1)) & " - " & dato & "</td>"
  dato = DateAdd("d", 1, dato)
next

http://1q.frip.dk/lektie/test.asp
nu kommer datoerne men var det muligt at sætte et stykke kode hvor mandag skulle stå og er det muligt at forkorte formatet så årstallet kommer væk

Prøv at ændre denne linie:

response.write "<td>" & WeekdayName(DatePart("W", dato, 1)) & " - " & dato & "</td>"
 
Til:

response.write "<td>" & WeekdayName(DatePart("W", dato, 1)) & " - " & Left(dato,5) & "</td>"

Jep det fjernede 2002... tak hvad med mit andet spm ?

Kan du for en god oden skyld lige gentage det andet spørgsmål? ;)

*s* jo selvfølgelig, jeg for lidt svært ved at sætte det der ind på min nuværende side så jeg vil gerne have at der evt var en udregning af dage i den på gældende uge, også kunne jeg skriver <% dagmandag %> eller lignende også ville den skrive Mandag 11/11 det sted på siden jeg gerne vil have det.

Ok så i stedet for at lave en tabel på den måde kan du gøre sådan her:

ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)

dagMandag = WeekdayName(DatePart("W", dato, 1)) & " - " & Left(dato,5)
dato = DateAdd("d", 1, dato)
dagTirsdag = WeekdayName(DatePart("W", dato, 1)) & " - " & Left(dato,5)
dato = DateAdd("d", 1, dato)
dagOnsdag = WeekdayName(DatePart("W", dato, 1)) & " - " & Left(dato,5)
dato = DateAdd("d", 1, dato)
dagTorsdag = WeekdayName(DatePart("W", dato, 1)) & " - " & Left(dato,5)
dato = DateAdd("d", 1, dato)
dagFredag = WeekdayName(DatePart("W", dato, 1)) & " - " & Left(dato,5)


Er det sådan du mener?

så viser den ikke noget men tror vu mener der samme

http://1q.frip.dk/lektie/test.asp

Det rigtigt så udsrkiver den ikke noget.. Så skal du selv udskrive det med:

Response.write dagMandag
Response.write dagTirsdag
Response.write dagOnsdag

osv.

ja jeg har set den *s* kan du lave formatet om så den skriver Mandag med stort osv. og formatet til 11/11

Så skal de laves til dette:

dagMandag = WeekdayName(DatePart("W", dato, 1))
dagMandag = UCase(Left(dagMandag,1)) & Mid(dagMandag,2) & " " & Day(dato) & "/" & Month(dato)

%>
<%
ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
dagiuge = DatePart("W", date, 2)-1 '2 angive føste dag er mandag.:
'Find dato for mandag
dagMandag = WeekdayName(DatePart("W", dato, 1))
dagMandag = UCase(Left(dagMandag,1)) & Mid(dagMandag,2) & " " & Day(dato) & "/" & Month(dato)
dagTirsdag = WeekdayName(DatePart("W", dato, 1))
dagTirsdag = UCase(Left(dagTirsdag,1)) & Mid(dagTirsdag,2) & " " & Day(dato) & "/" & Month(dato)
dagOnsdag = WeekdayName(DatePart("W", dato, 1))
dagOnsdag = UCase(Left(dagOnsdag,1)) & Mid(dagOnsdag,2) & " " & Day(dato) & "/" & Month(dato)
dagTorsdag = WeekdayName(DatePart("W", dato, 1))
dagTorsdag = UCase(Left(dagTorsdag,1)) & Mid(dagTorsdag,2) & " " & Day(dato) & "/" & Month(dato)
dagFredag = WeekdayName(DatePart("W", dato, 1))
dagFredag = UCase(Left(dagFredag,1)) & Mid(dagFredag,2) & " " & Day(dato) & "/" & Month(dato)
%>
virker ikke

du skal havde det hele med i staten:

ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)

'Find ugens dage navne + dato
dagMandag = WeekdayName(DatePart("W", dato, 1))
dagMandag = UCase(Left(dagMandag,1)) & Mid(dagMandag,2) & " " & Day(dato) & "/" & Month(dato)
dagTirsdag = WeekdayName(DatePart("W", dato, 1))
dagTirsdag = UCase(Left(dagTirsdag,1)) & Mid(dagTirsdag,2) & " " & Day(dato) & "/" & Month(dato)
dagOnsdag = WeekdayName(DatePart("W", dato, 1))
dagOnsdag = UCase(Left(dagOnsdag,1)) & Mid(dagOnsdag,2) & " " & Day(dato) & "/" & Month(dato)
dagTorsdag = WeekdayName(DatePart("W", dato, 1))
dagTorsdag = UCase(Left(dagTorsdag,1)) & Mid(dagTorsdag,2) & " " & Day(dato) & "/" & Month(dato)
dagFredag = WeekdayName(DatePart("W", dato, 1))
dagFredag = UCase(Left(dagFredag,1)) & Mid(dagFredag,2) & " " & Day(dato) & "/" & Month(dato)

virker ikke

det virker på min

du skal udskrive med:
Response.write dagMandag

http://1q.frip.dk/lektie/

ok den tæller heller ikke dagen op..


ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)

'Find ugens dage navne + dato
dagMandag = WeekdayName(DatePart("W", dato, 1))
dagMandag = UCase(Left(dagMandag,1)) & Mid(dagMandag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagTirsdag = WeekdayName(DatePart("W", dato, 1))
dagTirsdag = UCase(Left(dagTirsdag,1)) & Mid(dagTirsdag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagOnsdag = WeekdayName(DatePart("W", dato, 1))
dagOnsdag = UCase(Left(dagOnsdag,1)) & Mid(dagOnsdag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagTorsdag = WeekdayName(DatePart("W", dato, 1))
dagTorsdag = UCase(Left(dagTorsdag,1)) & Mid(dagTorsdag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagFredag = WeekdayName(DatePart("W", dato, 1))
dagFredag = UCase(Left(dagFredag,1)) & Mid(dagFredag,2) & " " & Day(dato) & "/" & Month(dato)

YES så virker det... kan du hjælpe med valgfagene ?

det må være en deler til mine to desciple

Thx 4 Poinz

//>Rune