Calc_Calendar_date_switch

procedure Calc_Calendar_date_switch(

  juldat: extended;

  var year: Word;

  var month: Word;

  var day: Word;

  switch_date: extended

);