Este fórum está sendo desativado

[cyberlacs75]

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.

Código: Selecionar todos

Sub 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

Fico no aguardo

[cyberlacs75]

Consegui solucionar, de tanto pesquisar encontrei a resposta, através do Google

Vejam o passo a passo

Eu indico a Cells e dou um NumberFormat e depois coloco o calculo de horas
wrLinha.Cells(linhaImprimeFuncionario, 3).NumberFormat = "hh:mm"

wrLinha.Cells(linhaImprimeFuncionario, 3).Value = calcHora

Espero ter contribuido