Trabalhano Com Hora

[Steven Tyler]

ola passoal !!!

gostaria de saber se alguém pode me ajudar...é o seguinte......

tenho uma determinada hora......exemplo..... 15:30:00

e gostaria de saber como que eu faco para comparar uma hora com a outra e tirar uma diferenca !!!

exemplo...

tenho uma hora..15:30:00

e outra hora.... 16:25:00

a diferenca entre elas é de 55 minutos....como que eu obtenho este valor ?

porque tenho que fazer o seguinte, tenho que comparar 0 1° horario com o 2° horario, e se o 2° for 45 minutos maior que o 1°, então faco uma acao, senao faco outra acao !!!

alguém pode me ajudar por favor, é muito importante !!!

Abraços

Ramon

[fantasma]

<%

Dim vInicial, vFinal, vSegundo, vMinuto, vHora, vDia

data = "15:30:00"

datafech = "16:25:00"

vInicial = data

vFinal = datafech

vSegundo=0

vMinuto=0

vHora=0

vDia=0

vSegundo=Datediff("s",vInicial,vFinal)

If vSegundo > 60 Then

vMinuto = int(vSegundo/60)

vSegundo = vSegundo Mod 60

If vMinuto > 60 Then

vHora = int(vMinuto/60)

vMinuto = vMinuto Mod 60

if vHora > 24 Then

vDia = Int(vHora/24)

vHora = vHora Mod 24

End If

End If

end if

response.write vminuto

%>

[pogoball]

data1 = #1/1/1900 15:30:00#

data2 = #1/1/1900 16:25:00#

intervalo = dateDiff("n",data1,data2)

IF intervalo>=45 THEN

'ação1

ELSE

'ação2

END IF

ok? pesquise um pouco sobre funções colega. recomendo o livro ASP - Guia de consulta rápida (novatec editora [www.novateceditora.com.br]).

[Steven Tyler]

valeu galera, deu certo, eu fiz assim !!!!

res_45 = DateDiff( "n", rs_all("hora_saida_pree"), rs_all("hora_pree") )


if cint(res_45) > 45 then
    EntregueForaCliente = EntregueForaCliente + 1
else
    EntregueDoCliente = EntregueDoCliente + 1
end if

deu certinho, valeu ai !!!