[Resolvido]Cálculos de horas extras retornando valor no formato moeda

Boa noite

Estou utilizando um banco de dados de controle de horas extras ele funciona bem, exemplo:
Entrada    Saída   total horas
10:00      11:00     01:00
15:30      16:00     00:30
17:00      19:30     02:30

Suponhamos que o valor da hora seja R$ 10,00 no formulário ele já me retorna o valor total das horas extras
que segundo o exemplo acima é R$ 40,00. Até ai tudo bem, só que eu gostaria que além do resultado total ele
me desse o resultado desta maneira;

Entrada    Saída   total horas    valor parcial
10:00      11:00     01:00          R$ 10,00
15:30      16:00     00:30          R$ 05,00
17:00      19:30     02:30          R$ 25,00

ou seja o valor de cada período de trabalho, Conto com a ajuda de vocês para resolver este problema

Muito obrigada!

Olá,

No site do Avelino tem um exemplo.

Olá
Cláudio Más

Desde Já agradeço pela atenção!

Estive olhando o site que você me indicou e baixei o exemplo do Avelino, que por coincidência é igualzinho ao que
eu tenho aqui que baixei em outro site. Como não tenho conhecimento no assunto não consigo adapta-lo às minhas
necessidades. Vou postar as imagens de como é, e de como gostaria que ficasse.


https://2img.net/r/ihimg/photo/my-images/534/1ay7.jpg/

https://2img.net/r/ihimg/photo/my-images/37/hxut.jpg/

Fico aguardando a ajuda.

Muito obrigada!

Olá Thalissa,

Você precisa criar uma função em um módulo:

Código:

Public Function fCalculaTotal(total_horas As String, valor_hora As Currency) As Currency

Dim ht As Double
ht = Split(total_horas, ":")

fCalculaTotal = (ht(0) + (ht(1) / 60)) * valor_hora

End Function

E substituir a tabela do subformulário por uma consulta sobre a mesma tabela, na qual irá criar um campo calculado, por exemplo:

ValorTotal: fCalculaTotal(total_horas; 10)

Fiz um pouco rápido e pode ocorrer erro, mas deve servir.

Boa noite

Cláudio Más, quero agradecer pela gentileza, e o esforço para me ajudar, como eu falei não tenho conhecimento no assunto. Mas
estou precisando muito desse BD para poder calcular as horas extras de muitos funcionários. Quebrei a cabeça tentando resolver
com as informações que você me passou , mas não tive sucesso está sempre dando erro. Por isso não sei se está de acordo com
as regras do fórum. Mas estou enviando o arquivo, para que se possível e se não for pedir muito, que você modifique e faça um
exemplo para que eu possa adapta-lo de acordo com o que eu preciso


Valeu a força e muito obrigada

Bom dia,

Eu tentei fazer o download do arquivo, mas ocorreu erro e agora o link sumiu...
Poderia enviar novamente?

Bom dia,


Cláudio Más,  Será que eu fiz alguma coisa errada ao enviar o arquivo ou é normal ele sumir assim
vou tentar de novo tomara que dê  certo.


Obrigada!

Oi Thalissa,

Aconteceu de novo: eu vejo o link, tento fazer o download, vem um aviso de que "não estou autorizado..." e o link some.
Não acho que você tenha feito nada errado, mas se puder enviar por e-mail: claudio.mas@globo.com

Bom dia,


Tudo bem Cláudio. Eu enviei o arquivo das horas Extras gostaria de saber se chegou até você!

Olá Thalissa,

Recebi sim, e respondi também por e-mail.
Você não deve ter recebido, então segue o arquivo:

Olá Cláudio,

Muito obrigada mesmo, ficou perfeitamente do jeito que eu preciso, agora só preciso adapta-lo mas acredito que não vai ser difícil.
valeu mesmo pela sua atenção e ajuda.

De nada, disponha.

Boa noite,


Olha Cláudio, A principio o BD estava tudo bem, só que quando fui acrescentar registros de funcionários novos deu erro
no código e a qualquer coisa que eu digitava aparecia uma mensagem de erro que pedia para depurar e redireciona para
o código. Tem como você olhar ai pra ver o que esta acontecendo.

Desde já agradeço!

Boa noite Thalissa,

O erro não está ocorrendo aqui.
Tenta o seguinte, abre o módulo mod_he, depois vai em Depurar/Compilar HoraExtra.
Se o problema persistir, descompacte novamente o arquivo que postei na mensagem anterior.

Cláudio,



Eu fiz do jeito que você mandou, só que continua dando erro. A única maneira que encontrei aqui para dar certo é
digitando os novos registros diretamente na tabela. Já é alguma coisa, só que seria bem mais interessante se eu conseguisse
digita-los no formulário.
segue imagens do que aconteceu!



Obrigada!

Realmente precisa de uma correção.

Abre o módulo mod_he e inclua a linha abaixo logo no início da função fCalculaTotal:

If Len(total_horas) < 8 Then Exit Function

Se não conseguir, é só avisar.

Ó Cláudio, mais uma vez muito obrigada, coloquei a linha do jeito que você falou e deu tudo certinho
quero dizer que me ajudou muito. Agora sim acredito que está funcionando direitinho. Estou aprendendo muito
aqui este fórum realmente está de parabéns

tchau!

De nada.
Até mais