Código Delphi [-] uses DateUtils; ... var i: Integer; begin for i:= DayOf(Now) to DaysInMonth(Now) do begin ...
uses DateUtils; ... var i: Integer; begin for i:= DayOf(Now) to DaysInMonth(Now) do begin ...