Usar Function
18/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Carnette
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)