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

<%

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.

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

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

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

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

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"

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

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

voigtann1 skrev:

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)))%> <%=showAll("klotterTime")%>

Resultat 08/07 - 47 19:19:23

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?