PDA

Bekijk Volledige Versie : uitgebreide datumweergave met ASP



Stijn Volders
03/01/03, 14:32
Hoi Niws-s,

Het is al een paar keer behandeld geweest, maar ik kan niks nuttig
terugvinden in google...

Ik wil de datum uit een access database halen en weergeven als : vrijdag 3
januari 2003.

Het is een NT-doos met EN/US instelling, dus standaard zet dit ding de tijd
op 01/03/2003. Via Session.LCID = 1043 krijg ik zonder problemen de tijd en
datum in het Nederlandse formaat, maar de bovengenoemde notatie dus niet...

Helpt er iemand me op weg?

Alvast bedankt!

Groeten

Stijn

Jesper de Boer
03/01/03, 16:21
"Stijn Volders" <info@NOSPAMwebco.be> wrote in message
news:ZhgR9.86108$Ti2.12018@afrodite.telenet-ops.be...
> Hoi Niws-s,
>
> Het is al een paar keer behandeld geweest, maar ik kan niks nuttig
> terugvinden in google...
>
> Ik wil de datum uit een access database halen en weergeven als : vrijdag 3
> januari 2003.
>
> Het is een NT-doos met EN/US instelling, dus standaard zet dit ding de
tijd
> op 01/03/2003. Via Session.LCID = 1043 krijg ik zonder problemen de tijd
en
> datum in het Nederlandse formaat, maar de bovengenoemde notatie dus
niet...
>
> Helpt er iemand me op weg?

Ik gebruik onderstaand script, het is vast niet het korste/snelste script,
maar het werkt.
<%
datum = objrs("datum")
dag = day(datum)
jaar = year(datum)
Select Case month(datum)
case "1" maand = "januari"
case "2" maand = "februari"
case "3" maand = "maart"
case "4" maand = "april"
case "5" maand = "mei"
case "6" maand = "juni"
case "7" maand = "juli"
case "8" maand = "augustus"
case "9" maand = "september"
case "10" maand = "oktober"
case "11" maand = "november"
case "12" maand = "december"
End select
Select case Weekday(datum)
case "1" soortdag="zondag"
case "2" soortdag="maandag"
case "3" soortdag="dinsdag"
case "4" soortdag="woensdag"
case "5" soortdag="donderdag"
case "6" soortdag="vrijdag"
case "7" soortdag="zaterdag"
end select
minuut = minute(datum)
if minuut < 10 then
minuut = "0" & minuut
end if
seconde = second(datum)
if seconde < 10 then
seconde = "0" & seconde
end if
tijd = hour(datum) & ":" & minuut & ":" & seconde

Response.Write soortdag & " " & dag & " " & maand & " " & jaar & " om " &
tijd
%>

Jesper de Boer