Приватное Sub Form_Timer ()
'10: 00 AM = 0.41667
'1: 00 PM =0.54167
'4: 00 PM= 0.66667
Тусклое strDate как дата
strDate = форма (теперь, «mm/dd/yyyy h: n»)
Если strDate = форма, то ((дата + 0.41667), «mm/dd/yyyy h: n») или strDate = форма ((дата + 0.54167), «mm/dd/yyyy h: n») или strDate = форма ((дата + 0.66667), «mm/dd/yyyy h: n») после этого
'Сделайте что-то
Закончитесь если
Закончите подводную лодку
|