Cálculo de DIA/HORAS/MINUTOS

[dead_thinker 0]

Bom Dia galera.Por favor, estou com um problema para calcular o tempo decorrido de um cliente numa aplicação dee hotel.Tenho q calcular o tempo em dias/horas/minutos, de forma q n haja redundância (1h, 65min) que da o mesmo q 1h,5min.Alguem sabe como fazer isso?

[dead_thinker 0]

Fiz assim. Será que está correto?????????

 

ASP

[*] if strMinutos > 60 then

[*] '

[*] '

[*] '

[*] dim intPos

[*] intPos = InStr(strMinutos/60, ",")

[*] strMinutos = strMinutos - (Left(strMinutos/60, intPos) * 60)

[*] '

[*] '

[*] '

[*] if strHora > 24 then

[*] '

[*] '

[*] '

[*] intPos = InStr(strHora/24, ",")

[*] strHora = strHora - (Left(strHora/24, intPos) * 24)

[*] end if

[*] end if

[*]

[Mário Monteiro 179]

de onde virão estes valores??poe um exemplo real pra ficar mais facil...

[dead_thinker 0]

Eles vem do SQL. No caso vem assim: (2005-04-04 10:00:00) ou seja vParam(9) = '2005-04-04 10:00:00'.Digamos que o cara entrou no hotel hoje de 10h.Ai eu separo as comparações de dia/hora/minuto e exibo "Checkin desde 2005-04-04 10:00:00 - 3 dias, 5 horas e 20 minutos" por exemplo.Grato

[Mário Monteiro 179]

converte tudo pra uma unidade unica tipo minuto por exemplo e faz os calculos depois transforma para o que você quiser...

[dead_thinker 0]

Mas pelo que noto, fazendo isso aqui:

ASP

[*]

[*] dim strDias

[*] strDias = DateDiff("d", vParam(9), now)

[*] '

[*] '

[*] '

[*] dim strHora

[*] strHora = DateDiff("h", vParam(9), now)

[*] '

[*] '

[*] '

[*] dim strMinutos

[*] strMinutos = DateDiff("n", vParam(9), now)

[*]

 

 

Ja tenho os dias, horas e minutos de estadia, mas so queros os minutos decorridos da hora atual, e a hora do dia atual, tipo se está com 20 minutos decorridos da terceira hora do segundo dia de estadia do cara, vai mostrar "2d, 3h, 20min"

 

Como faço isso?

[Mário Monteiro 179]

cara mas fazendo assim você esta pegando valores tres vezespois você pega os dias pega as horas que ja foram pegas em dias e pega os minutos, vixi ta pegando 3 vezespega só os minutos e transforma pro que você quer...

[dead_thinker 0]

Diz assim:

 

ASP

[*] dim strMinutos

[*] strMinutos = DateDiff("n", vParam(9), now)

[*] '

[*] '

[*] '

[*] dim strDias

[*] strDias = Left(strMinutos/1440, (InStr(strMinutos/1440, ",")-1))

[*] '

[*] '

[*] '

[*] dim strHora

[*] strHora = Left(strMinutos/60, (InStr(strMinutos/60, ",")-1))

 

 

 

 

mas como transformo os minutos para serem exibidos como menos que uma hora? (minutos <= 60)

[Morpheus#2005 1]

Cara tem que usar DATEDIFF... SELECT DATEDIFF(DAY,data,GETDATE())as DataQualquer coisa GRITA..

[Mário Monteiro 179]

como te disse você pega a diferença de minutos, isso você ja fazstrMinutos = CINT(DateDiff("n", vParam(9), now))divide pela quantidade de minutos que tem um dia (1440)dias = CINT(strMinutos/1440)resto = CINT(strMinutos mod 1440)com o resto vo pega as horashoras = CINT(resto/60)minutos = CINT(resto mod 60)pronto agora você tem a diferença corretadias horas e minutos

[dead_thinker 0]

Vlw pessoal obrigado.Deu certo.

[Mário Monteiro 179]

Vlw pessoal obrigado.

Deu certo.

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Telma 0]

http://forum.imasters.com.br/public/style_emoticons/default/sick.gif Olá pessoal, esta a e 1ª vez q eu faço parte deste grupo... estou um pouco perdida. Por favor eu gostaria de orientação quanto a conversão no Crystal Reports, de valor para hora. Será q alguém pode me ajudar??? Muito obrigada!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Telma