datum

11 svar · 233 visningar · startad av aleborg 5 okt. 2001

aleborgMedlem sedan jan. 20013 341 inlägg

Trådstart5 okt. 2001 12:28#1

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?

BrimbaMedlem sedan dec. 19995 874 inlägg

5 okt. 2001 12:43#2

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

aleborgMedlem sedan jan. 20013 341 inlägg

5 okt. 2001 13:00#3

Det funkade inte
Fick overflow 'Cint'

BrimbaMedlem sedan dec. 19995 874 inlägg

5 okt. 2001 13:10#4

oops
Kolla mitt exempel nu, fixade lite

aleborgMedlem sedan jan. 20013 341 inlägg

9 okt. 2001 12:37#5

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

LarsGMedlem sedan dec. 200012 464 inlägg

9 okt. 2001 14:45#6

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

BrimbaMedlem sedan dec. 19995 874 inlägg

9 okt. 2001 15:04#7

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

BrimbaMedlem sedan dec. 19995 874 inlägg

9 okt. 2001 15:09#8

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

LarsGMedlem sedan dec. 200012 464 inlägg

9 okt. 2001 15:11#9

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

BrimbaMedlem sedan dec. 19995 874 inlägg

9 okt. 2001 15:13#10

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

[Redigerat av Brimba den 09 okt 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

9 okt. 2001 15:16#11

aleborgMedlem sedan jan. 20013 341 inlägg

10 okt. 2001 14:47#12

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