\documentclass{jsarticle}
\makeatletter
\newcount\@wno %指定された年月の開始曜日{0:Sun 1:Mon ... 6:Sat)

%月末日テーブル設定
\def\@Jan{31} \def\@Feb{} \def\@Mar{31} \def\@Apr{30} \def\@May{31} \def\@Jun{30}
\def\@Jul{31} \def\@Aug{31} \def\@Sep{30} \def\@Oct{31} \def\@Nov{30} \def\@Dec{31}

\def\@Body{}
\newcount\@@tempcnta
\def\@ListToBody{%
\@@tempcnta=0
\@for\member:=\@ListOfDay\do{%
\advance\@@tempcnta 1
\ifnum\@@tempcnta>6{%
\global\@@tempcnta=0
\xdef\@Body{\@Body\member\cr}}
\else{%
\xdef\@Body{\@Body\member{&}}}\fi}}

\def\@ListOfDay{}
\def\@AppendToLOD#1{%
\xdef\@ListOfDay{\@ListOfDay#1,}}