Undrar hur man ska dividera en tid så att man får fram en tid per kilometer. Vi kan säga att sträckan är 5 km och tiden är 25 min. Hur gör man då för att dividera detta.
00:25:00/5

Tacksam för svar!

/Johan

Undrar hur man ska dividera en tid så att man får fram en tid per kilometer. Vi kan säga att sträckan är 5 km och tiden är 25 min. Hur gör man då för att dividera detta.
00:25:00/5

Tacksam för svar!

/Johan


ingen snygg kod nu, men hjärnan är trött:

'Kod för att räkna ut: 00:25:00/5
Debug.print cstr(UnitPerHour("00:25:00",5)) & " km/h"

'Skicka in tiden som en sträng (HH:MM:SS, timmar:minuter,sekunder)
'Skicka in sträckan i valfritt format
Function UnitPerHour(Time As String, LengthInUnit As Long) As Double
Dim t As Long
'Räkna ut tiden i sekunder
t = Val(Format(Time, "hh")) * 3600
t = t + Val(Format(Time, "N")) * 60
t = t + Val(Format(Time, "ss"))
'Räkna ut enhet per timme:
UnitPerHour = (LengthInUnit / t) * 3600
'Räkna ut enhet per minut:
'UnitPerHour = (LengthInUnit / t) * 60
'Räkna ut enhet per sekund:
'UnitPerHour = (LengthInUnit / t)
End Function

Hej
Så här löser jag det
Option Explicit
Const SEK = 0.99999/86400

Private Sub Command1_Click()
Dim veloci As Single, s As Single
s = 5 ' 5 km omvandlar till sekunder
veloci = s * 3600 / (CDate("00:25:00") / SEK)
MsgBox Round(veloci, 2) & " Km/h"
End Sub

Sven

<code>
Function KilometersPerHour(Length As Long, Time As Date) As Double
KilometersPerHour = Length / (Time * 24)
End Function

Private Sub Form_Load()
Msgbox "5km/25min => " & KilometersPerHour(5, #00:25:00#) & "Km/1h"
End Sub
</code>

Men jag vill ju ha min/km. Alltså hur många minuter tar det att springa 1 km med det tempot jag haft på 5 km. Inte km/h

km/h= (h/km)^-1

H är hastighet i km/h då får du
S (tid per sträcka) = 1/H

vill du ha det i minuter så får du ju omvandla till det.

/Niklas Jansson

Så går det när jag inte läser frågan.

<code>
Function GetTime(Time As Date, Distans As Single) As Single
GetTime = (Time * 1440) / Distans
End Function

Private Sub Form_Load()
Msgbox GetTime(#0:25#, 5) & "min/km"
End Sub
</code>

tack så mkt!

Oki läste slarvigt. Men det blir samma sätt att lösa.
DS