Soma Total de horas com função VB, dando valores AM PM
Enviado: 12 Set 2016 às 08:24
Amigos, esta função que estou desenvolvendo esta somando a horas trabalhadas, mas quando chega apos 13:00 imprime 01:00 PM, e assim acontece em qualquer soma AM e PM aparecem.
Como solucionar isto.
Como solucionar isto.
Código: Selecionar todos
Fico no aguardoSub CalculaHorasPorDia(nomePlanilha As String, ByVal i As Integer)
Dim wr As Worksheet, wrLinha As Worksheet
Set wr = Sheets(nomePlanilha)
Set wrLinha = Sheets("Relatório Horas Trabalhada")
Dim calcHora As Date
Dim k As Integer, linhaImprimeFuncionario As Integer
k = 4
linhaImprimeFuncionario = 3
Do While wr.Cells(k, 6).Value <> ""
calcHora = calcHora + wr.Cells(k, 6).Value
k = k + 1
Loop
Do While wrLinha.Cells(linhaImprimeFuncionario, 2).Value <> ""
linhaImprimeFuncionario = linhaImprimeFuncionario + 1 'Conta as linhas já cadastradas para assim inserir na linha abaixo
Loop
wrLinha.Cells(linhaImprimeFuncionario, 2).Value = wr.Name
wrLinha.Cells(linhaImprimeFuncionario, 3).Value = calcHora
End Sub
