Access Minuten in Stunden umwandeln

Billie · 12. März 2012, 19:16

Hallo zusammen,

ich habe eine Funktion, welche Minutenwerte in Stunden und Minuten umwandeln soll (hh:mm).

Bei negativen Zahlen wird immer eine Stunde zu viel gerechnet, z.B. -00:34 -> -01:34

Quellcode

Function ConvertTime(ByVal iZeit As Long) As String
Dim s As String
s = ""
s = iZeit Mod 60
s = ":" & s
s = CLng((iZeit / 60) - 0.5) & s
ConvertTime = s
End Function

Alles anzeigen

Hat jemand einen Verbesserungsvorschlag? Thx

Rushh0ur · 12. März 2012, 20:36

Bau halt noch ne if-Abfrage rein ob Zeit < 0 und handle dem entsprächend.

Mfg Rushh0ur

Billie · 13. März 2012, 15:03

Falls jemand einen Lösungsansatz suchen sollte, funktioniert es bei mir auf diese Weise:

Quellcode

Function ConvertTime(ByVal iZeit As Long) As String
Dim s As String
If iZeit >= 0 Then
s = ""
s = iZeit Mod 60
s = ":" & s
s = CLng((iZeit / 60) - 0.4999) & s
ConvertTime = s
End If
If iZeit < 0 Then
s = ""
minus = "-"
s = iZeit Mod 60
s = ":" & s
s = CLng((iZeit / 60) + 0.4999) & s
s = Replace(s, "-", "")
s = minus & s
ConvertTime = s
End If
End Function

Alles anzeigen

Access Minuten in Stunden umwandeln

Access Minuten in Stunden umwandeln

Quellcode

Quellcode

Teilen

Tags