Privé SubForm_Timer ()
'10: 00 AM = 0.41667
'1: 00 PM =0.54167
'4: 00 PM= 0.66667
Schemerige strDate als Datum
strDate = Formaat (nu, „mm/dd/yyyy h: n“)
Als strDate = formatteer ((Datum + 0.41667), „mm/dd/yyyy h: n“) of strDate = Formaat ((Datum + 0.54167), „mm/dd/yyyy h: n“) of strDate = Formaat ((Datum + 0.66667), „mm/dd/yyyy h: n“) toen
'Doe iets
Beëindig als
Beëindig Sub
|