Hallo, ich versuche gerade mir ein Arbeitszeitberechnungsprogramm zusammenzuzimmern.Dabei hab ich folgendes Problem: Wie schaffe ich es, daß VB mir "negative" Stunden berechnet? Z.B. Kommen um 7:00, Gehen um 13:00 wäre -1:00 bei Sieben Stunden Sollarbeitszeit.
Für Hilfestellungen wäre ich überaus dankbar, ich weiss keinen Rat.
Bloody Beginner (Anonym) Nachtrag zu: „Arbeitszeit“
Servus,wie findest Du meins? (Is noch nicht schön, aber funzt jetzt glaub ich)
Private Sub CommandButton1_Click()
Dim kommen As Date, gehen As Date, pause As Date, wegezeit As Date, sollarbzeit As Date
Dim anw2 As Date, effektivanw As Date, Zeitgutschrift As Date
Dim anw1 As Double
kommen = InputBox("Bitte Kommenzeit eingeben:" & vbCrLf _
& "Form: hh:mm(:ss)", "Kommen")
gehen = InputBox("Bitte Gehenzeit eingeben:" & vbCrLf _
& "Form: hh:mm(:ss)", "Gehen")
pause = InputBox("Bitte Pausenzeit eingeben:" & vbCrLf _
& "Form: hh:mm(:ss)", "Pause")
wegezeit = InputBox("Bitte Wegezeit eingeben:" & vbCrLf _
& "Form: hh:mm(:ss)", "Wegezeit")
sollarbzeit = InputBox("Bitte Sollarbeitszeit eingeben:" & vbCrLf _
& "Form: hh:mm(:ss)", "Soll")
If kommen > gehen Then
anw1 = gehen - kommen
anw2 = anw1 + 1
MsgBox "Anwesenheit: " & anw2 & " Stunden"
Else
anw2 = gehen - kommen
MsgBox "Anwesenheit: " & anw2 & " Stunden"
End If
effektivanw = anw2 - pause - wegezeit
MsgBox "Anwesenheit(effektiv): " & effektivanw & " Stunden"
If sollarbzeit > effektivanw Then
Zeitgutschrift = effektivanw - sollarbzeit
MsgBox "Ihre Zeitgutschrift: -" & Zeitgutschrift & " Stunden"
Else
Zeitgutschrift = effektivanw - sollarbzeit
MsgBox "Ihre Zeitgutschrift: " & Zeitgutschrift & " Stunden"
End If
End Sub
