Erro Salvando Data.
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 :
O que pode estar errado ja q vinha funcionando normalmente?
obrigado
...
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;
Eduardo Jr
Curtidas 0
Respostas
Wilson Junior
31/05/2010
Utilize o IncMonth e declare no uses SysUtils.
Espero ter colaborado.
Espero ter colaborado.
GOSTEI 0
Eduardo Jr
31/05/2010
Coloquei o Sysutils no uses e ta dando undeclared identifier.
obrigado
obrigado
GOSTEI 0
Wilson Junior
31/05/2010
Qual a versão do seu Delphi?
GOSTEI 0
Eduardo Jr
31/05/2010
Ja resolvi nao precisa por o sysutils nao .
obrigado
obrigado
GOSTEI 0
Marcio Jose
31/05/2010
Ja resolvi nao precisa por o sysutils nao .
obrigado
obrigado
GOSTEI 0
Marcio Jose
31/05/2010
????? O que você fez? Resolveu mesmo?
GOSTEI 0