Verificar leilões iniciados a todo momento no site.

[fabiosc80 0]

Estou fazendo um site igual ao mercado livre. Porem, estou com um problema grave. Como faço pro site saber quais leiloes vao iniciar e finalizar tal hora.Tipo que comecem daqui a 15 minutos. e outro que finalize daqui a 5 minutos.Como fazer ele não mostrar coisa errada?Esse site ta sendo feito em access. loucura isso. mas nao querem pagar um SQLSERVER ou nem colocar MYSQL.

[jrcardozo 4]

não seria só você ver o tempo em minutos da hora do servidor menos a hora definida que está no banco de dados e exibir?

[fabiosc80 0]

Acho que sim.Cara to em panico aquiMe deram mais uns dias de prazo mais nao vai dar.Imagina eu fazer o site até dia 15.tem uns 10%pronto ou menos.

[jrcardozo 4]

cara...você vai ter que virar a noite então pra conseguir a tempo. vamos tentar esse problema do tempona tabela você deve ter dois campos, um com a data de inicio e outra com data fim. Para exibir você faz mais ou menos isso:busque os dados na tabela e com o recordset você faz o calculo, no exemplo faremos de inicio do leilãoDias = DateDiff('d',rs("dataInicial"),date)Meses = DateDiff('m',rs("dataInicial"),date)Anos= DateDiff('yyyy',rs("dataInicial"),date)agora você tem o dia,mes e data para exibir, basta dar o write na variavel

[fabiosc80 0]

Jonathan,Quando o cara cadastra o produto ele ele ja coloca o dia de inicio e quantos dias vai ficar lá pra leiloar.Não posso usar esses dias?Ai eu só exibo por select né??

[jrcardozo 4]

sim, mas ai tem um problema....supondo que ele coloque 7 dias o produto para leilão a iniciar em 05/10/2006....nessa data são 7 dias, no dia 06/10/2006 são 6 dias e ir diminuindo conforme passam os dias...você vai ter que calcular sempre para não exibir a data errada...ai você vai ter que pegar a data de inicio do leilão + quantidade de dias - data atual e irá resultar a quantidade de dias real. Acho que é isso

[fabiosc80 0]

Cara não entendi muito bem.

[jrcardozo 4]

imagine o seguinte...você cadastr o produto no dia 01/01/2007 e ainda define que ficará no leilão por 7 dias....ou seja, do dia 01/01/2007 até 07/01/2007. Até ai perfeito, no dia 01/01/2007 você exibe o total de dias para término do leilão 7 dias. No dia 02/01/2007 você não pode exibir 7 dias para término pois passou o 1º dia, então você tem que exibir 6 dias para termino, no dia 03/01/2007 você tem que exibir 5 e assim sucessivamente. Agora você tem que ver como fazer esse calculo dos dias que faltam para acabar, eu sugeri para você somar a data de inicio mais os dias de leilão(neste cao o total seria 07/01/2007) ai você pega essa data e diminui pela data atual usando a função que coloquei aqui: Dias = DateDiff('d','07/01/2007',date)irá retornar os dias que faltam para acabar o leilão

[fabiosc80 0]

Sim mas no banco de dados nao ta la o dia inicial?Posso fazer um calculo por ele.Me diz uma coisa. no banco eu to cadastrando dia mes e ano e hora, minuto e segundo.Como jogo isso e somo mais uns 7 dias por exemplo?

[jrcardozo 4]

o tempo(hora,minuto e segundo não muda), somente os dias e meses(só que os meses mudam "automaticamente")...veja como somar os dias

 

 

 

qtDias=7 DataTerminoLeilao= DateAdd("d", +qtDias, (rs("dia")&"/"&rs("mes")&"/"&rs("ano")))

veja que coloquei em formato dd/mm/aa...veja como estão retornando os dados do seu banco

[fabiosc80 0]

Alias eu sou chato pacas né?Cara agora que vi, tem dias e horas pra terminar o leilaotipo. o cara coloca 7 dias e 6 horas entendeu?Ai complicou né?

[jrcardozo 4]

olhe esse tópico, vai te ajudar

 

http://forum.imasters.com.br/index.php?sho...083&hl=hora

[fabiosc80 0]

Olha como fiz:qtDias= TVS("das_end_day") * 24 / 24qtMinutos = TVS("das_end_hour") * 60DataTerminoLeilao= DateAdd("d", +qtDias, (TVS("ias_start_day")&"/"&TVS("ias_start_month")&"/"&TVS("ias_start_year")))DataTerminoLeilao2= DateAdd("n", +qtMinutos, (TVS("ias_start_hour")&":"&TVS("ias_start_minute")))Prem olha oque ta me retornando nas horas:31/12/1899 00:53:00ele fica jogando esse ano na frente, sabe pq?

[jrcardozo 4]

você tentou fazer assim?Novadata = DateDiff("h", "11:30", "17:25")response.write(Novadata) poruq está usando dateadd? você não quer a diferença?

[fabiosc80 0]

Usei ele pq você tinha falado para usar o DateAddTipoo ele ta aparecendo o ano la, se eu colocar pra somar mais 6 horas por exemplo e virar o dia pro dia seguinte entendeu?Nao to entendeu o esquema do datediff.

[jrcardozo 4]

ops foi malz! eu estava pensando já na diferença das horas....to atucanado aqui

 

dá uma olhada nesse código que faz o calculo de diferença como você quer, só trocar as variaveis pela data e hora que tens no banco

 

 

 

<%DATA1 = Cdate(Now()) 'DATA ATUALDATA2 = Cdate(FINALIZA) 'DATA FINALIZAÇÃODIAS = DateDiff("d",DATA1,DATA2)If DateDiff("h",DATA1,DATA2) <> 0 ThenHORA = DateDiff("h",DATA1,DATA2) - Cint(DIAS) * 24ElseHORA = 0End IfIf DateDiff("n",DATA1,DATA2) <> 0 ThenMINUTO = DateDiff("n",DATA1,DATA2) - DateDiff("h",DATA1,DATA2) * 60ElseMINUTO = 0End IfIf DateDiff("s",DATA1,DATA2) <> 0 ThenSEGUNDO = DateDiff("s",DATA1,DATA2) - DateDiff("n",DATA1,DATA2) * 60ElseSEGUNDO = 0End IfIf SEGUNDO < 0 ThenMINUTO = MINUTO - 1SEGUNDO = 60 - SEGUNDO + SEGUNDO * 2End IfIf MINUTO < 0 ThenHORA = HORA - 1MINUTO = 60 - MINUTO + MINUTO * 2End IfIf HORA < 0 ThenDIAS = DIAS - 1HORA = 24 - HORA + HORA * 2End IfIf DIAS > 1 ThenResponse.Write "<font color=#003366 class=fontsize>" & DIAS & "d " & HORA & "h </font>"ElseIf DIAS = 1 ThenResponse.Write "<font color=#FF0000 class=fontsize>" & DIAS & "d " & HORA & "h </font>"ElseIf DIAS = 0 AND HORA > 0 ThenResponse.Write "<font color=#FF0000 class=fontsize>" & HORA & "h " & MINUTO & "m </font>"ElseIf DIAS = 0 AND HORA = 0 AND SEGUNDO > 1 ThenResponse.Write "<font color=#FF0000 class=fontsize>" & MINUTO & "m " & SEGUNDO & "s </font>"End If%>

[fabiosc80 0]

Valeu jonathas