d_data_vencimento is Date=SAI_data_vencimento (SAI_data_vencimento,SAI_diaSemana)=feriados_Calcula_proximo(d_data_vencimento) //-------------- PROCEDURE feriados_Calcula_proximo(d_recebe_data is Date=0) s_dia_semana is string="" SWITCH DateToDay(d_recebe_data) CASE 1 s_dia_semana="SEGUNDA" CASE 2 s_dia_semana="TERCA" CASE 3 s_dia_semana="QUARTA" CASE 4 s_dia_semana="QUINTA" CASE 5 s_dia_semana="SEXTA" CASE 6 s_dia_semana="SABADO" d_recebe_data..Jour-=1 // DAY CASE 7 s_dia_semana="DOMINGO" d_recebe_data..Jour+=1 // DAY OTHER CASE END RESULT(d_recebe_data,s_dia_semana)
//Blog Com Video e Exemplo http://windevdesenvolvimento.blogspot.com.br/2016/01/windev21-curso-230-calcular-dia-da.html
|