Horas E Datas De Novo, Desculpem Mas Só Perguntando

[hpunaro]

Pessoal já estou faz algumas horas tentando por isso decidi pedir ajuda novamente.

bom estou tentando fazer com que meu cálculo de diferença de horas suporte valores superiores a 24 horas. Fui na página do macoratti para pegar umas dicas, mas não estou conseguindo adaptar a função.

bom, eu tenho dois textbox que neles eu coloco as datas+horas. um botão para executar e um terceiro botão para mostrar o resultado somente em horas. Esse é o código que tenho do site do marcoratti, mas não consigo adaptar...

Dim dataincial As Date

Dim datafinal As Date

datainicial = #6/1/1993 8:00:00 AM#

datafinal = #6/3/1993 1:00:00 PM#

CalculaIntervaloTempo(datafinal-datainicial)

Function CalculaIntervaloHoras(intervalo)

Dim resultado As Double

CalculaIntervaloHoras = Int(CSng(intervalo * 24))

End Function

alguém pode daruma luz por favor, agradeço demais!

Abraço

[Graymalkin]

O código funcionou aqui. Só o nome da função que estava errada:

CalculaIntervaloTempo(datafinal-datainicial)

Function CalculaIntervaloHoras(intervalo)

Abraços,

Graymalkin

[hpunaro]

Putz que burrice hahaha funcinou perfeito, bom mas caí em outra cilada...

O que estou fazendo é um programa que calcula atrasos para que determinadas tarefas sejam executadas, com a fórmula assim só me interessaram as horas e minutos e fiz as devidas adaptações.

Bom agora a segunda fase.

Essa diferença de horas me deixa um tempo x em aberto e a resposta que eu obtenho é algo do tipo...

"24 horas e 10 minutos"

eu preciso continuar usando essas horas para justificar os atrasos, e o campo em seguida pegaria os dados do campo de horas em aberto só que deveria ser no formato padrão hh:mm e com esses "24 horas e 10 minutos" eu tenho um belo de um erro. Existe como converter isso?

Abraço!

[Graymalkin]

Ficou meio que ambígua a sua dúvida. O "erro" a que você se refere é:

* utilizar uma frase como "24 horas e 10 minutos" e transformar isso em 1 dia e 10 minutos?

* que "24 horas e 10 minutos" não pode ser representado simplesmente com hh:mm?

Graymalkin

[hpunaro]

Bom é o seguinte eu tenho a seguinte estrutura agora e eu queria adicionar a seguinte condição

Se txtres11 for menor que 0 eu devo subtrair o valor "-1" do campo txtres1 e somar o valor "+60" a txtres11 alguma sugestão, porque eu tento else...elseif e dá pau...

o erro é type mismatch

abraço

Private Sub Command2_Click()

mskdep.PromptInclude = False

mskactdep.PromptInclude = False

If mskdep.Text = Empty Or mskactdep.Text = Empty Then

MsgBox "Please Insert a Valid Time", vbExclamation, "Delay Calculator"

mskdep.PromptInclude = True

mskactdep.PromptInclude = True

mskdep.SetFocus

Else

txtres1 = txtopen1 - txtdl1

txtres11 = txtopen2 - txtdl11

End If

End Sub

[Graymalkin]

Uma caixa de texto guarda um texto. Se você quer trabalhar corretamente com valores você deve pegar o texto ("10") e transformar em valor (10). Isso pode ser feito através das funções CInt() ou Val().

Abraços,

Graymalkin

[hpunaro]

Olá, bom suas dicas foram ótimas e simplifiquei bastante a fórmula e consegui chegar nisso...

Private Sub Command2_Click()

If Val(txtres11) >= 0 Then

txtres1 = Val(txtopen1) - Val(txtdl1)

txtres11 = Val(txtopen2) - Val(txtdl11)

Else

txtres1 = Val(txtopen1) - Val(txtdl1) - 1

txtres11 = Val(txtopen2) - Val(txtdl11) + 60

End If

End Sub

Meu problema agora... Quando eu clico no botão que executa o comando ele dá valores diferentes...cada vez que eu clico é como se ele fizesse a situação 1 e depois a situação 2, alguma maneira de evitar isso?

[Graymalkin]

Você muda o valor de txtres11 então pode ser que caia no Else na segunda vez. Se você não quiser este comportamento você deveria utilizar caixas de texto diferentes para entrada e para o resultado.

Abraços,

Graymalkin