Zeitberechnung

Sub Click(Source As Button)
	Dim ws As New NotesuIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim s As New NotesSession
	Dim kommt_std As Integer
	Dim kommt_min As Integer
	Dim kommt_minuten As Integer
	Dim geht_minuten As Integer
	Dim zeit_ist_tag  As Integer
	Dim zeit_soll_tag As Integer
	Dim diff As Integer

	Dim kommt_ws As String
	Dim geht_std As Integer
	Dim geht_min As Integer
	Dim geht_ws As String
	Dim diff_std As Integer
	Dim diff_min As Integer
	Dim istzeit As Long
	Dim stunden As Integer
	Dim ws_feld1 As Integer

	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document

	If doc.art(0) = "Krank"  Or doc.art(0) = "Urlaub" Or doc.art(0) = "Feiertag" Then
		diff_std = 7
		diff_min = 00
		doc.pause = 0
		doc.stunden = "7:00"		
		doc.uestd = ""
		Goto Ende
	End If


	kommt_std =Cint(Left(doc.kommt(0),2))
	kommt_ws = Right(doc.kommt(0),5)
	kommt_min = Cint(Left(kommt_ws,2))

	geht_std =Cint(Left(doc.geht(0),2))
	geht_ws = Right(doc.geht(0),5) 
	geht_min = Cint(Left(geht_ws,2))


	kommt_minuten = Cstr (kommt_std * 60) + kommt_min
	geht_minuten = Cstr (geht_std * 60) + geht_min
	zeit_ist_tag = geht_minuten - kommt_minuten - doc.pause(0)
	zeit_soll_tag = 420
	zeit_ist_tag = zeit_ist_tag + (doc.sonderstunden(0) * 60)
	diff = zeit_ist_tag - zeit_soll_tag
	doc.uestd = diff
	stunden = (zeit_ist_tag / 60)
	ws_feld1 = (stunden * 60) - zeit_ist_tag
	If ws_feld1 < 0 Then
		ws_feld1 = ws_feld1 * (-1)
	End If

	doc.stunden = Cstr(stunden) + ":" + Right("00" + Cstr(ws_feld1),2)	

Ende:
End Sub