Calculo Horas Extras

Bom dia,

Alguém poderia me ajudar em 1 duvida por gentileza.

Eu baixei do forum um repositório fiz umas modificações ao meu modo, tudo funcionando correto.

Mas tem 1 pequeno problema que não consigo solucionar, as horas são computadas da seguinte forma:

2 primeiras horas = 50%

restantes das horas = 100%

Conseguem me ajudar como posso fazer esse calculo.

Ex: Funcionário trabalho 06:00 as 18:00h

06:00 as 08:00 equivale a 50%

08:00 as 18:00 equivale a 100%

Espero ter explicado pra vcs como preciso

Att.

Paulo

Neves,

Qual é o formulário que realiza o cálculo?

Ex: Funcionário trabalho 06:00 as 18:00h

06:00 as 08:00 equivale a 50%

08:00 as 18:00 equivale a 100%

50% do quê? Do valor/hora do funcionário

[]'s

FIM

@Alexandre

Desculpe nao explicar correto

entre um periodo de horario conforme mencionei

Ex:

06:00 as 18:00h

as 2 horas iniciais = valorX
(2 x valorX)

restantes das horas = valorY
(10 x valorY)

Espero que tenha entendido agora, obrigado

att.

Caro Neves,

Isso é fixo? Sempre 12 horas? O funcionário trabalha pelo menos 2 horas extras? Tem tabela guardando horas extras do mês?

Abraço

@Finformática

Aqui sempre o valor das 2 primeiras horas extra é valorX

Depois da 3h em diante é outro valorY a hora extra.

Funcionario trabalhou exemplo 10horas extras, aqui né 100% pago

como disse as 2h iniciais sao 50% do valor

as demais são 100% do valor

Neves

Isso é aqui no Brasil?

Ser for, creio que não é bem assim.

Tem horas extras de 50, 60, 75 e 100% além do valor da hora normal, até onde sei.

Melhor verificar isso certinho como o contador ou pesquisando, para

não ter que refazer os cálculos depois.


{ }'s

Balem

Caro Amigo,

Além das observações do Grande Noob (além da CLT ainda temos sindicatos com grandes variantes), volto a perguntar: Isso é fixo? Sempre 12 horas? O funcionário trabalha pelo menos 2 horas extras? Tem tabela guardando horas extras do mês? Todos os dias tem extras? Você já tem o valor de uma hora normal?
Se o funcionário trabalha apenas uma hora extra em um dia, em outro trabalha 5 horas, em outro trabalha 12 horas extras. Tenho que ter ideia de como vou ter a informação para ver como fazer os cálculos.
A questão das duas primeiras horas serem um percentual e o restante outro percentual, entendi perfeitamente. Preciso de detalhes da informação.
Abraços

@Noobezinho

Esse modo que estou tentando explicar que nosso amigo @finformatica entendeu é combinado com sindicato, correto e na lei.


@Finformática

As duas primeiras horas é 50%, demais horas 100%

Certo Neves

Então fica mais fácil.

Mas precisamos saber se são os mesmo valores  nos sábados, domingos e feriados.

Aguardamos...

@Noobezinho

Todos os dias da semana os mesmos valores.

Neves

Alexandre Fim escreveu:
Neves,
Qual é o formulário que realiza o cálculo?

Na mensagem nº 2

Qual?

Noobezinho

Formulario: frmLançarHe

Neves

Esse formulário que mencionou. somente tem campos para entradas de dados.

Não tem campos para colocar os valores em espécie.

E esse mesmo?

@Noobezinho

A sim o local onde entraria os valores seria na aba configurações do formulario abaixo

Formulario: frmHe

Esse proximo formulario é onde digita os horarios.

Formulario: frmLançarHe

Meu amigo

Fornecendo informações a conta gotas fica difícil ajudar.

Estamos na msg nº 15, agora que temos as infos necessárias

Bom FDS, amanha nos falamos.

Balem

Caro Amigo,

Veja se o anexo ajuda.

Abraços

@Finformática

Meu amigo deu perfeitamente oque fez unico problema é que se funcionario entrar as 18:00 e sair as 06:00 do dia seguinte aparece -12h

Da pra resolver isso ?

Obrigado atenção

Pedimos detalhes. Isso funciona para horas no mesmo dia. Está todo aberto, sem críticas de horainicial <  ou > horafinal, data aceita tudo, intervalo de horas dentro de outro também aceita. Tudo aberto. Criei pelo menos a ideia para ser adaptada. Para intervalos de horas iniciadas em um dia e terminado no dia seguinte, faça dois lançamentos. Faça as adaptações para suas necessidades.

Grande Abraço.

Obrigado atenção vou ver se faço as alterações.

att.

Paulo

HExtra: CData(SeImed([HoraExtraIni]>[HoraExtraFIM];1+[HoraExtraFIM]-[HoraExtraINI];[HoraExtraFIM]-[HoraExtraINI]))

