---
title: "datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12032-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-10-05T12:28:00.000Z"
updated: "2001-10-10T14:47:00.000Z"
replies: 11
views: 233
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/12032-datum"
---

# datum

## #1 — aleborg, 2001-10-05T12:28Z

Jag har följande kod:

\<% Session.LCID=1033 %\>\<%=replace(left(topic("DevTopMod"),10),"/",".")%\>

där topic("DevTopMod") innehåller ett datum.
När jag skriver ut det får jag:
10\.10.2000
men om månad och dag är mindre än 10 så får jag:
9\.6.2001 9

Hur löser jag det?

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

## #2 — Brimba, 2001-10-05T12:43Z

```
If not IsNumeric(left(topic("DevTopMod"),2)) Then 
xdate = "0" & left(topic("DevTopMod"),1) 
else
xdate = left(topic("DevTopMod"),2) 
End If
```

osv... 

kan även hända att FormatDateTime() kan klara det :)
Prova dig fram med den funktionen :)

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

## #3 — aleborg, 2001-10-05T13:00Z

Det funkade inte :(
Fick overflow 'Cint'

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

## #4 — Brimba, 2001-10-05T13:10Z

oops :)
Kolla mitt exempel nu, fixade lite :e

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

## #5 — aleborg, 2001-10-09T12:37Z

Nur får jag bara ut månaden :(
behöver få ut 03.06.2001

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

## #6 — LarsG, 2001-10-09T14:45Z

```
'
'yd innehåller dataumvärdet som skall 
'skrivas ut
'
ydate = right("0"&day(yd),2) & "." & right("0"&month(yd),2) & "." & year(yd)
```

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

## #7 — Brimba, 2001-10-09T15:04Z

```
<%
If InStr(topic("DevTopMod"),".") < 3 or InStr(mid(topic("DevTopMod"), InStr(topic("DevTopMod"),".")+1, len(topic("DevTopMod"))), ".") <3 Then 
	If InStr(topic("DevTopMod"),".") < 3 Then
		xdate = "0" & left(topic("DevTopMod"),1)
	End If
	If InStr(mid(topic("DevTopMod"), InStr(topic("DevTopMod"),".")+1, len(topic("DevTopMod"))), ".") <3 Then
		ydate = "0" & mid(topic("DevTopMod"), InStr(topic("DevTopMod"),".")+1, len(topic("DevTopMod")))
	End If
	If len(ydate) = 0 Then
		zdate = xdate & "." & mid(topic("DevTopMod"), InStr(topic("DevTopMod"),".")+1, len(topic("DevTopMod")))
	else
		If len(xdate) = 0 Then
			zdate = left(topic("DevTopMod"),3) & ydate
		else
			zdate = xdate & "." & ydate
		End If	
	End If
else
	zdate = topic("DevTopMod")
End If
%>
```

Otestat, men det bör fungera :)

r. glömde (perl), (kod)

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

## #8 — Brimba, 2001-10-09T15:09Z

LarsG fungerar om du har ett DATUM, mitt "skall" fungera om du har en sträng.

Kanske missuppfattade jag dig, och då använder du LarsG

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

## #9 — LarsG, 2001-10-09T15:11Z

Om man har en sträng så brukar det gå att konvertera till ett datum med cdate.

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

## #10 — Brimba, 2001-10-09T15:13Z

If isDate(topic("DevTopMod")) Then
   blabla = LarsG
else
   blabla = cDate(topic("DevTopMod"))
End If

\[Redigerat av Brimba den 09 okt 2001\]

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

## #11 — LarsG, 2001-10-09T15:16Z

.

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

## #12 — aleborg, 2001-10-10T14:47Z

hmmm, host, host
DateValue(topic("DevTopMod"))
 :e

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

---

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