Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zrageburn

[Resolvido] Quais os dias entre duas datas

Por , em ASP Clássico

Recommended Posts

zrageburn    0

zrageburn
Postado

Boa tarde,

 

Estou estudando um pouco de asp e gostaria da ajuda de vocês para o seguinte, hehehe...

 

Como faço para saber quais foram os dias entre duas datas?, por exemplo:

 

Entre o Dia 26/02/2010 e 03/03/2010, quais foram os dias?

 

Eu preciso disso, porque vou fazer o asp verificar se foi Sábado ou Domingo e retornar apenas os dias úteis (feriados não contam... hehehe).

 

Mais ou menos isso

 

26/02/2010 é sábado ou domingo? Não

27/02/2010 é sábado ou domingo? Sim

28/02/2010 é sábado ou domingo? Sim

01/03/2010 é sábado ou domingo? Não

02/03/2010 é sábado ou domingo? Não

03/03/2010 é sábado ou domingo? Não

 

Resultando em:

Dias Corridos - 6

Dias úteis - 4

Sábado ou Domingo - 2

 

Agradeço desde já.

 

Abraço

 

Maurício

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Você pode usar a função DateDiff

 

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

Função que calcula quantos dias úteis (segunda à sexta) possuem entre duas datas:

 

<HTML>
<%Dim weekend 'dias não úteis(Sábado e Domingo)
Dim diferenca 'número de dias entre a data inicial e a final
data_inicial = "01/04/2010"
data_final = "01/09/2010"
dias_uteis = 0
weekend = 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 weekend = weekend + 1
If dia = 7 Then weekend = weekend + 1
dia = dia + 1
If dia > 7 Then dia = 1
Next
dias_uteis = diferenca - weekend
End Function
datas data_inicial,data_final%>
<BODY><BR>
<%=dias_uteis %> dias úteis entre <%= data_inicial %> e <%= data_final %>
</BODY>
</HTML>

Obs.: Caso haja feriados, basta subtrair sua quantidade da variavel dias_uteis

 

 

ou também existem exemplos no lab. de script

tutorial

Compartilhar este post

Link para o post
Compartilhar em outros sites

zrageburn    0

zrageburn
Postado

Você pode usar a função DateDiff

 

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

Função que calcula quantos dias úteis (segunda à sexta) possuem entre duas datas:

 

<HTML>
<%Dim weekend 'dias não úteis(Sábado e Domingo)
Dim diferenca 'número de dias entre a data inicial e a final
data_inicial = "01/04/2010"
data_final = "01/09/2010"
dias_uteis = 0
weekend = 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 weekend = weekend + 1
If dia = 7 Then weekend = weekend + 1
dia = dia + 1
If dia > 7 Then dia = 1
Next
dias_uteis = diferenca - weekend
End Function
datas data_inicial,data_final%>
<BODY><BR>
<%=dias_uteis %> dias úteis entre <%= data_inicial %> e <%= data_final %>
</BODY>
</HTML>

Obs.: Caso haja feriados, basta subtrair sua quantidade da variavel dias_uteis

 

 

ou também existem exemplos no lab. de script

tutorial

 

Muito obrigado xanburzum, era isso mesmo que eu precisava, beeem mais simples do que eu estava tentando (Do While e DateAdd, mas estava dando erro)... hehehe, fiz apenas uma alteração no seu, pois o dia inicial também conta, sendo assim: "dias_uteis = diferenca - weekend + 1"

 

Agora é eu entender certinho.

 

Obrigado novamente.

 

Abraço

 

Maurício

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Beleza, mano

 

qualquer dúvida, posta ae....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito