Eine Stopuhr in Visual Basic geschrieben
Option Explicit
dim d, dd
d = now()
msgbox "OK - wenn fertig" & vbcrlf & vbcrlf & " Beginnzeit: " & d
dd = now()
msgbox _
"Beginnzeit: " & vbcrlf & _
" " & d & vbcrlf & _
"Endzeit: " & vbcrlf & _
" " & dd & vbcrlf & _
"Sekunden: " & vbcrlf & _
" " & datediff("s", d, dd)