Form_Timer secondaire privé ()
'10h00 du matin = 0.41667
'13h00 =0.54167
'16h00 = 0.66667
Faible strDate comme date
strDate = format (maintenant, « mm/dd/yyyy h : n »)
Si strDate = format ((date + 0.41667), « mm/dd/yyyy h : n ») ou strDate = format ((date + 0.54167), « mm/dd/yyyy h : n ») ou strDate = format ((date + 0.66667), « mm/dd/yyyy h : n ») puis
'Faire quelque chose
Finir si
Finir le sous-marin
|