Datum!!!

3 svar · 268 visningar · startad av roady 25 juni 2002

roadyMedlem sedan jan. 2002473 inlägg

Trådstart25 juni 2002 08:35#1

Jag har gjort en liten datum sub...

Sub subGetYear
	Dim I
		Response.Write "<option value=""novalue"">-----</option>"
			For I = 1801 To Left(now,4)
			Response.Write "<option"
			If Left(CInt(objRS("userAlder")),4) = I Then Repsonse.Write " SELECTED"
			Response.Write ">" & I & "</option>" & vbcrlf
		Next
End Sub

Det funkar jättefint, har även för Månad och dag, fyller jag i så får jag exempelvis 1982-06-27 i databasen..

Problemet:
När jag sedan går in på sidan igen och vill kolla på min info så vill jag ju att det året jag redan har fyllt i skall vara valt! varför funkar inte min IF-sats?

@ndersMedlem sedan juni 200032 967 inlägg

25 juni 2002 08:38#2

Repsonse.Write

Kan den felskrivningen ha något med problemet att göra?
Jag tycker dock att du ska använda funktionen Year() istället för att köra strängfunktionen Left() på datumvärdena.

Mvh,

@ndersMedlem sedan juni 200032 967 inlägg

25 juni 2002 08:40#3

Dessutom, din Cint() ligger på fel ställe.

If CInt(Left(objRS("userAlder"),4)) = I Then Response.Write " SELECTED"

Mvh,

roadyMedlem sedan jan. 2002473 inlägg

25 juni 2002 08:46#4

hmm, använder Datum funktioner alldeles för dåligt...

Men det här funkar i alla fall

Sub subGetYear
	Dim I
		Response.Write "<option value=""novalue"">-----</option>" & vbcrlf
			For I = 1901 To Year(now)
			Response.Write "<option value=""" & I & """"
			If Year(objRS("userAlder")) = I Then Response.Write " SELECTED"
			Response.Write ">" & I & "</option>" & vbcrlf
		Next
End Sub