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\"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
