---
title: "Ersätt 2002-05-22 till idag 2002 =)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44347-ersätt-2002-05-22-till-idag-2002"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2002-05-22T16:32:51.000Z"
updated: "2009-04-05T20:59:07.000Z"
replies: 8
views: 7654
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/44347-ersätt-2002-05-22-till-idag-2002"
---

# Ersätt 2002-05-22 till idag 2002 =)

## #1 — voigtann1, 2002-05-22T16:32Z

```
<%

Function Free(f2)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
f2 = Server.HTMLEncode(f2)

'Om det är dagensdatum (2002-05-22) så skriver den ut Idag
objRegExp.Pattern = date()
f2 = objRegExp.Replace(f2,"Idag")

'Samma som ovan fast bara för inlägg som var igår.
objRegExp.Pattern = date()-1
f2 = objRegExp.Replace(f2,"Igår")

'ersätter 2002-05-22 till = 22/05 - 02
objRegExp.Pattern = "(..)(..)\-(..)\-(..)"
f2 = objRegExp.Replace(f2,"$4/$3 - $2")

	free = f2
End Function
%>
```

Hoppas ni har någon användning av detta.

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

## #2 — Pace, 2002-05-29T13:29Z

En alternativ variant på samma funktion, men som inte använder RegExp:

```
' Konverterar datum i NOW-format till "1 jan 2000 01:00" (med eller utan tid).
Function ConvDate(dtmDatum, blnAddTime)
	Dim intDaysPrune, strDate, strTime, arrMonths
	
	If isEmpty(dtmDatum) Or isNull(dtmDatum) Then Exit Function
	
	intDaysPrune = DateDiff("d", dtmDatum, Now())
	If intDaysPrune = 0 Then
		strDate = "Idag"
	ElseIf intDaysPrune = 1 then
		strDate = "Igår"
	Else
		arrMonths = Array("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December")
		strDate = Day(dtmDatum) & " " & Lcase(Left(arrMonths(Month(dtmDatum) - 1), 3)) & " " & Year(dtmDatum)
	End If
	If blnAddTime Then
		strTime = " " & FormatDateTime(dtmDatum, 4)
	End If
	ConvDate = strDate & strTime
End Function
```

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

## #3 — voigtann1, 2002-05-29T14:31Z

for i = 1 to 12
objRegExp.Pattern = "(....)\\-(" & right("0" & i,2) & ")\\-(..)" 
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i)) & " $1") 
next

så får ni:
1 januari 2002 tex istället för 2002-01-01

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

## #4 — greggan, 2004-09-26T15:22Z

hur blir det om det är samma datum men ett annat år? blir det inte knas då?

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

## #5 — voigtann1, 2004-09-27T11:58Z

Nej... eftersom den kollar date()... om ett datum i tex databasen är lika med mönstret som date() ger då ska den svara med att skriva ut idag istället för date()

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

## #6 — WebbisNet, 2005-03-21T01:30Z

men om jag vill ha in detta rs i regexp-versionen då
visitor1("HomeTimeVisited")

Hur får jag den att bli 
Idag "tid"
och Igår "tid"

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

## #7 — voigtann1, 2005-03-23T15:15Z

```
Free(cdate([b]Värde[/b]))
```

ersätt värde med med vad ni nu vill använda...

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

## #8 — WebbisNet, 2009-04-05T19:25Z

> **[voigtann1 skrev:](https://www.webforum.nu/p/1020072)**
>
> ```
> Free(cdate([b]Värde[/b]))
> ```
>
>
> ersätt värde med med vad ni nu vill använda...

Det här blev ju inte alls lyckat
\<%=Free(Cdate(right(replace(showAll("klotterDatum"),"-",""),6)))%\>&nbsp;\<%=showAll("klotterTime")%\>

Resultat 08/07 - 47 19:19:23

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

## #9 — voigtann1, 2009-04-05T20:59Z

1\. Vad innehåller din KlotterDatum då?
2\. Du ersätter - med "" vilket inte gör den till ett datum alls (få inte till det i alla fall).
3\. Om både punkt 1 och 2 ser ok ut, vad är det för data du slänger in i funktionen i slutet:
vad ger:

```
Cdate(right(replace(showAll("klotterDatum"),"-",""),6))
```

för struktur innan den gå in i "min" funktion?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/44347-ersätt-2002-05-22-till-idag-2002