Privates VorForm_Timer ()
'10: 00 MORGENS = 0.41667
'1: 00 P.M. =0.54167
'4: 00 PM= 0.66667
Schwaches strDate als Datum
strDate = Format (jetzt, „mm/dd/yyyy h: n“)
Wenn strDate = Format ((Datum + 0.41667), „mm/dd/yyyy h: n“) oder strDate = Format ((Datum + 0.54167), „mm/dd/yyyy h: n“) oder strDate = Format ((Datum + 0.66667), „mm/dd/yyyy h: n“) dann
'Etwas tun
Beenden wenn
Unterseeboot beenden
|