🚀 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

Jeg glemte at skrive:

Response.Write m2tm(rs("tid"))

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

Den 29-01-2012 08:31, Michael skrev:
> Hvordan f�r jeg lige lavet sekunder om til minutter og sekunder?
> I min database har jeg sekunder, n�r jeg tr�kker dem ud, vil jeg gerne
> lave dem om til minutter og sekunder.
>
> 109
> Response.Write rs("tid")/60
> = 1,81666666666667
>
> Hvordan f�r jeg det til at se p�nt ud=
> 1 minut og 49 sekunder


Pr�v med:
totalSekunder = rs("tid")
sekunder = totalSekunder Mod 60 'Modulus
minuter = Int(totalSekunder/60)

Eks med rs("tid") = 220 :
totalSekunder = 220
sekunder = 220 Mod 60 = 220-(3*60) = 40
minutter = Int(220/60) = 3


Mvh Michael

On 29 Jan., 08:31, Michael <bogkas...@gmail.com> wrote:
> Hvordan får jeg lige lavet sekunder om til minutter og sekunder?
> I min database har jeg sekunder, når jeg trækker dem ud, vil jeg gerne
> lave dem om til minutter og sekunder.
>
> 109
> Response.Write rs("tid")/60
> = 1,81666666666667
>
> Hvordan får jeg det til at se pænt ud=
> 1 minut og 49 sekunder
>
> Hilsen Michael

Fandt løsningen tror jeg nok:

DIM minut
minut = int(rs("tid")/60)
DIM forskel
forskel = minut * 60
DIM sekund
sekund = rs("tid")-forskel
Response.Write "Total sek: "
Response.Write rs("tid")
Response.Write "<br>"
Response.Write "Min.: "
Response.Write minut
Response.Write " Sek.: "
Response.Write sekund
Conn.Close
Set Conn = Nothing
end if

On Sun, 29 Jan 2012 03:13:51 -0800 (PST), Michael
<bogkassen@gmail.com> wrote:

>Fandt l�sningen tror jeg nok:
>
>DIM minut
>minut = int(rs("tid")/60)

Erstat disse:

>DIM forskel
>forskel = minut * 60
>DIM sekund
>sekund = rs("tid")-forskel

med:
Dim sekund
sekund = rs("tid") mod 60

(som ogs� Michael Weber foresl�r)
s� slipper du for en un�dvendig mellemregning.

mod-funktionen beregner divisions-resten.

<snip udskrift>

Good luck,
J�rn

-- 
J�rn Andersen
http://socialister.dk
http://marxisme.dk