l'orario deve essere formattato in questo modo:
hh:mm:ss

se vuoi conoscere i minuti di differenza tra due orari prova con:

DateDiff("n", "15:25:00", "16:00:00")

in questo caso la funzione restituirà 30.
ciao

scusate ragazzi,
non mi sono spiegato bene:
io non ho 2 orari, ma due variabili..
Mattina = DateDiff("h", myEndTime, nMattina)
che comunque rappresentano due date......
però non so come mai il datediff non gli va a genio e mi da come risultato cifre tipo 23/11/1900 13.00, capito?

<%
Session.LCID=1040
Sub amtWorkDays2(start_date, end_date, StartTime, EndTime)
Dim amtWorkDays
' GET WORK DAYS IN A WEEK
myworkstartdate = start_date
myworkenddate = end_date
myworkstartdate = CDate(myworkstartdate)
myworkenddate = CDate(myworkenddate)
mytempworkday = myworkstartdate

do until mytempworkday = myworkenddate

' GET THE CONSTANT REPRESENTATION OF TODAY
mydaycase = Weekday(mytempworkday)
select case mydaycase

' DAYS TO EXCLUDE
case 1,7
mytempworkday = DateAdd("D", 1, mytempworkday)
case else
' IF THE DAYS ARE NOT EXCLUDED INCREMENT THE WORK DAY COUNT
'response.write mytempworkday & "<br>"
mytempworkday = DateAdd("D", 1, mytempworkday)
amtWorkDays = amtWorkDays + 1
conta = amtWorkDays
end select
loop
'Trasformo startime e endtime da stringhe a numeri
p1 = Left(StartTime, 2)
p2 = Mid(StarTime,4,2)
myStartTime = p1 & "." & p2 & ".00"
p3 = Left(EndTime, 2)
p4 = Mid(EndTime,4,2)
myEndTime = p3 & "." & p4 & ".00"

if myStartTime > myEndTime then
conta = conta - 1
end if
nSera = TimeSerial(17,30,00)
'sera= DateDiff("d",nSera,date + 1)

Sera = DateDiff("n", myStartTime, nSera)
nMattina = TimeSerial(08,30,00)
Mattina = DateDiff("n", nMattina, myEndTime)
'amtWorkDays = Sera + Mattina + (conta * 8)
risultato = Sera + Mattina + (conta * 8)
response.write(Sera)
response.write("<br>" & Mattina & "<br>")
response.write(conta)
End Sub


'response.write amtWorkDays("06/07/2004", "07/07/2004", "15:30", "16:30")
call amtWorkDays2("07/07/2004", "07/07/2004", "15:30", "09:10")

%>