So para acrescentar ao tópico.
Não consegui enviar o projeto. Caso tenha interesse em envio por email

Código:

Private Sub btTeste_Click()
Dim EM As Double 'entrada manha
Dim TEM As Double 'Tempo entrada manh? antes das 7
Dim SM As Double 'saida manha
Dim TSM As Double 'Tempo saida manh? depois das 11
Dim A As Double 'Hora extra feita durante o almo?o
Dim ET As Double 'entrada tarde
Dim TET As Double 'Tempo entrada tarde antes das 12:12
Dim ST As Double 'saida tarde ro?a
Dim TST As Double 'Tempo saida tarde depois das 17
Dim STP As Double 'Saida tarde ponto
Dim EX As Double 'Total das horas extras
Dim EX1 As Double 'Total de horas extras menos 2 horas dentro do sistema
Dim EXA As Double 'Total de horas extras mais o almo?o
Dim AD As Double 'Adicional noturno >21 horas

'as primeiras 2 horas s?o 50% as outras s?o 100%
'transforma as horas em decimal
EM = HrDbl(Left([EntradaManha], 5))
SM = HrDbl(Left([SaidaManha], 5))
A = HrDbl(Left([Almoco], 5))
ET = HrDbl(Left([EntradaTarde], 5))
ST = HrDbl(Left([SaidaTarde], 5))
'Pega os minutos feitos entre os tempo de entrada e saida com o relogio de ponto
'AM 07:00 11:00 PM 12:12 17:00
TEM = 7 - EM
TSM = SM - 11
TET = 12.2 - ET
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ver se ? semana ou fim de semana para calcula  TST tempo de saida tarde
If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
TST = ST - 16 'sabado e domingo
Else
TST = ST - 17 ' semana
Me.Hora100ST = Null
Me.HEx100ST = Null
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'A N?O PODE ENTRAR NA SOMA
'O A entra na soma das horas extras
'soma as horas
EX = TEM + TSM + TET + TST
EXA = TEM + TSM + TET + TST + A
'Verifica se ja nao ultrapassou o limite de 2 hora autorizada por dia
If TEM + TSM > 2 Then
MsgBox "Total de horas extra ja regitradas ultrapassou o limite de 2 HORAS.", vbCritical, "Aten??o"
Me.Undo
DoCmd.CancelEvent
Exit Sub
End If

'se o total de horas passar de 2 horas
If EX > 2 Then
STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
Me.Hora50 = 2
Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Else
'verifica se o total de horas mais o almo?o ultrapassou 2 horas
If EXA > 2 Then
EX1 = EXA - 2
Me.Hora50 = 2
Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(19)
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Else
Me.SaidaTardePonto = Me.SaidaTarde
Me.Hora50 = EXA
Me.HEx50 = HrStr(Hora50)
Me.Hora100 = 0
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
End If
End If
'se a saida ultrapassou as 21 horas tem o adcional noturno
'que ? pago em cima desta diferen?a
If ST > 21 Then
AD = ST - 21 'adcional ? a saida menos 21
Me.HoraAddNoturno = AD 'preenche o campo com o valor adcional
Me.HExADD = HrStr(Me.HoraAddNoturno) 'aqui converte em hora novamente

End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
'1 domingo 7 sabado
If EX > 2 Then
STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
Me.Hora100ST = 2
Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Me.Hora50 = ""
Me.HEx50 = ""
Else
'verifica se o total de horas mais o almo?o ultrapassou 2 horas
If EXA > 2 Then
EX1 = EXA - 2
Me.Hora100ST = 2
Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(19)
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Me.Hora50 = ""
Me.HEx50 = ""
Else
Me.SaidaTardePonto = Me.SaidaTarde
Me.Hora100ST = EXA
Me.HEx100ST = HrStr(Hora100ST)
Me.Hora100 = 0
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Me.Hora50 = ""
Me.HEx50 = ""
End If
End If
End If


End Sub

Private Sub Dia_AfterUpdate()
'Busca o nome do funcionario na cmb que esta no frm principal
Me.Funcionario = Parent!cmbNomeFunc
'Extrai o nome do dia da semana Me.txtNome = Left(Me.txtInicial, 5)
'Em maiscula e somente os 3 primeiros digitos
Me.NomeDia = UCase(Left(Format(Weekday(Dia), "dddd"), 3))
'Atualiza o campo funcionario
Me.Funcionario.Requery
End Sub

