[Resolvido]Calcolo de Horas VB

Boa Noite

Pesso desculpa pelo incomodo . Andei por ai a ver alguns topicos mas queria uma ajuda neste comdigo se possivel.

Private Sub btcalc_Click()
'Me.hr_Extra = Me.RHrExt - Me.CargaHoraria

'horas feitas na entrada e saida 1 R1Ta: Ise(ÉNulo([Hr_1a]) Ou ÉNulo([Hr_2a]);0;fncIntervalo([Hr_1a];[Hr_2a]))
'horas feitas na entrada e saida 2 R1Tb: Ise(ÉNulo([Hr_1b]) Ou ÉNulo([Hr_2b]);0;fncIntervalo([Hr_1b];[Hr_2b]))
'horas feitas na entrada e saida 3 R1Tc: Ise(ÉNulo([Hr_1c]) Ou ÉNulo([Hr_2c]);0;fncIntervalo([Hr_1c];[Hr_2c]))
'horas feitas na entrada e saida 4 R1Td: Ise(ÉNulo([Hr_1d]) Ou ÉNulo([Hr_2d]);0;fncIntervalo([Hr_1d];[Hr_2d]))

'hr_Total = RHrExt: ([R1ta])+([R1tb])+([R1tc])+([R1td])

'hr_Extra = hr_Total - CargaHoraria(indicavalor + ou - dependente da conta)( exmpl.total de 9:00feitas - 8:00CargaHoraria = 1:00extr sefor ao contrario -1:00)
'criterio "hr_Extra" =(se o ST for = N aplica a formula de cima. Se For = F ; S ; D ; o Valor total de "hr_Total" sao "hr_Extra")

End Sub


Alguns dos codigos era de uma tavela consulta mas eu no formulario quero aplicar a tbl diretamente e para efectuar todo este codigo a verde crieir um botao
passo imagem da tabele:

https://2img.net/r/ihimizer/img811/3387/hestra.png








Com os codigos que quero aplicar em VB atraves do botao para gravar na tabelafica assim na Consulta
https://2img.net/r/ihimg/photo/my-images/69/hestratt.png/






Grato pela ajuda

Boas Luis... De mais detalhes, seja um pouco mais excplicito...
poste um modelo do Bd para que possamos ajudá-lo

Cumprimentos.

Comprimentos

Agradeço ajuda nesta fase do meu projecto aqui vai o exemplo do que pretendo fazer.

É que tenho um sistema de Recursos Humanos completo em excel feito por mim mas quero passa-lo para Access fica bem mais fácil de trabalhar

Link: Download

Todo de Bom

Luis Araujo

Esqueceu-se de dar os detalhes do que pretende... uma descricao textual.

Cumprimentos.

Boas

Para Tentar esclarecer a cituaçao. Isto e um poco complidado para mim mas vou por partes:

1º Quando coloco a data ele ja indica o tipo de dia ( Status ST = N - Semana S-Sabado D - Domingo F - Feriado )
2º Depois de Colocar o Horario ele Tera Que dar o total de horas Feitas no campo H_Total.
3º Calcula o H_Total pela Carga Horaris (Carga H) e da o total de Hr_Extras
Mas se no campo "ST" for = S;D;F entao o total de HorasH_Total Passa todo para Hr_Extras

