[specci48]

Die Basic4ppc-Internen Ticks sind als vollständiger Zeitstempel zu verstehen, d.h. sie enthalten nicht nur die Uhrzeit sondern auch die Datumsinformation.

Dein geänderter Code läßt sich somit etwas vereinfachen:

Sub Globals
	'Declare the global variables here.
	timeIsRunning = false
	ticksAtStart = 0
	ticksAtStop = 0
	DateFormat("dd.mm.yyyy")
End Sub

Sub App_Start
	Montagezeit.Show
End Sub


Sub Button1_Click
	If timeIsRunning = false Then
		' Start = aktuelle Uhrzeit
		ticksAtStart = Now
		startzeit.Text = Time(ticksAtStart)
		startdatum.text = Date(ticksAtStart)
		' kein Ende gesetzt
		endezeit.Text = ""
		enddatum.Text = ""
		' Button heißt nun Stop
		button1.Text = "Stop"
	Else
		' Ende = aktuelle Uhrzeit
		ticksAtStop = Now
		endezeit.Text = Time(ticksAtStop)
		enddatum.Text = Date(ticksAtStop)
		' Differenz = Ende - Start
		differenz.Text = Time(ticksAtStop - ticksAtStart)
		' Button heißt nun wieder Start
		button1.Text = "Start"	
	End If
	timeIsRunning = Not(timeIsRunning)
End Sub