Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Converter uma String para TDateTime


juliocbernardi
 Share

Question

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 to comment
Share on other sites

7 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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
---------------------------
Edited by juliocbernardi
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...