Function BeforeDate (Date1, Date2, Str) {if (Date1.Value> Date2.Value) {Alert (STR); Return true;} Return False;
Function NotaFterdate (Date1, Date2, Str) {if (Date1.Value> Date2.Value) {Alert (STR); Return true;} Return False;}