data sempre inicio do ano

[dreamsoft_PR]

ola estou precisando fazer uma rotina que pegue sempre dia 1 de janeiro independe do ano que eles escolher como faço isso

[Sérgio Assunção]

15 minutos atrás, dreamsoft_PR disse:

ola estou precisando fazer uma rotina que pegue sempre dia 1 de janeiro independe do ano que eles escolher como faço isso

Não ficou claro... pode detalhar ou dar um exemplo ?

[dreamsoft_PR]

exemplo vou deixar umfiltro padrao trazendo sempre 1 mes independe do ano que eles escolher

 

o primeiro dia do mes 

[Sérgio Assunção]

4 minutos atrás, dreamsoft_PR disse:

exemplo vou deixar umfiltro padrao trazendo sempre 1 mes independe do ano que eles escolher

o primeiro dia do mes 

var anoStr, dataStr: String;
    dataFiltro: TDate;
begin
anoStr := '2017';
dataStr := '01/01/'+anoStr;

dataFiltro := StrToDate(dataStr);

 

[dreamsoft_PR]

hummm... obrigado 

[BigWings]

50 minutos atrás, dreamsoft_PR disse:

ola estou precisando fazer uma rotina que pegue sempre dia 1 de janeiro independe do ano que eles escolher como faço isso

Tem funções prontas pra isso na unit DateUtils.

function StartOfAYear(const AYear: Word): TDateTime;
begin
  Result := EncodeDate(AYear, 1, 1);
end;

function StartOfTheYear(const AValue: TDateTime): TDateTime;
begin
  Result := EncodeDate(YearOf(AValue), 1, 1);
end;

 

[dreamsoft_PR]

hummm.. blz obrigado!!!