Jag håller på att göra en "klocka" till mitt spel, men jag vet inte riktigt hur jag ska göra:
Kod:


<%
'Denna kod gör klockan..
Dim start_dag, 1day, dag_nu
start_dag = "2004-07-14 18:00:00"
1day = "6:00:00"%>



En dag ska altså vara 6 timmar, och så vill jag ha en varibel som visas vilken dag det är samt en varibel som visas hur lång tid det är kvar tills att det är en ny dag..

Hur gör jag detta??

Fick ett bra svar av en på aspsidan men svaret räckte inte rikdigt.. Kolla på denna adress:
http://www.aspsidan.se/ShowPost.asp?pId=273416

Hej,

Hoppas detta blir rätt...

<code>
Dim startDate, currentDay
Dim totalHours, currentHour, hoursLeftOfDay

startDate = "2004-07-14 18:00:00"

totalHours = DateDiff("h", CDate(startDate), Now(), vbMonday)
currentDay = CInt(totalHours / 6)
currentHour = CInt(totalHours) Mod 6
hoursLeftOfDay = 6 - currentHour

Response.Write "Dag: " & currentDay & "<br>Timmar kvar: " & hoursLeftOfDay
</code>

/Micke

Det där såg jättebra ut.. En liten detalj..
Går det få så att det visas minuter till nästa dag också???

Såhär kanske...

<code>
Dim startDate, currentDay
Dim totalHours, currentHour, hoursLeftOfDay
Dim totalMinutes, currentMinute, minutesLeftOfDay

startDate = "2004-06-14 18:00:00"

totalHours = DateDiff("h", CDate(startDate), Now(), vbMonday)
totalminutes = DateDiff("n", CDate(startDate), Now(), vbMonday)
currentDay = CInt(totalHours / 6)
currentHour = CInt(totalHours) Mod 6
hoursLeftOfDay = 5 - currentHour

currentMinute = (totalminutes Mod 60) Mod 60
minutesLeftOfDay = 60 - currentMinute

Response.Write "Dag: " & currentDay & "<br>Tid kvar: " & hoursLeftOfDay & ":" & minutesLeftOfDay
</code>

EDIT: Ska nog vara "hoursLeftOfDay = 5 - currentHour", har ändrat i koden ovanför...

/Micke

Jätte bra!! tack!!