[Resolvido]Problema com conversão de Data

Boa Tarde pessoal, tudo bom?

Estou utilizando a seguinte formatação pro campo data, porém não está funcionando, alguém pode me ajudar?

O campo no arquivo txt está como 00.00.0000 e tenho que convertê-lo para 00/00/0000 (é só a troca de sinais mesmo, senão me apresenta outros erros em outros calculos pra frente...)

Estou usando o seguinte: vDataCont = Format(cs("DT_CONTAGEM"), "dd/mm/yyyy")


Obrigada,

Já tentou o Replace?

= Replace(Me.NomeDoCampo, ".", "/")

Olá Criquio, funcionou certinho!

Agora só uma dúvida em relação ao DateDiff... Eu colocando x= DateDiff("h", [DataInicial], [DataFinal]), caso a Data Inicial seja Igual a Final eu preciso acrescentar Horal Inicial e Hora Final pra ele me trazar a diferença em horas?

Sim. Uma forma de se calcular hora com datas diferentes pode ser usando o formato dd/mm/yyyy hh:nn:ss. Assim sempre dará número de horas certo.

Este formato eu coloco dentro do DateDiff?

Pode ser com o campo já nesse formato. Ou então concatenando data+espaço+hora em uma variável ou direto no DateDiff.

Assim mesmo? Entendi certo?

vFis = DateDiff("h", [DataInicial] & [vHInicial], [vDataFinal] & [vHFinal])

Código:

Dim dConcIni As Date, dConcFim As Date, Calc As Integer

dConcIni = Replace(Me.DataInicial, ".", "/") & " " & Me.HoraInicial
dConcFim = Replace(Me.DataFinal, ".", "/") & " " & Me.HoraFinal

Calc = DateDiff("h", dConcIni, dConcFim)

Isso para calcular apenas a hora. Se for calcular hora e minuto, tipo 35:49, aí precisa adaptar.

Olá Criquio.... Surgiu uma outra dúvida... Desta forma que vc me passou quando a data é a mesma e só existe diferença de horas funciona direitinho... Agora quando é diferença de dias e horas apresenta um número estranho...

Ex.:

DataIni = 02/01/2013 10:12:17 PM
DataFim = 04/01/2013 7:58:52 AM

A diferença entre essas datas em horas daria 33 horas e 46 minutos, como eu quero só as horas ele deveria exibir os 33, mas neste caso está mostrando 15....

Tente formatar a hora como 24 horas: Ao invés de 10:12:27 PM, ficar como 22:12:27.

dConcIni = Replace(Me.DataInicial, ".", "/") & " " & Format(Me.HoraInicial, "Long time")

Alterei o formato da hora para 24 horas, mas continua com valores exorbitantes....

Segue o código:

Do While Not cs.EOF
            If cs.Fields("DTInicial") <> "" Then
               
                'Horas
                vHIni = Format(cs.Fields("HR_INICIAL"), "hhss")
                vHFim = Format(cs.Fields("HORA_FINAL"), "hhss")
               
                'Datas e Horas Concatenadas - Troca do ponto pela barra
                vDataIni = Replace(cs.Fields("DT_Inicial"), ".", "/") & " " & vHIni
                vDataFim = Replace(cs.Fields("DT_Final"), ".", "/") & " " & vHFim
                               
                'Somas
                vConta = DateDiff("h", [vHIni], [vHFim])

            End If
                MsgBox "Hora:" & vConta, vbInformation
            cs.MoveNext
           
        Loop

Tem alguma coisa errada ou faltando neste caso?

Não seria o caso de substituir a linha abaixo:

vConta = DateDiff("h", [vHIni], [vHFim])

por:

vConta = DateDiff("h", [vDataIni], [vDataFim])

? Pois são essas duas últimas variáveis que contem data e hora concatenadas.

No meu código tá certo... é que na hora de transcrevê-lo pra cá acabei confundindo-os... mas está certinho assim mesmo....

vConta = DateDiff("h", [vDataIni], [vDataFim])

Alguém pode me ajudar?

Poderia enviar o banco mencionando qual é o formulário atingido? Pois fiz testes de várias formas aqui e funcionaram.

Boa Tarde... Consegui resolver o problema usando o Replace na hora em que importo o arquivo pra dentro do Access e não na hora do cálculo....  

Muito obrigada!