[ASP] Datum-kolom, weekenden andere kleur geven

[CmdrKeen]

Mooi, mijn IIS is weer gefixt, nu kan ik weer verder scripten [Search used, MSKB ook.]

Ik maak een reserveringslijst voor allerlei spullen die gebruikertjes kunnen lenen. Het is een Access-tabelletje waarvan één kolom (de prim. key zelfs) de datum is.

Nu hou ik van een overzichtelijke opmaak, en wil ik dat alle rijen die zaterdag of zondag zijn, een andere kleur krijgen. Hoe kan ik dat voor elkaar krijgen in ASP? In Access is het veldtype "Lange datumnotatie", en krijg ik netjes "Woensdag 30 januari 2002" te zien, maar in ASP blijft het bij "30-1-2002". Ik weet dat je uit kan rekenen of een bepaalde datum in het weekend valt, maar voordat ik mijn brein daarover ga breken, gooi ik het hier even in de groep.

Kan ik zoiets doen als onderstaande code?

IF rs("datum") = "zaterdag" THEN
Set bgcol = grey
END IF

Dit werkt natuurlijk niet, maar is er een truuk voor of niet?

[Nielsz]

dayofweek() ofzo is dacht ik een functie.

[Verwijderd]

If Weekday(dDate) = 6 or Weekday(dDate) = 0 Then
...
End If

[CmdrKeen]

Weekday(datum) werkt idd! Alleen zijn de dagen in mijn IIS (Win XP) niet van 0 t/m 6 maar van 1 t/m 7 genummerd. Verschilt dat nog van IIS tot IIS? En ligt het misschien zelfs aan de user of system locale?

[Gert]

Ligt aan systeem instelling, je hebt zeker NL instelling?

[TeeDee]

zoek eens op LCID (op MSDN, of hiero)

daar kan je meer mee doen

hoef je je systeem instelling niet aan te passen

/edit:


meer info hiero

/edit2:
voor gebruik bijv.:

code:

session.LCID=1043 ' is nederlands

[CmdrKeen]

Het gaat niet echt om *mijn* systeeminstelling, maar meer of het überhaupt aan de systeeminstelling ligt. Het moet natuurlijk niet zo zijn dat dag 1 voor de ene gebruiker zondag is en voor de andere maandag.

Dan nog maakt het trouwens niet zo veel uit, omdat het een intranet-toepassing betreft, en alle clients hebben identieke instellingen.

[TeeDee]

met session.lcid kan je voor die specifieke page je standaard setting veranderen.
je zou daar mee kunnen rommelen

/edit:

meer over datum en tijd

http://msdn.microsoft.com/library/en-us/script56/html/vsconDateTime.asp

[CmdrKeen]

Hey tenks /Edit - sorry voor de onnodige *Kick - was enthousiast..

[PhoneTech]

Omdat ik in een goede bui ben vandaag, heb ik een stukje geript uit de MSDN Library CD's

Description
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.


Settings
The firstdayofweek argument has these settings:
Constant Value Description
vbUseSystem 0 Use National Language Support (NLS) API setting.
vbSunday 1 Sunday
vbMonday 2 Monday
vbTuesday 3 Tuesday
vbWednesday 4 Wednesday
vbThursday 5 Thursday
vbFriday 6 Friday
vbSaturday 7 Saturday


Return Values
The Weekday function can return any of these values:
Constant Value Description
vbSunday 1 Sunday
vbMonday 2 Monday
vbTuesday 3 Tuesday
vbWednesday 4 Wednesday
vbThursday 5 Thursday
vbFriday 6 Friday
vbSaturday 7 Saturday


Remarks
The following example uses the Weekday function to obtain the day of the week from a specified date:
Dim MyDate, MyWeekDay
MyDate = #October 19, 1962# ' Assign a date.
MyWeekDay = Weekday(MyDate) ' MyWeekDay contains 6 because
' MyDate represents a Friday.


Je kan dus aangeven wanneer je de dag wil starten.

En als je de naam van de dag zelfs wil weten, heeft MS ook een handige WeekdayName functie er in zitten:
Description
Returns a string indicating the specified day of the week.
Syntax
WeekdayName(weekday, abbreviate, firstdayofweek)
The WeekdayName function syntax has these parts:

Part Description
weekday Required. The numeric designation for the day of the week. Numeric value of each day depends on setting of the firstdayofweek setting.
abbreviate Optional. Boolean value that indicates if the weekday name is to be abbreviated. If omitted, the default is False, which means that the weekday name is not abbreviated.
firstdayofweek Optional. Numeric value indicating the first day of the week. See Settings section for values.


Settings
The firstdayofweek argument can have the following values:
Constant Value Description
vbUseSystem 0 Use National Language Support (NLS) API setting.
vbSunday 1 Sunday (default)
vbMonday 2 Monday
vbTuesday 3 Tuesday
vbWednesday 4 Wednesday
vbThursday 5 Thursday
vbFriday 6 Friday
vbSaturday 7 Saturday


Remarks
The following example uses the WeekDayName function to return the specified day:
Dim MyDate
MyDate = WeekDayName(6, True) 'MyDate contains Fri.

Hoop dat je er wat mee kan!

[4of9]

je kunt gewoon een tellertje maken en daarop de kleur aanpassen.

Ik gebruik de volgende code om kleurtjes om en om te later verschijnen (mischien heb je er iets aan)

code:

Dim SQLQuery
Dim i
Dim strColor

i = 0

SQLQuery = "SELECT * FROM Tabel WHERE ID > 0 ORDER BY ID"

getDB rs, SQLQuery

Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"">"

If rs.EOF then 
    Response.Write "Er zijn nog geen intems ingevoerd."
Else
    Do While NOT rs.EOF
        i = i + 1
        
            if (i Mod 2) <> 0 then 
                    strColor = "#000000"     
            Else
                    strColor = "#5f5f5f"
            End if
        
        Response.Write "<tr><td width=""100"" bgcolor=""" & strColor & """>" & rs.Fields("Blaat") & "</td></tr>"
        rs.Movenext
    Loop
End If

Response.Write "</table>"