Galera, alguém pode dar uma ajuda, tenho esses dados abaixo
00:01:30
00:02:00
00:01:00
00:00:30
Gostaria que ficasse assim.
1,5
2,0
1
0,5
00:01:30
00:02:00
00:01:00
00:00:30
Gostaria que ficasse assim.
1,5
2,0
1
0,5
Public Function fncHoraDecimal(hora As Date) As Single
Dim p
p = Split(hora, ":")
fncHoraDecimal = (p(0) * 60) + p(1) + (p(2) / 60)
End Function