[Resolvido]Calcular horas em formulário desvinculado

Boa tarde Amigos

No exemplo que anexo só tem um formulário, ligado a tabela.

Queria que fosse desvinculado, mas não o consigo fazer pois o formulário tem campos que estão ocultos e tem um valor predefinido.

Alguém ajuda a desvincular o dito cujo ?

Obrigado

Bom dia

Como faço esta formula que está numa coluna de uma consulta em VBA

Total: Ise([horafim]>[horainicio];[horafim]-[horainicio];([Hora]-[horainicio]+[Corretivo])+[horafim])

Obrigado

Quase!!!!!!!!!

Boa tarde Assis
Ou alteras o tipo de dado na tabela para gravar o valor ou formatas o valor para o formato pretendido para hora: Format(TempoDecinmal, "hh:mm")

Bom dia Amigos

Com a dica do Alexandre cheguei lá.

Agora só tem um problema.

No formulário ligado tem uma pormenor que é.

Se ao digitar a Hora Fim > que a Hora Inicio, ele calcula como se fosse entrar num dia e sair no dia seguinte.

Isso deve ter a haver com o caso da mensagem Nº 2 para o qual ainda não tive uma dica.

PS - Deixo aqui o exemplo atualizado

Obrigado

Código:

Private Sub HoraFim_AfterUpdate()
On Error Resume Next

    If Me.HoraFim.Value < Me.HoraInicio.Value Then
        MsgBox "A hora de saída, não pode ser inferior à de entrada.", vbCritical, "erro"
        Me.HoraInicio.SetFocus
        Me.HoraFim.Value = ""
        Me.HoraFim.SetFocus
        Exit Sub
    End If
    
Me.Tempo.Value = Format((Me.HoraFim.Value - Me.HoraInicio.Value) * 24, " #0.0000")

Me.DifTempo.Value = Me.HoraFim.Value - Me.HoraInicio.Value
Me.TempoHoras.Value = Format(DifTempo, "hh:mm")
Me.AReceber.Value = Int(Me.Valor.Value * Me.Tempo.Value)
End Sub

Boa tarde JPaulo

Obrigado

Mas eu preciso das duas opções pois onde vai funcionar trabalham 24 horas ao dia.

E tem o turno das 22:00 noite até as 06:00 da manhã.

E no formulário vinculado faz os cálculos certos.

Imagem da mensagem Nº 5

Ok, desconhecia que eram turnos a passarem de um dia para o outro;

Código:

Private Sub HoraFim_AfterUpdate()
Dim x As Variant

    If (Me.HoraFim.Value > Me.HoraInicio.Value) Then
        x = Me.HoraFim.Value - Me.HoraInicio.Value
        Else
        x = (TimeValue(Me.Hora.Value) - Me.HoraInicio.Value + TimeValue(Me.Corretivo.Value) + Me.HoraFim.Value)
    End If

Me.DifTempo.Value = x

Me.Tempo.Value = Format((Me.DifTempo.Value) * 24, " #0.0000")
Me.AReceber.Value = Int(Me.Valor.Value * Me.Tempo.Value)
Me.TempoHoras.Value = Me.DifTempo.Value
End Sub

Perfeito como sempre

Obrigado

Obrigado pelo retorno.

Bom dia JPaulo

Peço desculpa por reabrir o tópico

Mas acrescentei um campo valor padrão com 2 casas decimais para somar ao "AReceber"

O campo tem o nome "TxtAlmoco", e só pode ter 2 valores: "0.00", ou "100.00"

Tentei assim mas não resulta ...

'Me.AReceber.Value = Int(Me.Valor.Value + Me.TxtAlmoco.Value * Me.Tempo.Value)

Para colocar acho eu na linha a vermelho

Obrigado



Dim X As Variant

   If (Me.HoraFim.Value > Me.HoraInicio.Value) Then
       X = Me.HoraFim.Value - Me.HoraInicio.Value
       Else
       X = (TimeValue(Me.Hora.Value) - Me.HoraInicio.Value + TimeValue(Me.Corretivo.Value) + Me.HoraFim.Value)
   End If

Me.DifTempo.Value = X

Me.Tempo.Value = Format((Me.DifTempo.Value) * 24, " #0.0000")

Me.AReceber.Value = Int(Me.Valor.Value * Me.Tempo.Value)



Me.TempoHoras.Value = Me.DifTempo.Value

Olá

Quer anexar aqui o banco ou parte dele com essa alteração ?

Obrigado JPaulo

Segue anexo

Código:

