Delphi dicas

Atualizar a data automaticamente no datetimepicker

//Quando inserimos o componente TDateTimePicker e não implementamos nada, ele irá assegurar a data em que foi inserido no form.

Para que a data seja atualizada automaticamente, vamos implementar uma simples verificação quando o form for aberto.

No nosso exemplo, vamos trabalhar com dois componentes TDateTimePicker onde o objetivo é que o primeiro mantenha a data do primeiro dia do mês corrente, e o segundo receberá a atualização para o dia atual do mês corrente.



//Insira dois componente TDateTimePicker no seu form e depois, no evento ONSHOW adicione:



procedure TForm1.FormShow(Sender: TObject);

begin

        var

        dia,mes,ano,dia1,mes1,ano1: string;

        date1,date2: Tdatetime;

        begin

                dia:= formatdatetime('1',date);

                mes:= formatdatetime('mm',date);

                ano:= formatdatetime('yyyy',date);

                dia1:= formatdatetime('dd',date);

                mes1:= formatdatetime('mm',date);

                ano1:= formatdatetime('yyyy',date);

                date1:= strtodate(dia+'/'+mes+'/'+ano);

                date2:= strtodate(dia1+'/'+mes1+'/'+ano1);

                datetimepicker1.Date:= date1;

                datetimepicker2.Date:= date2;

        end;





        //valeu.fui...

por : Ladghelson Santos