FUNÇÃO DIA DA SEMANA POR EXTENSO

?diaext(DATE())

FUNCTION diaext(DATA)
dia=DOW(DATA)

DIMENSION semana[7]
semana[1]="DOMINGO"
semana[2]="SEGUNDA"
semana[3]="TERÇA"
semana[4]="QUARTA"
semana[5]="QUINTA"
semana[6]="SÁBADO"
semana[7]="DOMINGO"

*!*SEMANA={"DOMINGO","SEGUNDA","TERÇA","QUARTA","QUINTA","SEXTA","SÁBADO"}
RETURN (semana[DIA])
ENDFUNC