PROCEDURE Rules_DataValida(dDataValida) bvalida is boolean = False dataFormatada is Date dataFormatada..Year = Middle(dDataValida,1,4) dataFormatada..Month = Middle(dDataValida,5,2) dataFormatada..Day = Middle(dDataValida,7,2) dDataMinima is Date dDataMinima = dataFormatada dDataMinima..Year -= 5 dDataMaxima is Date dDataMaxima = dataFormatada dDataMaxima..Year += 5 IF dataFormatada >= dDataMinima AND dataFormatada <= dDataMaxima AND Lower(DateToDayInAlpha(dataFormatada)) <> "domingo" AND Lower(DateToDayInAlpha(dataFormatada)) <> "sábado" bvalida = True ELSE bvalida = False IF Lower(DateToDayInAlpha(dataFormatada)) = "domingo" OR Lower(DateToDayInAlpha(dataFormatada)) = "sábado" Info("Data Inválida, é um "+DateToDayInAlpha(dataFormatada)) //// ELSE Info("Data Inválida") END END RESULT bvalida |