Svensk tid utan LCID = 1053

Function fixTime(dDate)
        fixTime = Right("0" & hour(dDate), 2) & ":" & Right("0" & minute(dDate), 2) & ":" & Right("0" & second(dDate), 2)
end function

Quid skrev:

Function fixTime(dDate)
        fixTime = Right("0" & hour(dDate), 2) & ":" & Right("0" & minute(dDate), 2) & ":" & Right("0" & second(dDate), 2)
end function

Ja... fast nej ;)

Ett förtydligande. Jag har bara klockslaget lagrat i db (TIME). Skulle jag förstås nämnt på en gång

Edit: dessutom ger det där väl 01:30:00 för klockan 13:30:00?

Då är det väl bara att stoppa in det?
Vad är problemet?

edit:

dessutom ger det där väl 1:30:00 för klockan 13:30:00?

Du får prova. Det bör dock ge dig 24-timmarstid - det är så funktionen hour skall fungera.

devguru.com skrev:

The output is base upon a 24 clock (military time, values will run from 0 to 23).

http://www.devguru.com/technologies/vbscript/13932.asp

Då får du köra funktionen på det fältet istället.

Jag kanske var alldeles för otydlig - eller så har jag bara en ordentlig tankevurpa på g. Är rätt trött...

När jag skriver ut tidsformatet på sidan så får jag 1:30 PM. Det är lagrats i db som TIME. Jag kan inte använda LCID = 1053.

Hur får jag tiden att stå som 13:30 på sidan?

...som sagt. räta ut min tankevurpa nu! ;)

Då får du modifiera Quids funktion så den tar emot ett tidsvärde som argument istället.

Hmm... kanske har med att jag kör dateAdd?

Dim fromTime, toTime, i
fromTime = "08:00"
toTime = "22:00"

response.Write(toTime)

For i = 0 to datediff("n",fromTime,toTime) step 15

Response.Write "<option value='"& left(dateAdd("n",i,fromTime),5) &"'>"& dateAdd("n",i,fixTime(fromTime)) &"</option>"

Next

Hur ser fixTime() ut när du försöker köra den koden?

Om du ska kunna använda datumfunktioner på ett värde så behöver det oftast vara i datumformat - det räcker inte med något som skulle kunna tänkas se ut som ett datum eller en tid.

Function fixTime(dDate)
        fixTime = hour(dDate) & ":" & Right("0" & minute(dDate), 2) & ":" & Right("0" & second(dDate), 2)
end function

får ut -
1:15:00 PM
1:30:00 PM

skriptet körs i en select för att genera klockslag med 15 minuters intevall

Function fixTime(dDate)
        fixTime = Right("0" & hour(dDate), 2) & ":" & Right("0" & minute(dDate), 2) & ":" & Right("0" & second(dDate), 2)
end function

Var_Time1 = "5:39:18 AM"
Var_Time2 = "5:39:18 PM"

Response.Write fixTime(Var_Time1)
Response.Write "<BR>"
Response.Write fixTime(Var_Time2)

Vad får du då?

Vackra:

5:39:18
17:39:18

så det är dateAdd som skapar problemet?

DateAdd borde också ge ett tillräckligt fint värde att använda i funktionen. Däremot borde du ju använda fixTime() på det färdiga uttrycket - inte inne i dateadd.

fixTime(dateAdd("n",i,fromTime))

som sagt. en liten tankevurpa :)

tusen tack för hjälpen