Usar Function
Recebi uma dica aqui. Mas como uma bom iniciante, não consegui usar. O que eu recebi foi isso:
Function PrimeiroDiaMes (Data : TDateTime) : TDateTime;
var
Dia, Mes, Ano : word;
begin
DecodeDate (Data, Dia, Mes, Ano);
Dia := 1;
PrimeiroDiaMes := EncodeDate (Dia, Mes, Ano);
end;
O problema é que eu quero que um Tdatetimepicker receba o valor desta função (seria o primeiro dia do mesm corrente), mas eu não sei usar.
Alguém pode me ajudar?
Tks
Function PrimeiroDiaMes (Data : TDateTime) : TDateTime;
var
Dia, Mes, Ano : word;
begin
DecodeDate (Data, Dia, Mes, Ano);
Dia := 1;
PrimeiroDiaMes := EncodeDate (Dia, Mes, Ano);
end;
O problema é que eu quero que um Tdatetimepicker receba o valor desta função (seria o primeiro dia do mesm corrente), mas eu não sei usar.
Alguém pode me ajudar?
Tks
Henriquebyte
Curtidas 0
Respostas
Carnette
18/02/2003
depois que voce cria esta função vc simplesmente faz a chamada pra dentro do Tdatetimepicker num evento OnClick do Botton
procedure button1onclick(sender);
begin
DateTimePicker1.Date := PrimeiroDiadoMes(now);
end;
procedure button1onclick(sender);
begin
DateTimePicker1.Date := PrimeiroDiadoMes(now);
end;
GOSTEI 0
Henriquebyte
18/02/2003
Obrigado
Funcionou corretamente
Funcionou corretamente
GOSTEI 0