Problem in Word
21.12.2003 21:32:18
Chris
ich habe ein Problem in MS Word, ich möchte gerne Zeit berechnen dazu habe ich dieses VB Script:
Sub FFSundenMinutenBerechnen()
Dim oDoc As Document
Set oDoc = ActiveDocument
Ein = oDoc.FormFields("Anfang").Result
Aus = oDoc.FormFields("Ende").Result
If IsDate(Ein) And IsDate(Aus) Then
mm = DateDiff("n", TimeValue(Ein), TimeValue(Aus))
hmm = Format(TimeSerial(0, mm, 0), "hh:mm")
oDoc.FormFields("Arbeitszeit").Result = hmm
End If
End Sub
Es gibt insgesamt 3 Formularfelder:
Das erste: "Anfang" hier steht die Startzeit
Das zweite: "Ende" hier steht die Endzeit
Das dritte: "Arbeitszeit" hier stehen die Arbeitsstunden
Jetzt mein Problem:
Wenn ich in Formularfeld "Anfang" 13:00 schreibe
und in Formularfeld "Ende" 18:00 schreibe
kommt im Formularfeld "Arbeitszeit" 5:00 raus. Das ist ja auch richtig so, aber jetzt:
Wenn ich in Formularfeld "Anfang" 20:00 schreibe
und in Formularfeld "Ende" 01:00 schreibe
kommt im Formularfeld "Arbeitszeit" 19:00 raus.
Das Problem ist, es ist der mächste Tag. Was muss ich ändern, damit es funktioniert ?????? Ich habe keinen Plan in VB
Danke für Eure Hilfe
Chris