STRING DE HORA

LINK 18/08/2010 16:49:12
#350606
Como posso transformar esta string no horario correto????
o certo seria 16:49:05
o meu esta saindo assim
94665 = 09:46:65 Errado
JAMESBOND007 18/08/2010 16:54:21
#350607 Resposta escolhida
Tente assim, 
Dim h As String, r As Byte, v As Long
horas = [Ô]11111[Ô]
If CInt(Right(h, 2)) > 2 Then r = CInt(Right(h, 2)) - 59
If r > 0 Then
     vhora = Mid(h, 1, Len(h) - 2) + 1
     vhora = v & Format(r, [Ô]00[Ô])
End If
MsgBox vhora


Citação:

De uma pesquisada no forum
Tópico encerrado , respostas não são mais permitidas
Voltar