Dia Util

Para verificar se uma data é dia util ou nao:

Procedure

Código:

PROCEDURE DiaUtil:
DEFINE INPUT PARAMETER p_data AS DATE FORMAT “99/99/9999″.
DEFINE OUTPUT PARAMETER p_flg AS LOGICAL INITIAL TRUE.
IF WEEKDAY(p_data) = 7
OR WEEKDAY(p_data) = 1 THEN DO:
ASSIGN p_flg = FALSE.
END.
END PROCEDURE.

Chamada da procedure

Código:

DEFINE VARIABLE flg AS LOGICAL INITIAL TRUE.
run DiaUtil (INPUT  “20/12/2008″
,OUTPUT flg).
IF flg = TRUE THEN
MESSAGE “Eh dia util” VIEW-AS ALERT-BOX.
ELSE
MESSAGE “Nao eh dia util” VIEW-AS ALERT-BOX.

Se quiser uma procedure mais completa, basta criar uma tabela de feriados e incluir na procedure.