CONVERTER STRING EM DATA

 Tópico anterior Próximo tópico Novo tópico

CONVERTER STRING EM DATA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#478432 - 13/12/2017 23:15:10

ADILSOO
PRATANIA
Cadast. em:Março/2012


Boa noite pessoal!
Estou tentando converter um campo que tenho uma data, mas est como string, ou seja, ao usar, ele me aparece []13/12/2017[] e no 13/12/2017, quando vou tentar usar pra saber a diferena entre datas, ele me da um erro.

  xDiferenca = DateDiff(d, Data1, Data2)




Faa parte do grupo de VB6 no WhatsApp: CLIQUE AQUI PARA ACESSAR O GRUPO

#478433 - 14/12/2017 00:39:10

LEANDROSANTOS
JI-PARANA/RO
Cadast. em:Fevereiro/2012


Use o CDate(Data1)



#478435 - 14/12/2017 05:32:23

ADILSOO
PRATANIA
Cadast. em:Março/2012


Tentei isso j, mesmo assim no deu

Faa parte do grupo de VB6 no WhatsApp: CLIQUE AQUI PARA ACESSAR O GRUPO

Resposta escolhida #478436 - 14/12/2017 08:49:51

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Qual o erro que est dando?

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#478437 - 14/12/2017 13:07:18

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


assim que faz
Dim data1 As Date
Dim data2 As Date


data1 = []14/12/2017[]
data2 = []19/12/2017[]
MsgBox DateDiff([]d[], (data1), (data2))



#478438 - 14/12/2017 13:27:10

LEANDROSANTOS
JI-PARANA/RO
Cadast. em:Fevereiro/2012


Citação:
:
Boa noite pessoal!
Estou tentando converter um campo que tenho uma data, mas est como string, ou seja, ao usar, ele me aparece []13/12/2017[] e no 13/12/2017, quando vou tentar usar pra saber a diferena entre datas, ele me da um erro.

  xDiferenca = DateDiff(d, Data1, Data2)





Tenta assim ento:

Citação:
xDiferenca = DateDiff(d, CDate(Format(Data1,[]yyyy/mm/dd[])), CDate(Format(Data2, []yyy/mm/dd[])))




#478439 - 14/12/2017 13:54:54

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
:
Boa noite pessoal!
Estou tentando converter um campo que tenho uma data, mas est como string, ou seja, ao usar, ele me aparece []13/12/2017[] e no 13/12/2017, quando vou tentar usar pra saber a diferena entre datas, ele me da um erro.

  xDiferenca = DateDiff(d, Data1, Data2)





Tenta assim ento:

xDiferenca = DateDiff(d, CDate(Format(Data1,[]yyyy/mm/dd[])), CDate(Format(Data2, []yyy/mm/dd[])))




voc fez um cdigo muito grande para algo muito simples, ele s erro em no colocar  []d[] (aspas)



#478441 - 14/12/2017 16:37:12

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


FABRICIOWEB, no tinha percebido isso kkkkkkkkkkkkkkkkkkkkkkkkkkkk, matou a charada (acho)

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#478443 - 14/12/2017 18:06:52

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Acho que no matou a cobra nem a charada.
A data est acompanhada de aspas.
E como se a data esta vindo de um campos texto da tabela,porm a Data
foi gravada com aspas.
Ento tem que eliminar as Aspas que acompanha a Data.
Torne a ler a post novamente.



#478446 - 14/12/2017 18:40:03

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
Acho que no matou a cobra nem a charada.
A data est acompanhada de aspas.
E como se a data esta vindo de um campos texto da tabela,porm a Data
foi gravada com aspas.
Ento tem que eliminar as Aspas que acompanha a Data.
Torne a ler a post novamente.



a questo que assim funciona perfeitamente

Dim data1 As Date
Dim data2 As Date


data1 = []14/12/2017[] []recebe string
data2 = []19/12/2017[] recebe string
MsgBox DateDiff([]d[], (data1), (data2))



#478447 - 14/12/2017 19:14:11

ADILSOO
PRATANIA
Cadast. em:Março/2012


Boa noite pessoal!
Primeiramente desculpa a demora, que trabalho fora e no consegui chegar perto do PC hoje, e segundo, obrigado a todos que j responderam.

Bom, vamos aos fatos...

Citação:
  Qual o erro que est dando?  

Type mismatch (Error 13)


Citação:
   assim que faz
Dim data1 As Date
Dim data2 As Date


data1 = []14/12/2017[]
data2 = []19/12/2017[]
MsgBox DateDiff([]d[], (data1), (data2))  


Eu tentei assim, mas como a data2, vem com aspas, ele da o erro acima.


Citação:
  FABRICIOWEB, no tinha percebido isso kkkkkkkkkkkkkkkkkkkkkkkkkkkk, matou a charada (acho)  

Se fosse, kkkk, seria bom, vi que realmente estava faltando a aspas, mas no era isso tambm.


Citação:
  xDiferenca = DateDiff(d, CDate(Format(Data1,[]yyyy/mm/dd[])), CDate(Format(Data2, []yyy/mm/dd[])))

Tentando assim, da o mesmo erro...


Citação:
  Ento tem que eliminar as Aspas que acompanha a Data.

Exatamente OMAR, voc chegou ao ponto crtico, remover essas aspas.

Deixa eu explicar melhor...

Eu tenho um arquivo INI, onde eu gravo a data que o sistema ir expirar a licena, e eu criptografo ela para que ningum consiga alterar no INI, bem, ao iniciar o sistema, eu comparo a diferena entre datas e vejo qual o nmero de dias restantes. Mas, essa data, no vem em formato data, e essas aspas que est me tirando o sono, ento, teria como remover? J tentei todas as maneiras acima, e nenhuma deu certo, o mesmo erro, Type mismatch (Error 13), justamente por causa das aspas.

Faa parte do grupo de VB6 no WhatsApp: CLIQUE AQUI PARA ACESSAR O GRUPO

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ADILSOO em 15/12/2017 00:22:46