nao seria isso q ele ta querendo: Label1.Caption := FormatDateTime('dd/mm/yyyy hh:nn:ss',StrToDateTime(DateToStr(Date+30)+' 00:00:00'));
2009/7/3 José Mário Silva Guedes <jmariogue...@gmail.com> > > > Amigo, assim fica complicado :) > Use o DecodeDate para quebrar a data atual... > > Dai você usa os resultados no EncodeDateTime... > > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]