---
title: "Formatera Datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77361-formatera-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-05-18T23:16:53.000Z"
updated: "2003-05-19T14:15:42.000Z"
replies: 5
views: 252
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/77361-formatera-datum"
---

# Formatera Datum

## #1 — MickeA.com, 2003-05-18T23:16Z

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?

Permalänk: https://www.webforum.nu/p/77361

## #2 — crisse6, 2003-05-19T02:04Z

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

Permalänk: https://www.webforum.nu/p/1055525

## #3 — Addeladde, 2003-05-19T02:29Z

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
```

Permalänk: https://www.webforum.nu/p/1055526

## #4 — MickeA.com, 2003-05-19T10:55Z

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

Permalänk: https://www.webforum.nu/p/1055716

## #5 — crisse6, 2003-05-19T13:00Z

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

Permalänk: https://www.webforum.nu/p/1055834

## #6 — MickeA.com, 2003-05-19T14:15Z

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 ;)

Permalänk: https://www.webforum.nu/p/1055918

---

Tråden på webben: https://www.webforum.nu/amne/asp/77361-formatera-datum