vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen   |   VB-Versionen: VB624.06.04
Zeit-Differenz in dezimaler Darstellung ausgeben

Mit dieser Funktion lässt sich eine Zeit-Differenz in dezimaler Darstellung ausgeben.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  15.714 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Heute möchten wir Ihnen eine Funktion vorstellen, die eine Zeit-Differenz nicht im normalen Uhrzeit-Format, wie bspw. 01:45 ausgibt, sondern in dezimaler Form, wie bspw. 1,75 Stunden.

Die Funktion erwartet als Parameter die Zeitangabe in Minuten.

' Minuten in dezimale Darstellung Stunde, Minuten umwandeln
Public Function FormatTimeDez(ByVal nMin As Long) As String
  Dim nStd As Long
 
  ' Ganze Stunden ermitteln
  nStd = Int(nMin / 60)
 
  ' Rest-Minuten
  nMin = nMin - (nStd * 60)
 
  ' formatierter Rückgabewert
  ' Minuten in dezimaler Schreibweise
  FormatTimeDez = CStr(nStd) & "," & Format$(Int(nMin / 60 * 100), "00")
End Function

Beispiel:
Aus den beiden Zeitangaben 04:30 und 06:15 soll die Zeitdifferenz in dezimaler Form berechnet werden.

Dim sTime1 As String
Dim sTime2 As String
Dim nMin As Long
 
sTime1 = "04:30"
sTime2 = "06:15"
 
' zunächst Zeit-Differenz in Minuten ermitteln
nMin = DateDiff("n", CDate(sTime1), CDate(sTime2))
 
' Zeit-Differenz in dezimaler Form
MsgBox FormatTimeDez(nMin)