[Resolvido] Comparar e contar datas diferentes ASP

[Renatolps 0]

Boa Tarde Pessoas.

 

Estou tentando efetuar um calculo de média simples, porem não estou conseguindo/ sabendo como comparar datas no meu registro.

O banco de dados é em access e esta no formato dd/mm/aaaa, porem a questão é a seguinte:

Gostaria de gerar um contador de datas que quando o 1o registro (data) for diferente do proximo e assim por diante conte mais um na variavel contadata1, só frizando que quanto um registro (data) for igual ao proximo não contar.

 

Bom tentei fazer isso, mais não funciona, ele conta todas as datas,

sou novato nisso... agredeço pela ajuda da logica para resolver esse meu problema...

 

sqlstr = "Select * From Cadastro Where nome = '" & varlogin & "' and  data BETWEEN #"&ConverteData(Datainicial)&"# and #"&ConverteData(Datafinal)&"# order by data "
		   set rs=conn.Execute(sqlstr)
		   
				 contadata1 = 0
  
				  do while not rs.eof 
					 
				   data = rs("data")
					 
					 if data = rs("data")  then
					  contadata1 = contadata1 + 1
									   
					 end if

				  rs.movenext
			  

				loop
				conn.Close
				set conn = Nothing
				set rs = nothing


	soma = contador1 + contador2 

	if contadata1 = 0 then
	   media = 0
	else 
	   media = soma / contadata1
	end if

[],s

[filipescoob 1]

Bom dia Renatolps,

 

O problema esta aqui!

 

contadata1 = 0
  
				  do while not rs.eof 
					 
				   data = rs("data")
					 
					 if data = rs("data")  then

Você inicia seu contador, até ai esta certo! Inicia o Laço de Repetição e dentro do laço você diz.

 

data = rs("data")

 

Toda vez que chegar aqui

 

if data = rs("data") then

 

Sera verdadeiro. O modo logico é você armazenar o valor de sua data atual em uma variavel e o da data anterior em outra.

 

ex.

 

Data_atual

Data_anterior

 

Segue codigo

do while not rs.eof 
					 
					 if not (data_anterior = rs("data"))  then
						 contadata1 = contadata1 + 1
					 end if

				  data_anterior = rs("data")
				  rs.movenext

				loop

Não testei, porem se der erro posta ai para gente ver.

 

Abraços

[Renatolps 0]

Bom dia filipescoob.

 

Cara... muito obrigado... funcionou da forma que você me passou...

Viagei legal na minha ideia de contar data.... fiz coisa pra caramba e no site e me enrolei nisso....

 

ficou muito agradecido pela sua ajuda....

[],s