Private Sub HoraFim_AfterUpdate()

    If Me.HoraInicio.Value >= #12:29:00 PM# Or Me.HoraFim.Value >= #1:29:00 PM# Then
        Me.TxtAlmoco.Value = "100"
        Else
        Me.TxtAlmoco.Value = "0"
    End If

'On Error Resume Next
'********************************************************************************************
 If Me.HoraFim.Value <= Me.HoraInicio.Value Then
        MsgBox "A hora de saída, não pode ser inferior" & vbNewLine & "Nem Igual de entrada.", vbCritical, "Aviso"
        Me.HoraInicio.SetFocus
        Me.HoraFim.Value = ""
        Me.HoraFim.SetFocus
        Exit Sub
    End If
'******************************************************************************************

Dim X As Variant

    If (Me.HoraFim.Value > Me.HoraInicio.Value) Then
        X = Me.HoraFim.Value - Me.HoraInicio.Value
        Else
        X = (TimeValue(Me.Hora.Value) - Me.HoraInicio.Value + TimeValue(Me.Corretivo.Value) + Me.HoraFim.Value)
    End If

Me.DifTempo.Value = X

Me.Tempo.Value = Format((Me.DifTempo.Value) * 24, " #0.0000")
Me.AReceber.Value = Int(Me.Valor.Value * Me.Tempo.Value) + Me.TxtAlmoco.Value
Me.TempoHoras.Value = Me.DifTempo.Value
Me.TxtAlmoco.Value = Format(CDbl(Me.TxtAlmoco.Value), "0.00")
End Sub

Jpaulo

As coisas que parecem nem sempre são ....

Para o que eu expliquei está perfeito mas:

If Me.HoraInicio.Value >= #12:29:00 PM# Or Me.HoraFim.Value >= #1:29:00 PM# Then
Me.TxtAlmoco.Value = "100"
Else
Me.TxtAlmoco.Value = "0"
End If

*********************************************************************************************

Este valor do almoço só devia aparecer entre o período 12:30 13:30

Exemplos:

10:00 as 18:00, 11:00 as 14:30 são horas que englobam o período das 12:30, as 13:30 qui então aparece o "100"

Mas se eu marcar:

14:30 as 15:00 ou 16:00 as 18:00 não devia aparecer o valor de "100" e sim "0" e está a aparecer.

Ou:

08:00 as 12:00 também deve ser "0"


Obrigado e desculpe

Código:

Private Sub HoraFim_AfterUpdate()
Dim timerInicio As Date
Dim timerFim As Date
timerInicio = #12:29:00 PM#
timerFim = #1:29:00 PM#

    If Me.HoraInicio.Value <= timerFim And Me.HoraFim.Value >= timerFim Then
        Me.TxtAlmoco.Value = "100"
        Else
        Me.TxtAlmoco.Value = "0"
    End If

'On Error Resume Next
'********************************************************************************************
 If Me.HoraFim.Value <= Me.HoraInicio.Value Then
        MsgBox "A hora de saída, não pode ser inferior" & vbNewLine & "Nem Igual de entrada.", vbCritical, "Aviso"
        Me.HoraInicio.SetFocus
        Me.HoraFim.Value = ""
        Me.HoraFim.SetFocus
        Exit Sub
    End If
'******************************************************************************************

Dim X As Variant

    If (Me.HoraFim.Value > Me.HoraInicio.Value) Then
        X = Me.HoraFim.Value - Me.HoraInicio.Value
        Else
        X = (TimeValue(Me.Hora.Value) - Me.HoraInicio.Value + TimeValue(Me.Corretivo.Value) + Me.HoraFim.Value)
    End If

Me.DifTempo.Value = X

Me.Tempo.Value = Format((Me.DifTempo.Value) * 24, " #0.0000")
Me.AReceber.Value = Int(Me.Valor.Value * Me.Tempo.Value) + Me.TxtAlmoco.Value
Me.TempoHoras.Value = Me.DifTempo.Value
Me.TxtAlmoco.Value = Format(CDbl(Me.TxtAlmoco.Value), "0.00")

Bom feriado

Obrigado JPaulo

Última questão para o tópico --> ver imagem

Código:

Format(CDbl(DLookup("txtvalor","valorAlmoco")), "0.00")

Boas JPaulo


If Me.HoraInicio.Value <= timerFim And Me.HoraFim.Value >= timerFim Then
Me.TxtAlmoco.Value = Format(CDbl(DLookup("txtvalor", "valorAlmoco")), "0.00")
Else
Me.TxtAlmoco.Value = "0"
end If

Não funfa, cntinua a dar só "100"


Obrigado

Certo, porque você apenas está a alterar nesse trecho de código;

Veja;

Era isso JPaulo

Obrigado

Obrigado pelo retorno Assis.