Tiago Cruz

Gente,

Estou com um problema em um programa que estou fazendo no VB...

Tenho alguns labels:

Hora_entrada: 12:00:00
Hora_saida: 15:00:21
Hora_cobrar: 3

ok?
CoOnsegui fazer as contas certinha (hora final - hora inicial) convertendo em minutos, pá... lindo maravilhoso!

Mas, se o cara sair depois da meia-noite, fedeu :-(
Como é uma casa noturna, provavelmente ele ira sair da suíte depois da 00:00..

Aí a conta horafinal-inicial vai pro brejo...

Entenderam? O que eu poderia fazer para contornar isso?

Valeu galera!!!
Abraços

Ricardo de Castilho

Vc têm que considerar no cálculo dia/mes/ano para não dar nem um bug tipo virada do mes, ano...

if que dia é hj = data inial then ....

é fácil qualquer dúvida aí dá um berro!

Ricardo de Castilho

vc poderia usar algo assim:


Text3.Text = CDate(Text2.Text) - CDate(Text1.Text)

text1 é a data que o cliente entrou
text2 é a data que o cliente saiu

text3 é o resultado em dias

a data pode ser inserida na text assim; dd/mm/yyyy

espero ter ajudado...

Tiago Cruz

Ow Ricardo,

O esquema é uma casa noturna, heheheh...

O aluguel das suítes é por hora.... o cara entra lá pelas 20:00, se quiser alugar uma suite, o preço é por hora... então quando ele sair o sistema tem que calcular qtas horas ele ficou...

Entendou? O cara vai dar uma "rapidinha" :mrgreen: e vai ficar no maximo umas 03 horas.... mas se virar o dia vai ferrar pq ele vai se perder nas contas.... entendeu?

Tem como dar uma luz ae? ;-)

valeu!!!

Tiago Cruz

Então cara.... eu não preciso dos dias, apenas das horas, manja?

Eu estou usando o left, mid e rigth para separar a hora de entrada e a hora de saida, ex:

Entrada: 22:54:55
Saida: 23:55:55

h1= 22
h2=23
m1=54
m2=55

Daí eu converto tudo para minutos, faço as contas, subtraio um do outro, e tranformo para horas... dá certinho! Até pego o resto da divisão para arredondar para cima, heheheh

Mas o problema é com a conta "depois da meia noite"... você saberia alguma forma de faze-la?

Muito obrigado!

Ricardo de Castilho

faça algo assim

dim QUEDIAEHHOJE as string
quando der a entrada
QUEDIAEHHOJE = date

quando der saida
if not QUEDIAEHHOJE = date then
QUANTASHORASDEAMOR=(hora de entrada - 23:59) + (00:00 - hora de saída)
else
QUANTASHORASDEAMOR=(hora de entrada - hora de saída)
endif

Tiago Cruz

Valeu Ricardo!

Lá em casa vou tentar, hehehehe...

Valeu mesmo, se eu não conseguir, amanhã eu volto

T+