Gruppe
DatumZeit
Problem
Über InpuBox wird eine Zeit abgefragt und durch 4 dividiert zurückgegeben.
StandardModule: Modul1
Sub ZeitTeilen()
Dim vTime As Variant
vTime = InputBox("Zeitangabe:", , Format(Now, "hh:mm"))
If vTime = "" Then Exit Sub
If IsDate(vTime) = False Then
Beep
MsgBox "Keine gültige Zeitangabe!"
Exit Sub
End If
vTime = CDate(vTime) / 4
MsgBox "Division durch 4:" & vbLf & Format(vTime, "hh:mm")
End Sub