Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Fra sekunder til minutter og sekunder

5 views
Skip to first unread message

Michael

unread,
Jan 29, 2012, 2:31:07 AM1/29/12
to
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

Christian Kragh

unread,
Jan 29, 2012, 6:03:27 AM1/29/12
to
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

Michael Weber

unread,
Jan 29, 2012, 6:11:45 AM1/29/12
to
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



Michael

unread,
Jan 29, 2012, 6:13:51 AM1/29/12
to
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

Christian Kragh

unread,
Jan 29, 2012, 6:04:17 AM1/29/12
to
Jeg glemte at skrive:

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

Jørn Andersen

unread,
Jan 30, 2012, 4:53:14 AM1/30/12
to
On Sun, 29 Jan 2012 03:13:51 -0800 (PST), Michael
<bogk...@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
0 new messages