Dagar, Timmar, Minuter

3 svar · 543 visningar · startad av mattiasnordin 17 maj 2004

mattiasnordinMedlem sedan maj 20012 080 inlägg

Frågan17 maj 2004 11:59#1

Hej, jag försöker få till en nedräkning till en viss tid att visas i ett formaterat format.

Just nu räknar jag fram hur många timmar och hur många minuter det är kvar.

<% varTid = varDateDiff %>
<% varTimmar = varTid \ 3600 %>
<% varMinuter = round((varTid - varTimmar * 3600 ) / 60) %>

Det jag vill åtgärda är att om det råkar vara väldigt lång tid kvar, över en dag (+), så vill jag visa det i dagar, timmar, minuter kvar istället för bara 187 timmar och 6 minuter kvar.
Antar att det är ganska enkelt att ta fram men det står helt still nu...

Jesper TMedlem sedan nov. 20017 144 inlägg

17 maj 2004 12:10#2

Sökte på "nedräkning".
Fanns lite där.
Bl.a.
http://www.webforum.nu/showthread.php?s=&postid=73915#post73915

Bosse168Medlem sedan nov. 20031 018 inlägg

17 maj 2004 12:12#3

Kan göra om denna kod så att den passar dig:

m = [B]dinVariabel_med_minuter[/B] 
minuter = m Mod 60 
timmar2 = (m - minuter)/60 
timmar = timmar2 Mod 24 
dygn = (timmar2 - timmar)/24 
if dygn>0 then 
if dygn=1 then 
dygnstring= dygn & " dag " 
else 
dygnstring= dygn & " dagar " 
end if 
else 
dygnstring="" 
end if 
if timmar>0 then 
if timmar=1 then 
timmstring=timmar & " timme " 
else 
timmstring=timmar & " timmar " 
end if 
else 
timmstring="" 
end if 
if minuter>0 then 
if minuter=1 then 
minstring=minuter & " minut" 
else 
minstring=minuter & " minuter" 
end if 
else 
minstring="" 
end if

Response.Write dygnstring &" "& timmstring &" "& minstring

mattiasnordinMedlem sedan maj 20012 080 inlägg

17 maj 2004 12:33#4

Tack bosse. Den var bäst ! :e :e :e

varDateDiff = DateDiff("N", now(),rs("bokad_start")) 

m = varDateDiff 'Minuter
minuter = m Mod 60 
timmar2 = (m - minuter)/60 
timmar = timmar2 Mod 24 
dygn = (timmar2 - timmar)/24 

if dygn > 0 then 
	if dygn = 1 then 
		dygnstring = dygn & " dag " 
	else 
		dygnstring = dygn & " dagar " 
	end if 
else 
dygnstring = "" 
end if 

if timmar>0 then 
	if timmar=1 then 
	timmstring=timmar & " timme " 
	else 
	timmstring=timmar & " timmar " 
	end if 
else 
	timmstring="" 
end if 

if minuter>0 then 
	if minuter=1 then 
	minstring=minuter & " minut" 
else 
	minstring=minuter & " minuter" 
end if 

else 
	minstring="" 
end if

Response.Write dygnstring &" "& timmstring &" "& minstring