get_day_of_week.m

使用MATLAB编写的阴历和阳历转换程序

%Get_Day_of_Week.m
%由公历日期求星期数
leap_year=floor((solar_year-1933)/4);                         %到1936年的闰年数
weekday=rem((solar_year-1936-leap_year)*365+leap_year*366+solar_sumofdays(solar_month)+solar_day,7)+1;    %求星期数
weekdayoutput=['二','三','四','五','六','日','一'];
fprintf('这一天是星期%s,',weekdayoutput(weekday))