|
Implementation of this idea so:
var
DaysInYear: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
Days, Month, Year: Word;
implementation
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Month:=StrToInt(Edit1.Text);
Year:=StrToInt(Edit2.Text);
if (IsLeapYear(Year)=True)and(Month=2) then
Days:=DaysInYear[Month]+1
else Days:=DaysInYear[Month];
Label1.Caption:=IntToStr(Days)+' days in '+Edit2.text+' year';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Present: TDateTime;
begin
Present:=Now;
DecodeDate(Present, Year, Month, Days);
Edit1.Text:=IntToStr(Month);
Edit2.Text:=IntToStr(Year);
end;
- Related topics
-
Get difference between of 2 dates
Put current time to the title
Get week number of the year
Get age from date of birth
- For more
-
Delphi Help
- Download source
|
