FORMATAR DATA LINUX NO VB
Pessoal recebo uma data em um arquvo gerado no linux assim:
Thu Dec 29 16:17:04 ART 2005
Como formato essa data?
tenho que fazer algo na mão ou tem alguma coisa que converta este formato para dd/mm/yyyy hh:mm:ss
lembrando que o
Thu Dec 29 16:17:04 ART 2005
Como formato essa data?
tenho que fazer algo na mão ou tem alguma coisa que converta este formato para dd/mm/yyyy hh:mm:ss
lembrando que o
Format(data, "dd/mm/yyyy hh:mm:ss") 
Elton,
Só consegui um jeito hard-coded, ou seja, "na unha":
Dim DataArray
Dim strDataAntiga As String
Dim strDataNova As String
strDataAntiga = "Thu Dec 29 16:17:04 ART 2005"
DataArray = Split(strDataAntiga, " ")
If DataArray(1) = "Dec" Then DataArray(1) = "12"
strDataNova = DataArray(2) & "-" & DataArray(1) & "-" & DataArray(5) & " " & DataArray(3)
Debug.Print CDate(strDataNova)
Se vc. não achar nada melhor, faça os IFs restantes pra mudar o valor dos meses em inglês (jan, feb, etc..)
As posições dos campos vc pode ver colocando um watch no array DataArray, sendo que foi isto que eu fiz pra descobrÃÂÂ-las.
Só consegui um jeito hard-coded, ou seja, "na unha":
Dim DataArray
Dim strDataAntiga As String
Dim strDataNova As String
strDataAntiga = "Thu Dec 29 16:17:04 ART 2005"
DataArray = Split(strDataAntiga, " ")
If DataArray(1) = "Dec" Then DataArray(1) = "12"
strDataNova = DataArray(2) & "-" & DataArray(1) & "-" & DataArray(5) & " " & DataArray(3)
Debug.Print CDate(strDataNova)
Se vc. não achar nada melhor, faça os IFs restantes pra mudar o valor dos meses em inglês (jan, feb, etc..)
As posições dos campos vc pode ver colocando um watch no array DataArray, sendo que foi isto que eu fiz pra descobrÃÂÂ-las.
Tópico encerrado , respostas não são mais permitidas