Erro Salvando Data.

31/05/2010

Ola! Tenho um codigo que salva os registros em uma tabela e salva uma data num campo string. Eu uso uma funcao pra calcular 1 mes apos a data do dia do cadastro. Estava tudo funcionando normalmente so q agora toda vez q eu mando salvar da essa msg : INVALID ARGUMENT TO DATE ENCODE. Aqui esta o codigo :

        ...
        FieldbyName('RECEITA').AsString := mReceita.GetRtfData;
        FieldByName('PROXIMA_RECEITA').AsString := DatetoStr(NextMonth(Now));
        ...
 
Function TForm2.NextMonth (Data : TDateTime) : TDateTime;
var
Ano, Mes, Dia : word;
begin
DecodeDate(Data, Ano, Mes, Dia);
if Mes = 12 Then
  begin
    Mes := 1;
    Inc (Ano);
  end
else
  Inc (Mes);
NextMonth := EncodeDate(Ano, Mes, Dia);
end;

O que pode estar errado ja q vinha funcionando normalmente? obrigado

Eduardo Jr

Curtir t�pico + 0

Responder

Posts

31/05/2010

Wilson Junior

Utilize o IncMonth e declare no uses SysUtils.

Espero ter colaborado.

Responder

Gostei + 0

31/05/2010

Eduardo Jr

Coloquei o Sysutils no uses e ta dando undeclared identifier.

obrigado

Responder

Gostei + 0

31/05/2010

Wilson Junior

Qual a vers�o do seu Delphi?

Responder

Gostei + 0

31/05/2010

Eduardo Jr

Ja resolvi nao precisa por o sysutils nao .

obrigado

Responder

Gostei + 0

31/03/2023

Marcio Jose

Ja resolvi nao precisa por o sysutils nao .

obrigado

Responder

Gostei + 0

31/03/2023

Marcio Jose

????? O que voc� fez? Resolveu mesmo?

Responder

Gostei + 0