Olá crist_ita, você não precisa formatar a data. nessa caso você tem duas
opções:
1 - Atribuir o valor a propriedade Text do DBEdit ( tem anos que não uso
DBEdit, favor testar )
procedure TfrmCadAgenda.MonthCalendar1Click(Sender: TObject);
begin
DBEdit2.Text := DateToStr( MonthCalendar1.Date);
DBEdit3.Text := DateToStr( MonthCalendar1.EndDate);
end;
2 - Atribuir o valor diretamente no campo ao qual o DBEdit está ligado
procedure TfrmCadAgenda.MonthCalendar1Click(Sender: TObject);
begin
ClientDataSetNOME_DO_CAMPO.AsDateTime := MonthCalendar1.Date;
ClientDataSetNOME_DO_OUTRO_CAMPO.AsDateTime
:= DateToStr( MonthCalendar1.EndDate);
end;
faça um teste e veja a melhor opção para você, quanto a formatação de data..
esquece,, não é necessário.
qualquer coisa que eu puder ajudar.. é só falar.
ate+
2008/9/5 crist_ita <[EMAIL PROTECTED]>
> --- Em delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>,
> "Eduardo Silva dos Santos" Bom
> dia Eduardo
>
> Muito obrigado por ter tirado esta dúvida, verifiquei no debug o que
> você falou o componente de acesso e o MySQL se entendem. No meu caso
> Dbexpress.
> Se possível me tira uma dúvida;
>
> Tenho um MonthCalendar com a opção multiselect = true.
> Eu preciso pega a data inicial e final jogando dentro dos dbedits,
> estou fazendo desta forma.
>
> procedure TfrmCadAgenda.MonthCalendar1Click(Sender: TObject);
> begin
> DBEdit2.Text := (formatdatetime('yyyy-MM-dd', MonthCalendar1.Date));
> DBEdit3.Text := (formatdatetime('yyyy-MM-dd',
> MonthCalendar1.EndDate));
> end;
>
> Neste caso estaria correto?
> Agradeço a ajuda!!
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
