Udtrække minutter fra 01:10:10

01:10:23 det kan da aldrig blive 130 minuter det kan blive 60+10 = 70 minuter og så 23 sekunder. ;)

1 time = 60 min, ergo 70 hele minutter

Function timerfratid(tid as string) as interger
  dim min as interger, fc as interger, sc as interger, hr as interger, mn as interger

  fc = instr(tid, ":")
  sc = instr(fc + 1, tid, ":")
  hr = cint(mid(tid, 1, fc))
  mn = cint(mid(tid, fc+1, sc))

  min = (hr * 60) + mn

  timerfratid = min

end function

ooh jeg tænkte 2 timer D'oh
--
Hej.
Jeg har en variabel A som indeholder "01:10:23" altså 1 time, 10 minutter og 23 sekunder.
Ud af det vil jeg udtrække antal minutter, altså her 70 minutter. Det er OK at sekunderne ikke bliver talt med.

Hvordan gør jeg dette?
Ønskes: Function der kan kaldes som

X = TimerFraTid("01:10:23")
' X er lig med 70

"Ønskes: Function der kan kaldes som">>Function delivered

rune c > jeg får type mismatch (også efter jeg har rettet INTERGER til INTEGER)

Ok, rune du var tæt på.. :D så du får p. alligevel. Her er den rettede version, så andre også kan bruge den

--- snip ---
Function timerfratid(Tid As String)
 

  fc = InStr(Tid, ":")
  sc = InStr(fc + 1, Tid, ":")
  hr = Mid(Tid, 1, fc - 1)
  mn = Mid(Tid, fc + 1, sc)

  Min = hr * 60 + Left(mn, 2)

  timerfratid = Min

End Function
--- snip ---

Bruges som:

X=timertiltid("01:10:10")