01. september 2004 - 10:41Der er
6 kommentarer og 1 løsning
Invalid procedure call or argument: 'string'
Hej
Jeg har følgende funktion, som har virket fint i gennem lang tid, men pludselig i dag ville den ikke mere (og jeg har ikke ændret på koden overhovedet).
<% function TimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours diff = datediff("n",StartTime,FinishTime)
' set the hours ignoring the remaining fraction hours = int(diff / 60) response.write "<br>hours: " & hours
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30 mins = round(60*(diff / 60 - hours),0) response.write "<br>mins: " & mins
Nåå ok, men kan du så ikke hjælpe mig, så jeg kan bruge funktionen til at udregne, hvor mange timer der er mellem to datoer (selvom time-tallet er blevet 3-cifret)?
Men det er vel kun formatteringen, der er problemet. Hvor ville du gerne have stående "03 hours and 05 minutes", og ikke bare "3 hours and 5 minutes" ? Mit forslag er vel blot at fjerne linien.
<% function TimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours diff = datediff("n",StartTime,FinishTime)
' set the hours ignoring the remaining fraction 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) mins = string(2-len(mins),"0") & mins
' how do we want to return the calculation..?
select case lcase(Display) case "screen" TimeCalc = hours & " hours and " & mins & " minutes" case "database" TimeCalc = hours & mins end select
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
