datum

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?

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

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

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

[Redigerat av Brimba den 05 okt 2001]

Det funkade inte :(
Fick overflow 'Cint'

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

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

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

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

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

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

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 09 okt 2001]

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

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

[Redigerat av Brimba den 09 okt 2001]

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

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

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

------------------
essentitia preter non sans multiplicandum

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

[Redigerat av Brimba den 09 okt 2001]

.
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 09 okt 2001]

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

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

[Redigerat av aleborg den 10 okt 2001]