Converter horas

[Clauido José 3]

Pessoal tenho que desenvolver uma macro para converter um campo hora esse campo vem numa coluna desse formato "01h:02m:20s" preciso transformar isso "01:02:20" para poder cacular os minutos como faço isso em vba.

[KhaosDoctor 242]

http://msdn.microsoft.com/en-us/library/office/gg251755(v=office.15).aspx

http://stackoverflow.com/questions/16681900/excel-vba-timevalue-format-hhmm-am-pm

[Clauido José 3]

Resolvi essa valeu vejam como fico:

If .Cells(y, 16) <> "" Then
 horas = Mid(.Cells(y, 16), 1, 2)
 minutos = Mid(.Cells(y, 16), 5, 2)
 segundos = Mid(.Cells(y, 16), 9, 2)
 ThisWorkbook.Sheets(1).Cells(i, 19) = gfConverteTempo((horas), (minutos), (segundos), "hm")
End If

Public Function gfConverteTempo(sHoras As Integer, sMinutos As Integer, sSegundo As Integer, vConverte As String)
    On Error Resume Next
    
    Application.Volatile
    
    Dim lAux As Single
    
    Select Case vConverte
        Case "hm"
            lAux = ((sHoras) * 60) + sMinutos + (sSegundo / 60)
    End Select
    gfConverteTempo = lAux
End Function