Delphi returns the first day of the current year according to the specified date

From , 3 Years ago, written in Delphi (Object Pascal), viewed 223 times.

function DateYearStart(const DT: TDateTime): TDateTime;
var
  Year, Month, Day: Word;
begin
  SysUtils.DecodeDate(DT, Year, Month, Day);
  Result := SysUtils.EncodeDate(Year, 1, 1);
end;

Reply to "Delphi returns the first day of the current year according to the specified date"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

Create Shorturl Create a shorter url that redirects to your paste?

Private Private paste aren't shown in recent listings.

Delete After When should we delete your paste?

Spam protection Type in the letters

https://burned.cc - Burn After Reading Website

Pastebin.vip

Delphi returns the first day of the current year according to the specified date

Reply to "Delphi returns the first day of the current year according to the specified date"