4º Tem um campo "TP" (TP Tipo Movimento = B - Banco de Horas P - Pagamento) Que no Final de efectuar as contas passa para duas Tabelas
(esquece de colocar as tuas tabelas no exemplo que mandei)
Se For = B Pasa para uma tabela o total de Hr_Extras (seijam elas possitivas ou negativas.
Se For = P Pasa para uma tabela o total de Hr_Extras Para se proceder ao pagamento.


Depois de fezer esta parte vou tentar fazer o resto.

Mas mesmo assim se podermos manter contacto para ir me ajudando neste parte do projecto eu agradeço ajuda.

Comprimento

Amigào, tente compactar com winrar e me envie novamente ou no e-mail. Harysohn@hotmail.com


Cuprimetos.

Comprimentos

A Caminho

Luis, seria pedir muito se colocasse no exemplo apenas os objetos envolvidos?

Estou com problemas de conexão e ainda esta grande para baixa-lo.

se puder, fico grato.

Cumprimentos.

Vou ver o o que consigo fazer.

Mas eu mandei por email .. veija se recebeu .

Tem algum saite onde possa la colocar para vose poder baixalo??

Comprimentos

Abra o teu BD nas opcoes do access, banco de dados atual: Compactar e reparar..

podes carrega-lo no dropbox e diponibilizar o link aqui.

Cumprimentos.

Aqui

Aqui

Aqui

Esqperimente estes links e diga alguma coisa

Comprimentos

Amanha pela manha ja resolvemos isto..

Abraços.

ok

Vamos la Luis, estou com o teu BD ja.

Fale o form e o que deseja primeiro...

Vamos por partes


Cumprimentos.

Boas

Para Tentar esclarecer a cituaçao. Isto e um poco complidado para mim mas vou por partes:

1º Quando coloco a data ele ja indica o tipo de dia ( Status ST = N - Semana S-Sabado D - Domingo F - Feriado )

2º Depois de Colocar o Horario ele Tera Que dar o total de horas Feitas no campo H_Total.
3º Calcula o H_Total pela Carga Horaris (Carga H) e da o total de Hr_Extras
Mas se no campo "ST" for = S;D;F entao o total de HorasH_Total Passa todo para Hr_Extras

4º Tem um campo "TP" (TP Tipo Movimento = B - Banco de Horas P - Pagamento) Que no Final de efectuar as contas passa para duas Tabelas
(esquece de colocar as tuas tabelas no exemplo que mandei)
Se For = B Pasa para uma tabela o total de Hr_Extras (seijam elas possitivas ou negativas.
Se For = P Pasa para uma tabela o total de Hr_Extras Para se proceder ao pagamento.


Depois de fezer esta parte vou tentar fazer o resto.

Mas mesmo assim se podermos manter contacto para ir me ajudando neste parte do projecto eu agradeço ajuda.

Comprimento

Esta mensagem eu ja havia visto....

Pergutei apenas...

Qual form, e o que deseja primeiro.

por gentileza cite os objetos envolvidos, como: Nome da caixa texto ou lstBox ou chkbox etc...

Boas

Bem para comçar pode ser carregar no botao de calcular e ele indica o total de horas feitas

Tipo Como na imagem abaixo





Para começar fica assim.

Mas imaginando que o funcionario esta a trabalhar a um Feriado = F ( como indida a imagem abaixo
O total de horas e horas Extras = Hr_Extra






Comprimentos mais alguma coisa diga que eu agradeço ajuda

Vamos la... Trabalhar com horas é um pouco mais criterioso...

Carregar no Botão e calcular o totais de horas....

Em quais campos extrairemos a diferença de horarios?

Quais campos serão utilizados para que possamos fazer este cálculo?

Cumprimentos.

Vamos la...

Crie um Módulo e o nomeeie de mdl_He, neste as seguintes funções:

Option Compare Database

Public Function fncIntervalo(HoraInicio As Date, HoraTermino As Date) As Date
fncIntervalo = CDate(IIf(HoraTermino < HoraInicio, HoraTermino + 1, HoraTermino) - HoraInicio)
End Function

Public Function fncSomaHora(horaAcumulada As Variant, HoraAtual As Date) As Variant
Dim ha, ht, sha As Long, sht As Long, TotalSegundos As Long, Horas As Long, Minutos As Long, Segundos As Long

'Passa as horas para as Matrizes, aonde podemos extrair os valores pela referência ":"
ha = Split(IIf(horaAcumulada = 0, "00:00:00", horaAcumulada), ":")
ht = Split(HoraAtual, ":")

sha = 3600 * ha(0) + 60 * ha(1) + ha(2) 'hora acumulada em segundos
sht = 3600 * ht(0) + 60 * ht(1) + ht(2) 'hora atual em segundos


'Total de horas extras acumulada, em segundos
TotalSegundos = sha + sht

'Remonta a hora no formato hh:mm:ss
Horas = Int(TotalSegundos / 3600)
Minutos = Int((TotalSegundos - (Horas * 3600)) / 60)
Segundos = TotalSegundos - (Horas * 3600) - (Minutos * 60)

fncSomaHora = Format(Horas, "##00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")
End Function

Para o botão no form:

Private Sub btcalc_Click()
Dim Int1 As Date, Int2 As Date, Int3 As Date, Int4 As Date
Dim HTotal As Date
Int1 = fncIntervalo(Nz(Hr_1a, 0), Nz(Hr_2a, 0))
Int2 = fncIntervalo(Nz(Hr_1b, 0), Nz(Hr_2b, 0))
Int3 = fncIntervalo(Nz(Hr_1c, 0), Nz(Hr_2c, 0))
Int4 = fncIntervalo(Nz(Hr_1d, 0), Nz(Hr_2d, 0))

HTotal = fncSomaHora(Int1, Int2)
HTotal = fncSomaHora(HTotal, Int3)
HTotal = fncSomaHora(HTotal, Int4)
Me.hr_Total = HTotal
Me.Requery
End Sub

está feito para o Total de hotas nos intervalos, teste e adapte como deseja, em dúvida, apite.

Cumprimentos.

Boas Comprimentos

obrigado vou testar e avaliar a cituaçao ja reporto alguma coisa

Atenciosamente

Boas meu caro

1º fase esta exelente

Agora falta



1º Todas as Horas feitas superiores a Carga Horaria passam para Horas Extras / Se For inferior parra como Hora negativa.
2º E todas as Horas que forem Trabalhadas em ( S-Sabado D - Domingo F - Feriado ) Sao Horas Extras


Comprimentos Agradeço imenço a sua ajuda.

De um exemplo textual prático, algo assim:

Se a diferença da CaixaTexto1 e CaixaTexto2 for maior que X, o excedente vai para caixaTexto3

etc..

Para que eu possa vislubrar sua necessidade

Cumprimentos.

Ok Vou tentar





Como Mostra imagem acima

O H_Total Ja Fas as contas com o codigo mencionado.

1º Mas... Hr_Estra = a diferença entre o total de horas H_Total e a Carga HorariaCarga_H do Funcionario

2º Mas.. Se no ST For = ( S-Sabado D - Domingo F - Feriado ) o H_Total sao Hr_Estra


Ver se assim ajuda =)
Comprimentos Agradeço imenço a sua ajuda.

Vou ver..

cumprimentos.

Eis:

Private Sub btcalc_Click()
Dim Int1 As Date, Int2 As Date, Int3 As Date, Int4 As Date
Dim HTotal As Date
Dim TotalExtra As Date

Int1 = fncIntervalo(Nz(Hr_1a, 0), Nz(Hr_2a, 0))
Int2 = fncIntervalo(Nz(Hr_1b, 0), Nz(Hr_2b, 0))
Int3 = fncIntervalo(Nz(Hr_1c, 0), Nz(Hr_2c, 0))
Int4 = fncIntervalo(Nz(Hr_1d, 0), Nz(Hr_2d, 0))

HTotal = fncSomaHora(Int1, Int2)
HTotal = fncSomaHora(HTotal, Int3)
HTotal = fncSomaHora(HTotal, Int4)

Me.hr_Total = HTotal
If Me.St = "D" Or Me.St = "S" Or Me.St = "F" Then
    Me.hr_Extra = HTotal
Else
    TotalExtra = fncIntervalo(Me.cargaHoraria, Me.hr_Total)
    Me.hr_Extra = TotalExtra
End If
Me.Requery
End Sub

Cumprimentos.

Há um problema na função quando a carga horária é maior que hr_Total, então foi necessário fazer esta verificação, pois dependendo disso as caixas texto na função devem inverter-se

Private Sub btcalc_Click()
Dim Int1 As Date, Int2 As Date, Int3 As Date, Int4 As Date
Dim HTotal As Date
Dim TotalExtra As Date

Int1 = fncIntervalo(Nz(Hr_1a, 0), Nz(Hr_2a, 0))
Int2 = fncIntervalo(Nz(Hr_1b, 0), Nz(Hr_2b, 0))
Int3 = fncIntervalo(Nz(Hr_1c, 0), Nz(Hr_2c, 0))
Int4 = fncIntervalo(Nz(Hr_1d, 0), Nz(Hr_2d, 0))

HTotal = fncSomaHora(Int1, Int2)
HTotal = fncSomaHora(HTotal, Int3)
HTotal = fncSomaHora(HTotal, Int4)

Me.hr_Total = HTotal
If Me.St = "D" Or Me.St = "S" Or Me.St = "F" Then
    Me.hr_Extra = HTotal
Else
    If Me.cargaHoraria < HTotal Then
        TotalExtra = fncIntervalo(Me.cargaHoraria, Me.hr_Total)
        Me.hr_Extra = TotalExtra
    Else
        TotalExtra = fncIntervalo(Me.hr_Total, Me.cargaHoraria)
        Me.hr_Extra = TotalExtra
    End If
End If
TotalExtra = Empty
HTotal = Empty
Me.Requery
End Sub

cumprimentos.

Ja pensou como fara a somatoria dessas horas? ou não fará?

Por exemplo... se a carga horaria for maior que a HoraTotal... o funcionario fica devendo horas...como se fossem horas negativas..

ja pensou como fará isso?

Cumprimentos.

Na imagem os Valores Celecionadios a Vermelho Nao era Suposto este valoes estarem a negativo para diferenciar as horas.

Se o funcionario nao completou a Carga Horaria Carga_H fez um numero de horas inferiores a Carga Horaria o Valores deveria ser Negativo.

Isto e so uma questao. Ainda estou a pensar como vou fazer o restante desenvolvimento.

Para dividir os valores!

B - Corespondente a Banco de Horas
P - Para pagamento
Mais a frente falamos disso.

Comprimentos

Não sei se o campo aceita valores negativos... Irei testar..

Se não aceitar talvez tenha que criar um campo Sim/Não para que quando CargaHoraria > HTotal, marque o campo como Sim, significando negativo..

Veremos.

Cumprimentos.

Amigão, seus campos para hora extra e carga horaria estão como texto, altere para Data/Hora tipo de dados HoraCompleta.

Não esta aceitando horas negativas... vai pensando na solução do campo Sim/Não... dessa forma horas negativas teriam este campo marcado como Sim, assim em uma eventual conta... poderia diferenciar o que eram horas adicionais ou negativas.

Era só isto para este tópico?
Caso sim dê como resolvido, seguindo a máxima do Fórum: Nova Dúvida, Novo tópico.

Boa Noite.

Boas

Era perferivel se desse para colocar valor negativo.
Senao teremos de acresentar um campo ou um codigo para quando o valor de h_Total For Inferior a Carga_H fique a 00:00

Uma ipotece

Amigo... o campo não aceita valores negativos, se o campo for do tipo texto voce poderia adiciona facilmente o Sinal, porem encontrati problemas para executar o calculo utilizando um campo texto.

Meu conselho é uma caixa sim não, podendo ate ficar em oculta, uma expressão na formatação condicional para exibir o campo em vermelho...

Assim o calculo para o Seu Banco de horas seria efetuado mais facilmente utilizando estaa funcões que ai estão, apenas direcionando se negativo se positivo com uma clausula If para a operação respctiva.

Sucesso!

Boas
Vou pensar numa ideia

Para este Tópico com relação ao seu primeiro Post, creio que já o esgotamos, coloque-o como resolvido.

Nova Dúvida, Novo Tópico.

Boa noite.

ok Valeu pela ajuda

Mas pode guaradar a mesma a bd que ira fazer falta =)

O Fórum agradece o retorno