🚀 go-pugleaf

Hej.

Jeg har haft lidt samme problem, dog med minutter der skulle laves om til timer og minutter.

Jeg har lavet 2 funktioner til samme formål at komme fra en tid (hh:mm:ss) til minutter og omvendt, fra minutter til timer og minutter.

Du kan bruge dem hvis du finder dem nyttige, dog er der en lille kommentar knyttet til.
Den kan optimeres således at du spørger i "m2tm" på følgende måde:

Istedet for:
  for u = 1 to (fqTempInput /60)
   fqTempInput = fqTempInput - 60
   fqTempInputHour = fqTempInputHour + 1
  next

kan bruges:
  fqTempInputHour = Int(fqTempInput / 60)
  fqTempInput = fqTempInput - fqTempInputHour * 60

Det spare dig for en lykke der kan tage tid hvis der er meget at kører igennem...

Jeg bruger også disse:
  for v = len(fqTempInput) to 1
    fqTempInput = "0" & fqTempInput
  next
  for w = len(fqTempInputHour) to 1
    fqTempInputHour = "0" & fqTempInputHour
  next

For at sikre at der er 2 cifre i minutter samt timer...

Her er de funktioner jeg bruger...

Venlig hilsen
Christian Kragh
---------------
www.HTML-Faq.dk


function tm2m(input)
  tm2m = (hour(input) * 60) + minute(input)
end function

function m2tm(input)
  fqTempInput = input

  for u = 1 to (fqTempInput /60)
   fqTempInput = fqTempInput - 60
   fqTempInputHour = fqTempInputHour + 1
  next

  for v = len(fqTempInput) to 1
    fqTempInput = "0" & fqTempInput
  next

  for w = len(fqTempInputHour) to 1
    fqTempInputHour = "0" & fqTempInputHour
  next
  m2tm = fqTempInputHour & ":" & fqTempInput
end function