'hora convertida
'01:00 =1
'07:00=7
'11:00=11
'12:12=12,2
'17:00=17
Private Sub SaidaTarde_AfterUpdate()
Dim EM As Double 'entrada manha
Dim TEM As Double 'Tempo entrada manh? antes das 7
Dim SM As Double 'saida manha
Dim TSM As Double 'Tempo saida manh? depois das 11
Dim A As Double 'Hora extra feita durante o almo?o
Dim ET As Double 'entrada tarde
Dim TET As Double 'Tempo entrada tarde antes das 12:12
Dim ST As Double 'saida tarde ro?a
Dim TST As Double 'Tempo saida tarde depois das 17
Dim STP As Double 'Saida tarde ponto
Dim EX As Double 'Total das horas extras
Dim EX1 As Double 'Total de horas extras menos 2 horas dentro do sistema
Dim EXA As Double 'Total de horas extras mais o almo?o
Dim AD As Double 'Adicional noturno >21 horas

'as primeiras 2 horas s?o 50% as outras s?o 100%
'transforma as horas em decimal
EM = HrDbl(Left([EntradaManha], 5))
SM = HrDbl(Left([SaidaManha], 5))
A = HrDbl(Left([Almoco], 5))
ET = HrDbl(Left([EntradaTarde], 5))
ST = HrDbl(Left([SaidaTarde], 5))
'Pega os minutos feitos entre os tempo de entrada e saida com o relogio de ponto
'AM 07:00 11:00 PM 12:12 17:00
TEM = 7 - EM
TSM = SM - 11
TET = 12.2 - ET
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ver se ? semana ou fim de semana para calcula  TST tempo de saida tarde
If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
TST = ST - 16 'sabado e domingo
Else
TST = ST - 17 ' semana
Me.Hora100ST = Null
Me.HEx100ST = Null
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'A N?O PODE ENTRAR NA SOMA
'O A entra na soma das horas extras
'soma as horas
EX = TEM + TSM + TET + TST
EXA = TEM + TSM + TET + TST + A
'Verifica se ja nao ultrapassou o limite de 2 hora autorizada por dia
If TEM + TSM > 2 Then
MsgBox "Total de horas extra ja regitradas ultrapassou o limite de 2 HORAS.", vbCritical, "Aten??o"
Me.Undo
DoCmd.CancelEvent
Exit Sub
End If

'se o total de horas passar de 2 horas
If EX > 2 Then
STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
Me.Hora50 = 2
Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Else
'verifica se o total de horas mais o almo?o ultrapassou 2 horas
If EXA > 2 Then
EX1 = EXA - 2
Me.Hora50 = 2
Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(19)
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Else
Me.SaidaTardePonto = Me.SaidaTarde
Me.Hora50 = EXA
Me.HEx50 = HrStr(Hora50)
Me.Hora100 = 0
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
End If
End If
'se a saida ultrapassou as 21 horas tem o adcional noturno
'que ? pago em cima desta diferen?a
If ST > 21 Then
AD = ST - 21 'adcional ? a saida menos 21
Me.HoraAddNoturno = AD 'preenche o campo com o valor adcional
Me.HExADD = HrStr(Me.HoraAddNoturno) 'aqui converte em hora novamente

End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
'1 domingo 7 sabado
If EX > 2 Then
STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
Me.Hora100ST = 2
Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Me.Hora50 = ""
Me.HEx50 = ""
Else
'verifica se o total de horas mais o almo?o ultrapassou 2 horas
If EXA > 2 Then
EX1 = EXA - 2
Me.Hora100ST = 2
Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
Me.SaidaTardePonto = HrStr(19)
Me.Hora100 = EX1
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Me.Hora50 = ""
Me.HEx50 = ""
Else
Me.SaidaTardePonto = Me.SaidaTarde
Me.Hora100ST = EXA
Me.HEx100ST = HrStr(Hora100ST)
Me.Hora100 = 0
Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
Me.Hora50 = ""
Me.HEx50 = ""
End If
End If
End If
End Sub

Scandinavo

Para anexar os aplicativos no fórum:

ser em zip

ter menos de 1.953 Mb

Caso seja mais do que isso, compacte o BD no Access e depois em zip

Para enviar, na pagina de editar mensagem, mais abaixo clique em

Escolher Arquivo e na mesma linha em enviar.


{ }'s

Balem

mensagem de erro. Deve ser o servidor

"Não foi possível enviar o arquivo : o espaço de armazenamento para usuários foi ultrapassado. (Espaço restante : 104 Kb)"

Consegui diminuir o tamanho do arquivo segue projeto.

Sistema desenvolvido para controlar as horas extras de funcionarios que trabalham a nivel de campo (roça) e nao é registrado todos os horarios (feito pelo proprio funcionario em uma planilha) a pessoa do departamento pessoal precisa editar os horarios para encaixar no relogio de ponto, informando qual o horario de saida do trabalhador para ser registrado no relogio de ponto.
Limite de horas extras diarias 2 horas e que passar é 100 % e tambem registra o adicional noturno acima das 21 horas.
Calcula se o funcionario trabalha no turno noturno,


Obs. o horario de almoço do sistema é da 11:00 ate as 12:12