Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Converter uma String para TDateTime


juliocbernardi

Pergunta

Bom dia,

estou com um erro na conversão de uma string para tdatetime.

sDataDocumento: String

dtDataDocumento : TDateTime

eu tenho essas duas variáveis, sento que na string (sDataDocumento) eu tenho o valor ('17/03/2015 10:54:00'), eu preciso converter ele no formato (2015-03-17 10:54:00.000) para poder gravar em um campo do banco de dados SQL tipo DateTime.

Já tentei converter das seguintes formas e nenhuma deu certo

dtDataDocumento := StrToDate(sDataDocumento);

que gera o erro:

raised exception class EConvertError with message ''17/03/2015 10:54:00' is not a valid date'. Process stopped. Use Step or Run to continue.

e

dtDataDocumento := StrToDate('dd/MM/yyyy',StrToDateTime(sDataDocumento));

dtDataDocumento := StrToDateTime('dd/MM/yyyy',StrToDateTime(sDataDocumento));

que geram o erro antes de compilar.

[Error] Frm04250.pas(2454): There is no overloaded version of 'StrToDate' that can be called with these arguments

Alguém pode ajudar ai?

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

veja

procedure TForm1.Button1Click(Sender: TObject);
var
    sDataDocumento : String;
    dtDataDocumento : TDateTime;
begin
    dtDataDocumento := StrToDateTime('17/03/2015 10:54:00');
    sDataDocumento := datetimetostr(dtDataDocumento);
    showmessage(sDataDocumento);
end;

ou

procedure TForm1.Button1Click(Sender: TObject);
var
    sDataDocumento : String;
    dtDataDocumento : TDateTime;
begin
    dtDataDocumento := now; // data atual
    sDataDocumento := datetimetostr(dtDataDocumento);

    showmessage(sDataDocumento);

    showmessage(datetimetostr(dtDataDocumento));
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Valeu Jhonas,

mas eu não posso pegar a data atual, esse valor de data e hora estão vindo de um arquivo txt, eu carrego ele em uma string através do copy

Não posso pegar a hora da maquina, nem colocar uma data e hora fixas para converter.

Eu preciso converter o valor que estiver na string sDataDocumento

Link para o comentário
Compartilhar em outros sites

  • 0

amigo, voce precisa estudar mais...

procedure TForm1.Button1Click(Sender: TObject);
var
    sDataDocumento : String;
    dtDataDocumento : TDateTime;
begin
    sDataDocumento := '17/03/2015 10:54:00'; ///  ou pegar o valor de um arquivo texto
    dtDataDocumento := StrToDateTime(sDataDocumento);

    showmessage(sDataDocumento);
    showmessage(DateTimeToStr(dtDataDocumento));
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Erro: message ''17/03/2015 10:54:00' is not a valid date

esse erro acontece se a configuração regional do seu windows não estiver com esse formato na data e hora

va em Iniciar > Configurações > Painel de Controle > Opções regionais e de idioma > clique no botão Personalizar > Data

o formato tem que ser esse dd/MM/aaaa

e a hora deve estar

HH:mm:ss

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Bom dia

eu consegui deixar a data no formato exato que eu preciso para o banco de dados, mas na hora de converter de string para datetime contina dando erro, mesmo já tendo ajustado a data e hora do pc para o formato correto.

---------------------------
Debugger Exception Notification
---------------------------
Project IBSystem.exe raised exception class EConvertError with message ''2015-01-23 10.54.00' is not a valid date and time'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Editado por juliocbernardi
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...