Formatera Datum

Hej

Hittade den här snutten i scriptforumet:

<%
Function DateAndTime(datum)
Dim Dagen, Manaden, Aret, ReManaden
Dagen = Right(datum, 2)
Manaden = Mid(datum, 6, 2)
	Select Case Manaden
		Case 1 : 	ReManaden="januari"
		Case 2 : 	ReManaden="februari" 
		Case 3 : 	ReManaden="mars" 
		Case 4 : 	ReManaden="april" 
		Case 5 : 	ReManaden="maj" 
		Case 6 : 	ReManaden="juni" 
		Case 7 : 	ReManaden="juli" 
		Case 8 : 	ReManaden="augusti" 
		Case 9 : 	ReManaden="september" 
		Case 10 : ReManaden="oktober" 
		Case 11 : ReManaden="november" 
		Case 12 : ReManaden="december" 
	End Select
Aret = Left(datum, 4)

DateAndTime = Dagen & " " & ReManaden & " år " & Aret
End Function

Response.Write DateAndTime(date)
%>

...Vilket funkar bra, men...

Jag vill ha formatet:

Den 19**:e** Maj 2003

Likaså om datumet tex är "den 21**:a**"

Hur ska det se ut?

forsta a framst sa ar den dar koden valdigt onodig. Men men... for att fa 3:e och 1:a osv.. if sats... du far helt enkelt gora nagon if-sats.... hmm... kan bli en javla massa kod iofs.. inte bra.. hmm... regexp kanske? :D

En början

Dim Dagen, Manaden, Aret, ReManaden
Dagen = Right(datum, 2)
Manaden = Mid(datum, 6, 2)
	Select Case Manaden
		Case 1 : 	ReManaden="januari"
		Case 2 : 	ReManaden="februari" 
		Case 3 : 	ReManaden="mars" 
		Case 4 : 	ReManaden="april" 
		Case 5 : 	ReManaden="maj" 
		Case 6 : 	ReManaden="juni" 
		Case 7 : 	ReManaden="juli" 
		Case 8 : 	ReManaden="augusti" 
		Case 9 : 	ReManaden="september" 
		Case 10 : ReManaden="oktober" 
		Case 11 : ReManaden="november" 
		Case 12 : ReManaden="december" 
	End Select
Aret = Left(datum, 4)

Select Case dagen
		Case 1 : 	ReDagen="1:a"
		Case 2 : 	ReDagen="2:a" 
		Case 3 : 	ReDagen="3:e" 
                                [b][red]osv.[/red][/b]
	End Select

response.write ReDagen & ReManaden & aret

Ja, just detm så kan man ju göra. Tack

men blir en javla massa kod, se om det inte finns battre satt? :)

Jo, det blev det, men det funakr, det är huvudsaken.

Tror itne det spelar s¨stor roll i mitt fall, för det enda som finns på den sidan är en tabell med en cell, där datumet skrivs ut, tack ;)