lunar_input.m

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

%Lunar_input
%输入农历日期
lunar_year=input('请输入一个农历年份（输入年份范围为1936-2032\）:');
while (lunar_year-1936)*(lunar_year-2031)>0;                %输入年份不符合要求
    lunar_year=input('猪头！年份应在1936至2031之间，请再输一次:');
end
lunar_month=input('请输入一个农历月份:');
while (lunar_month-1)*(lunar_month-12)>0%输入月份不符合要求
    lunar_month=input('猪头！月份应在1至12之间，请再输一次:');
end
if calendar_matrix(lunar_year-1935,2)==lunar_month     %输入月份和当年闰月相同
    answer=input('是闰月吗？(y/n):','s');                          %判断是否为闰月
    while answer~='y'&answer~='n'
        answer=input('到底是不是啊？(y/n):','s');
    end
    if answer=='y'
        lunar_month=lunar_month+1;
    end
elseif calendar_matrix(lunar_year-1935,2)~=0&calendar_matrix(lunar_year-1935,2)~=lunar_month
    if lunar_month>calendar_matrix(lunar_year-1935,2)
        lunar_month=lunar_month+1;
    end
end
lunar_day=input('请输入一个农历日期:');
while (lunar_day-1)*(lunar_day-calendar_matrix(lunar_year-1935,lunar_month+2))>0
    lunar_day=input('猪头！这个月没有这个日期，请再输一次:');
end
sign=0;
if rem(lunar_year,4)==0
    sign=sign+1;
end
if sign==1
    solar_sumofdays=[0,31,60,91,121,152,182,213,244,274,305,335,366];
else
    solar_sumofdays=[0,31,59,90,120,151,181,212,243,273,304,334,365];
end
solar_year=lunar_year;