PessoALL,

   Tenho a seguinte string:

=============================
Dim strData As String

   strData = "193429 19031992"
=============================

   O que está dentro dela é: "HHMMSS DDMMYYYY"
   Como faço para que esta string entre dentro de uma variável data:

=============================
Dim datData As Date
=============================

Estou tentando sem sucesso assim:

=============================
Dim strData2 As String

strData2 = Right(strData, Len(strData) - InStr(strData, " ")) & " " & _
                  Left(strData, InStr(strData, " ") - 1)

datData = Format(CDate(strDataBanco2), DD/MM/AAAA HH:MM:SS")
=============================

   O erro é 13 - Tipo Incompatível ...
   ... mesmo usando a função "FormatDateTime" ...

   ... onde estou errando?

[]'s,
Tunusat.

Tente assim:

 

Private Sub Form_Load()
    Dim strData As String
    Dim vData As String
    Dim vHora As String
    Dim vDH As Date
   
    strData = "193429 19031992"
    vHora = Mid(strData, 1, 2) & ":" & Mid(strData, 3, 2) & ":" & Mid(strData, 5, 2)
    vData = Mid(strData, 8, 2) & "/" & Mid(strData, 10, 2) & "/" & Mid(strData, 12, 4)
    vDH = CDate(vData) & " " & CDate(vHora)
    MsgBox CDate(vDH)
End Sub

T+

Rinaldo

Rinaldo,

 

    Resolveu!!! Obrigado!

 

[]'s,

Tunusat.