11. september 2001 - 10:12Der er
8 kommentarer og 1 løsning
Jeg vil om mandagen vise artikler der er op til 3 dage gamle
Jeg vil om mandagen vise artikler der er op til 3 dage gamle, og de resterende skal vise de sidste 2 dages artikler.
Jeg får samme output på alle dagene..
Hvad gør jeg galt??
\'UDREGNER HVILKEN DATO DER SKAL VISES ARTIKLER FRA Select Case CStr(Weekday(Date, 2)) Case \"1\" UdregnetDato = Date - 3 \'MANDAG Case \"2\" UdregnetDato = Date - 1 \'TIRSDAG Case \"3\" UdregnetDato = Date - 1 \'ONSDAG Case \"4\" UdregnetDato = Date - 1 \'TORSDAG Case \"5\" UdregnetDato = Date - 1 \'FREDAG Case \"6\" UdregnetDato = Date - 1 \'LØRDAG Case \"7\" UdregnetDato = Date - 1 \'SØNDAG End Select
strSql = \"SELECT ArtikelID, Sektion, Overskrift, ModtagetDato, From Artikel WHERE ModtagetDato > \" & UdregnetDato & \" ORDER BY ModtagetDato DESC\"
Returns a whole number representing the day of the week.
Syntax Weekday(date, [firstdayofweek]) The Weekday function syntax has these arguments:
Part Description date Any expression that can represent a date. If date contains Null, Null is returned. firstdayofweek A constant that specifies the first day of the week. If omitted, vbSunday is assumed.
If Weekday(UdregnetDato) = 2 Then UdregnetDato = DateAdd(\"d\", -3, UdregnetDato) Else UdregnetDato = DateAdd(\"d\", -1, UdregnetDato) End If
MsgBox UdregnetDato End
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
