Således:
function lastdayinmonth(year,month: word): word;
begin
if month=12 then begin month:= 0; inc(year); end;
decodedate(encodedate(year,month+1,1)-1,year,month,result);
end;
"Poul-E." <penogconni@ofir.dk> wrote in message
news:3f7ed91b$0$246$bc7fd3c@news.sonofon.dk...
> Hej
>
> Hvordan finder jeg sidste dag i måneden
> ex. jan=31 feb=28(29) apr=30 osv