Jag har ett datum i en variabel.... typ

varDatum = "2003-08-18"

Detta datum skulle jag vilja få utskrivet som t.ex.

"Måndagen 18 Augusti 2003"


Men jag får inte ihop det riktigt....


För att skriva ut "dagens" datum , dvs 2003-08-21 gör jag så här....

dag = WeekdayName(weekday(date()))
dag = ucase(left(dag,1)) & mid(lcase(dag),2)
response.write dag & " " & day(date()) & " " & MonthName(month(date())) & " " & year(date())

och får då alltså ; "Fredag 22 Augusti 2003"


... men när jag lägger in ett datum i en variabel.....
hur får jag då ihop det....

Säkert lätt, men jag har kört fast :-(

<code>
Function niceDate(dteDat)

dteDat = Cdate(dteDat)
dag = WeekdayName(weekday(dteDat))
dag = ucase(left(dag,1)) & mid(lcase(dag),2)
niceDate = dag & "en" & " " & day(dteDat) & " " & MonthName(month(dteDat)) & " " & year(dteDat)

End Function

varDatum = "2003-08-18"
Response.Write niceDate(varDatum)

</code>

Great.... tackar så mycket. Funkar fint....

Du kan använda StrConv() funktionen för att ge weckodagen stor bokstav:
<code>
Function NiceDate(Value)
Dim varDate
varDate = CDate(Value)
NiceDate = StrConv(WeekdayName(Weekday(varDate)), vbProperCase) & "en den " & _
Day(varDate) & " " & _
MonthName(Month(varDate)) & " " & _
Year(varDate)
End Function
</code>