Fórum Comando não retorna o que deveria... #271346
08/03/2005
0
Boa Tarde Amigos
Tenho dias de Vencimento em formato String, e no eventoonCreate do Form preciso transformar esses dias em datas com o mês e ano atual, para ter um controle de dias uteis principalmente.Alguem pode me informar pq esse peq trecho do comando não funciona:
TForm1.OnCreate
var DataStr : String;
DataDt : TDate;
begin
qryContas.First;
while not qryContas.Eof do begin
DataStr := IntToStr(qryContasVENCIMENTO.Value)+´/´+IntToStr(MonthOf(date))+´/´+IntToStr(YearOf(date));
DataDt := StrToDate(DataStr);
qryContas.Edit;
qryContasDATA_PAGAMENTO.Value := DataDt;
qryContas.Post;
qryContas.Next;
end;
DATA_PAGAMENTO retorna com 30/12/1899.Uso ADO, Firebird 1.5, IBExpert
Obrigado ^^
Tenho dias de Vencimento em formato String, e no eventoonCreate do Form preciso transformar esses dias em datas com o mês e ano atual, para ter um controle de dias uteis principalmente.Alguem pode me informar pq esse peq trecho do comando não funciona:
TForm1.OnCreate
var DataStr : String;
DataDt : TDate;
begin
qryContas.First;
while not qryContas.Eof do begin
DataStr := IntToStr(qryContasVENCIMENTO.Value)+´/´+IntToStr(MonthOf(date))+´/´+IntToStr(YearOf(date));
DataDt := StrToDate(DataStr);
qryContas.Edit;
qryContasDATA_PAGAMENTO.Value := DataDt;
qryContas.Post;
qryContas.Next;
end;
DATA_PAGAMENTO retorna com 30/12/1899.Uso ADO, Firebird 1.5, IBExpert
Obrigado ^^
Neves777
Curtir tópico
+ 0
Responder
Posts
08/03/2005
Marcelo Saviski
Use o DecodeDate e o EncodeDate
var Data: TDateTime; Ano, Mes, Dia: Word; begin ... Data := CampodaTabelaComoData; Decodedate(Data, Ano, Mes, Dia); //altere ano, mes e dia aqui Data := Encodedate(Ano, Mes, Dia); CampodaTabelaComoData := Data end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)