Timer og minutter i mellem to tidspunkter inkl. dato

Hvis du vil spare 100 points, skal du se på vbscriptfunktionen datediff()

Det er sgu da også rigtig nok.. kigger lige på det....

damn

Sådan her kan du lave din function:


function HMBetween(sDate, sTime, eDate, eTime)
Dim sDato, eDato
dDato = Mid(sDate,1,2) & "-" & Mid(sDate,3,2) & "-" & Mid(sDate,5,4) & " " & Mid(sTime,1,2) & ":" & Mid(sTime,4,2) & ":00"
eDato = Mid(eDate,1,2) & "-" & Mid(eDate,3,2) & "-" & Mid(eDate,5,4) & " " & Mid(eTime,1,2) & ":" & Mid(eTime,4,2) & ":00"
HMBetween = dateDiff("n",dDato,eDato)
end function

Den forudsætte det du skrev til dato og tid:
sDate= "25052002"
sTime = "16.34"
eDate = "26052002"
eTime = "01.23"

Jeg synes ikke rigtig jeg kan få det til at virke, eagleeye... med

sDate= "25052002"
sTime = "16.34"
eDate = "26052002"
eTime = "01.23"

Du kalder bare function sådan her:

Response.Write "Minutter mellem..:" & HMBetween(sDate, sTime, eDate, eTime)

how den regner kun min... to secs

Hvad dæl'len gør jeg forkert...

<%
FUNCTION HMBetween(sDate, sTime, eDate, eTime)
Dim sDato, eDato
dDato = Mid(sDate,1,2) & "-" & Mid(sDate,3,2) & "-" & Mid(sDate,5,4) & " " & Mid(sTime,1,2) & ":" & Mid(sTime,4,2) & ":00"
eDato = Mid(eDate,1,2) & "-" & Mid(eDate,3,2) & "-" & Mid(eDate,5,4) & " " & Mid(eTime,1,2) & ":" & Mid(eTime,4,2) & ":00"
HMBetween = dateDiff("n",dDato,eDato)
END FUNCTION

%>

<% DIM myVar
sDate= "25052002"
sTime = "16.34"
eDate = "26052002"
eTime = "01.23"

myVar =  HMBetween(sDate, sTime, eDate, eTime)

response.write myVar
%>

Her kommer function lige igen:

function HMBetween(sDate, sTime, eDate, eTime)
Dim diff, mins, hours
Dim sDato, eDato

dDato = Mid(sDate,1,2) & "-" & Mid(sDate,3,2) & "-" & Mid(sDate,5,4) & " " & Mid(sTime,1,2) & ":" & Mid(sTime,4,2) & ":00"
eDato = Mid(eDate,1,2) & "-" & Mid(eDate,3,2) & "-" & Mid(eDate,5,4) & " " & Mid(eTime,1,2) & ":" & Mid(eTime,4,2) & ":00"
diff = dateDiff("n",dDato,eDato)
hours = int(diff / 60)
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = round(60*(diff / 60 - hours),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
HMBetween = hours & ":" & mins
end function

JEg ved hvad jeg har gjort forkert... Hacde functionen liggende inde i en SUB rutine.. ik pisse smart.. Kigger lige på det sidste du sendte...

men det virker der andet..

Det virker.. tak..

Jeg tænkte på, om man kunne lave noget mere advanceret, hvor man f.eks. undersøger om nogen af timerne ligger mellem 19.30 og 00.00. Og hvis de gør, hvor mange er det så.....???

Kunne man ligge det ind i funktionen, ved at difinere nogle intervaller eller lignende.. Har du nogen erfaring på det område...???

Det er relativet let at  kikke på om klokken er >19.30 og <00.00 men problmmet kommer når det er overflere dage så er der jo op til flere timer som ligger i det interval. Der er ingen tvivl om det kan lade sig gøre..

Hvis man har start 01012002 18.00 og slut 02012002 23.00:
Første giver fra 19.30 -> 00.00
Anden dag giver fra 19.30 -> 23.00

Der kommer en masse if'er ..