Dias Uteis - Como Faço?

webdotx · Março 26, 2004

Como faço para minha aplicação contar 30 dias uteis (Ou seja pulando fins de semana).

Já aproveitando essa brecha, me ajudem a raciocinar, minha venda é feita no dia 31/03, os vencimentos sá serão pagos no 5 dia util após um mês (ou seja 5/5) como eu faço pro meu prog reconhecer isso pulando os finais de semana (por ex. dia cinco cai no sábado então ele, o sistema, manda, a cobrança direto para o dia 7, no caso o primeiro dia util subsequente???

dark0 · Março 26, 2004

você já começou a criar o sistema?

eu nunca testei isso.. nem nunca fiz nada parecido..

mas olhe isso:

Função Weekday

essa função retorna o dia da semana.. quem sabe possa lhe ajudar..

pois eu imagino alguma coisa como: você guarda numa variavel sabado e domingo.. depois conta de 7 em 7.. (teoricamente seria isso)

veja o que você consegue, pelo menos começar.. e qualquer coisa lhe ajudamos

abraços

webdotx · Março 26, 2004

Vou terminar de fazer o codigo aqui e mando pra galera me ajudar - pode ser?

André Gusmão · Março 26, 2004

Seria interessante criar uma períodos inativos no ano.

Tipo assim:

ANO

DESCRICAO

DATA INICIAL

DATA FINAL

Por exemplo:

ANO: 2004

DESCRICAO: CARNAVAL

DATA INICIAL: 21/02/2004

DATA FINAL: 24/02/2004

Daí era só pular os dias que constassem nos intervalos das datas da tabela.

dark0 · Março 26, 2004

Vou terminar de fazer o codigo aqui e mando pra galera me ajudar - pode ser?

beleza..

monta aí, e depois a gente lhe ajuda sim..

abraços

webdotx · Março 27, 2004

Olá dark eu não estou conseguindo de jeito nenhum dar um resultado pelomenos proximo da ideai que eu dei no inicio do tópico que é de gerar uma listagem de parcelas que os vencimentos sempre caiam no segundo dia do mês - o maximo que consegui foi - fazer o loop de 30 e 30 dias veja abaixo

<%

Dim semana'dias não úteis(Sábado e Domingo)

Dim diferenca 'número de dias entre a data inicial e a final

data_inicial = #05/01/03#

data_final = #05/30/03#

dias_uteis = 0

semana= 0

Function datas(data_inicial,data_final)

diferenca = DateDiff("d",data_inicial,data_final)

dia = Weekday(data_inicial)

For contador = 0 to diferenca

If dia = 1 Then semana= semana+ 1

If dia = 7 Then semana= semana+ 1

dia = dia + 1

If dia > 7 Then dia = 1

meu = weekday(dias_uteis)

response.Write(meu)

End Function

datas data_inicial,data_final

%>

<BODY>

<BR>

<%=dia %>

'<%=dias_uteis %> dias úteis entre <%= data_inicial %> e <%= data_final %> '

</BODY>

</HTML>

tem como você me dar uma força nesse codigo pra chegar pelo menos proximo da ideia?

dark0 · Março 27, 2004

opa.. beleza?

vou tentar bolar alguma coisa aqui, depois posto pra vc

to em casa.. conexao discada é foda.. hehe

ate mais

Victor · Março 27, 2004

Eu to quase terminando um aki, ateh amanha já posto pra você cara

Entrar

Dias Uteis - Como Faço?

Pergunta

webdotx

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

webdotx

Link para o comentário

Compartilhar em outros sites

André Gusmão

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

webdotx

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Victor

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades