decMonth

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод типа данных Date decMonth";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Выберите дату";

// Календарь
mcl=new TMonthCalendar(frm);
mcl.Left=(frm.ClientWidth-mcl.Width)/2;
mcl.Top =(stb.Top-mcl.Height)/2;
mcl.OnClick=mcl_Click;

// Минимальная дата - первое число предыдущего месяца
d=new Date(mcl.Date);
d.decMonth();
d.setDate(1);
mcl.MinDate=d.toDateTime();
d.Delete();

// Максимальная дата - последнее число следующего месяца
d=new Date(mcl.Date);
d.incMonth();
d.setDate(d.getDays());
mcl.MaxDate=d.toDateTime();
d.Delete();

frm.ShowModal();

// Обработчик события OnClick
function mcl_Click(mcl)
{
  var d=new Date(mcl.Date);

  stb.SimpleText=" Выбрана дата: "+d.toLocaleDateString();
}