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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
