4 replies to this topic

[marco_info]

14/04/2004 inicio
08/06/2004 fim

tenhu que mostrar quantos dias que essa maquina ficou parada no mes 4 no, mes 5 e no mes 6

olhando da pra saber............. no mes 4 ficou 16, no 5 ficou 31 e no mes 6 ficou 8.................como faço um algoritmo que conte e me mostre desse jeito ????

tenhu um banco de dados com data de inicio e fim de varias maquinas !!!!

alguem pode me ajudar ???

desde ja agradeço
Marco Aurélio

[Info_Tec]

Vamos às analizes, vc deve verificar se na data Final o mês é maior que na inicial,

Se for igual um DateDiff simples te retorna.

Se for Maior, deveremos analizar qts meses para podermos gerar um Laço para contagem, como?
Se for como em seu exemplo, vêmos que entre inicio e fim passou-se por 3 meses distintos, para saber qts dias do 1º Mês pegamos o 1º dia do mês seguinte e usamos o DateDiff, para o último, pegamos o 1º dia do mês final. E o meio? ai entrará o laço, não vou entrar à fundo nessa lógica agora caso precise poste, vc deverá pegar o 1º dia do mês e diminuir do último dia desse mesmo mês, como pegar? some 1 mês e diminua 1 dia.

Agora é só pensar mais um pouco.

[Prog]

Rapaz... é blz, poderia resolver com uma simples função, mas, do jeito que você esta querendo especificar, você terá, pelo menos, 2 problemas:
- saber quantos dias tem cada mês; (pode ser resolvido com um vetor)
- saber se o ano é bisexto;

Isso vai incluir diversos cálculos no seu algoritmo.

Porque não mostra o que já tem feito até o momento?

Função principal para resolução do algoritmo: DateDiff()
Consulte documentação.

[marco_info]

meu codigo eh esse ate o momento

<%

Onde = SERVER.MAPPATH("../bd/manutencao.mdb")
ConnString = "DBQ=" & Onde & ";Driver={Microsoft Access Driver (*.mdb)}"

Set Connexao = Server.CreateObject("ADODB.Connection")
Connexao.Open ConnString

anoi = request.Form("txt1")
anof = request.Form("txt2")

'ano = 0
'mes = 1
'for ano = anoi to anof
' for mes = 1 to mes = 12
'  set disp = Connexao.Execute("SELECT chapa FROM maq_quebrada WHERE dinicio >=#" & mes & "/" & 1 & "/" & ano & "# AND dtermino <= #" & mes & "/" & 31 & "/" & anof& "#")
'  resul = disp.recordcount
'  mesAtual = month(now)
'  for mes2 = mes2  to mesAtual
'    response.write "<tr>"
'    response.write "<td>" & mesAtual & "</td>"
'    response.write "</tr>"
'    response.write "<tr>"
'    response.write "<td>" & resul & "</td>"
'    response.write "</tr>"
'  next
' next
'next
%>
</table>

o meu problema eh que naum mostra nda na pagina !!!!!

[marco_info]

ja consegui resolver o problema que naum esta mostrando !!!1

so que preciso de ajuda na logica de como detectar os dias de cada mes !!!!

HELP !!

valeuuu