Okręt podwodny modTasks ()
Ciemnawy obj Przedmiot
Ciemnawy theDate Sznurek
Jeżeli ActiveExplorer.Selection.count = (0) Wtedy Wychodzić Okręt podwodny
theDate = InputBox ("Co być the wymagany deferrment data? ")
Jeśli nie IsDate (theDate) Wtedy Wychodzić Okręt podwodny
Dla ActiveExplorer.Selection obj W ActiveExplorer.Selection
Jeżeli obj. Klasa = olTask Wtedy
obj.DueDate = theDate
obj. Save
Kończyć Jeżeli
Następnie
Końcówka Okręt podwodny
|