(Resolvido) Converter uma String para TDateTime

[juliocbernardi]

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?

[Jhonas]

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

[juliocbernardi]

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

[Jhonas]

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

[juliocbernardi]

Pois é,

mas como eu havia dito quando eu tento

dtDataDocumento := StrToDateTime(sDataDocumento);

ele me retorna 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.

[Jhonas]

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

[juliocbernardi]

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 Junho 22, 2015 por juliocbernardi

[juliocbernardi]

Jhonas,

consegui fazendo da seguinte forma

dtDataDocumento := StrToDateTime(sDataDocumento + '23:59:59.000')

como a hora vai ser sempre fixa isso funciona pra mim,

valeu mesmo pela ajuda...