3
Contributors
2
Replies
3
Views
10 Years
Discussion Span
Last Post by radu84
0

if mnth='january' then mnthdays:=31;
if mnth='february' then begin
if (yr mod 4)=0 then mnthdays:=28
else mnthdays:=29;
end;
if mnth='march' then mnthdays:=31;
if mnth='april' then mnthdays:=30;
if mnth='may' then mnthdays:=31;
if mnth='june' then mnthdays:=30;
if mnth='july' then mnthdays:=31;
if mnth='august' then mnthdays:=31;
if mnth='september' then mnthdays:=30;
if mnth='october' then mnthdays:=31;
if mnth='november' then mnthdays:=30;
if mnth='december' then mnthdays:=31;

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.