Delphi determines the number of days for a given date, the number of days from the beginning of a given date, and the number of days from the month

Uses

Dateutils;

Determine the number of days for a given date

Label1.Caption: = IntToStr (Daysinamonth (Yearof (strtodate) (Trim (Edit_riqi). Text)), Monthof (Strtodate (Trim (Edit_riqi). Text)));

The number of days from the beginning of the given date

Label2.Caption: = IntToStr (dayof (Strtodate (Trim) (Edit_riqi. Text)))-1);

Number of days from month end given date

Label3.caption: = IntToStr (Strtoint (label1.caption)-strtoint (label2.caption));

Delphi determines the number of days for a given date, the number of days from the beginning of a given date, and the number of days from the month