DATA INICIO DO MES

Delphi

01/09/2017

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

Marcos Cruz

Curtidas 0

Respostas

Natanael Ferreira

Natanael Ferreira

01/09/2017

Você pode utilizar a função StartOfTheYear da unit DateUtils.

Exemplo: Adicione DateUtils na uses e teste o código abaixo:

ShowMessage(DateToStr(StartOfTheYear(date)));
GOSTEI 0
Everton Santos

Everton Santos

01/09/2017

wDataInicio := StrToDate('01/01/',+ FormatDateTime('YYYY',Date)) // Date data de hoje ou o campo da sua data
GOSTEI 0
POSTAR