Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit Stundenberechnung
Autor: Andi01
Datum: 07.10.06 18:33
hallo habe folgente spalten im datagrid Recordset Ado : (Datum) (Beginn 00:00) (Pause 00:00) (Pause2 00:00) (Ende 00:00) (Stunden 00,00) Die Stundenberechnung wird momentan mit diesen Code berechnet : Public Function CalcTime(ByVal vBeginn As String, ByVal vPause As String, ByVal vPause2 As String, ByVal vEnde As String) As String ' Zeit-Differenz berechnen und formatiert zurückgeben Dim nMin As Long Dim nStd As Long Dim sDate1 As String Dim sDate2 As String sDate1 = CDate(Format$(Now, "m-d-yy")) ' Wenn sTime2 < sTime1 sDate2 = DateAdd("d", IIf(vEnde < vBeginn, 1, 0), sDate1) ' Zeit-Differenz in Minuten nMin = DateDiff("n", CDate(sDate1 & " " & vBeginn), CDate(sDate2 & " " & vEnde)) - GetMin(vPause) - GetMin(vPause2) nStd = Int(nMin / 60) nMin = nMin - (nStd * 60) CalcTime = Format$(nStd, "00") & "," & Format(nMin, "00") End Function Private Function GetMin(ByVal sTime As String) As Long ' Zeitformat in Minuten umrechnen Dim nPos As Long nPos = InStr(sTime, ":") If nPos > 0 Then GetMin = Val(Left$(sTime, nPos - 1)) * 60 + Val(Mid$(sTime, nPos + 1)) Else GetMin = Val(sTime) End If End Function Mein Problem ist wenn ich bei (Pause) oder (Pause2) 00:30 eingebe kommt in der Spalte ( Stunden ) der wert 00,30 raus was von der Uhrzeitberechnung ok wäre,aber für die Stundenberechnung müsste es 00,50 sein um den richtigen betrag anhand der Stunden zu berechnen. Kann mir jemand dabei helfen ? danke

Problem mit Stundenberechnung	954	Andi01	07.10.06 18:33
Re: Problem mit Stundenberechnung	567	effeff	09.10.06 12:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen