mycalendar.m

来自「使用MATLAB编写的阴历和阳历转换程序」· M 代码 · 共 22 行

%calendar.m
%主程序
calendar		%输出当年当月的日历
Calendar_data;
fprintf('当前时间：%s。\n',datestr(now, 'mmmm dd, yyyy HH:MM:SS.FFF AM'));
stop=2;
while stop~=1
    s=input('请选择你要进行的计算（1/2）：\n1.由公历算农历\n2.由农历算公历\n');
while s~=1&s~=2
    s=input('错误啦！请选择1或2，再输入一次：');
end
switch s
    case 1
        Solar_input
        Get_Day_of_Week
        Solar_to_Lunar
    case 2
        Lunar_input
        Lunar_to_Solar
end
stop=input('是否终止？1.是 2.否\n');
end