FORMATAR HORA - URGENTE

BRESSAN 03/11/2009 09:00:32
#326780
Pessoal Bom Dia!!!

Estou com um grande problema....
tenho que importar um arquivo texto, onde neste arquivo tem um campo hora....
antes a hora vinha certinha agora tem um probleminha...
ex hora correta
94655 = 09:46:55

ex hora errada...
94665 = 09:46:65 Errado

Como posso transformar esta string no horario correto????
o corrto seria 09:47:05

Att,

Marcelo Bressan
TECLA 03/11/2009 09:22:00
#326782 Resposta escolhida
Tente esta POG aqui:

Dim h As String, r As Byte, v As Long
h = [Ô]94665[Ô]
[txt-color=#006400][ô]Calcular os segundos adicionais[/txt-color]
If CInt(Right(h, 2)) > 2 Then r = CInt(Right(h, 2)) - 59
[txt-color=#006400][ô]Ajustar a hora com os segundos calculados[/txt-color]
If r > 0 Then
     v = Mid(h, 1, Len(h) - 2) + 1
     v = v & Format(r, [Ô]00[Ô])
End If
MsgBox v
BRESSAN 03/11/2009 09:35:06
#326785
vlw
funcionou

att,
Marcelo Bressan
Tópico encerrado , respostas não são mais permitidas
Voltar