DATAS DIA DA SEMANA DATETODAY

DATAS DIA DA SEMANA DATETODAY

SWITCH DateToDay(EDT_data)
    CASE 1
        EDT_dia_semana="SEGUNDA"       
    CASE 2
        EDT_dia_semana="TERCA"       
    CASE 3
        EDT_dia_semana="QUARTA"       
    CASE 4
        EDT_dia_semana="QUINTA"       
    CASE 5
        EDT_dia_semana="SEXTA"       
    CASE 6
        EDT_dia_semana="SABADO"       
    CASE 7
        EDT_dia_semana="DOCUMENTO"       
    OTHER CASE
       
END
//1 se