波斯日历与公历转换算法

1、#if DISPLAY_FARSI_CALENDARtypedef struct MS_U8 weekday;MS_U8 day;MS_U8 month;MS_U16 year; Date_time;static MS_BOOL MApp_IsPersianYearLeap(MS_U32 year)return (year - (year 0) ? 474 : 473) % 2820) + 474) + 38) * 682) % 2816) = 1 & u8Month day;M = des-month;Y = des-year;MS_U8 R;/R = D;/ Jamie shieldedM

2、S_U16 inty;MS_U16 x12 = 0;/ x12 年if (Y 2059) des-year = 2059;if (M 12) :des-month = 12;if (D MApp_GetDaysOfThisMonth(des-year, des-month) des-day = MApp_GetDaysOfThisMonth(des-year, des-month);R = des-day;if (M = 1 | M = 2)x12 = 622;else if (M = 3 & R 年BOOL m_ok;do i+;if (inty = xxx) m_ok = TRUE;bre

3、ak;elsem_ok = FALSE;xxx = xxx + 4;/ while (i 30);/ 30 次if (m_ok = TRUE) if (R 31 & M = 1)R+;else if (R 28 & M = 2)R+;else if (R 31 & M = 3)R+;else if (R 30 & M = 4) R+;else if (R 31 & M = 5) R+;else if (R 30 & M = 6) R+;else if (R 31 & M = 7) R+;else if (R 31 & M = 8) R+;else if (R 30 & M = 9)R+;els

4、e if (R 31 & M = 10) R+;else if (R 30 & M = 11)R+;else if (R 31 & M = 12)R+; else R = 1;M+;/ end if cabiseif (M = 1 & R =21 ) r = R - 20;m = 11;else if (M = 2 & R = 20) r = R - 19;m = 12;else if (M = 3 & R = 21) r = R - 20;m = 1;else if (M = 4 & R = 21) r = R - 20;m = 2;else if (M = 5 & R = 22) r =

5、R - 21;m = 3;else if (M = 6 & R = 22) r = R - 21;m = 4;else if (M = 7 & R = 23) r = R - 22;m = 5;else if (M = 8 & R = 23) r = R - 22;m = 6;else if (M = 9 & R = 23) r = R - 22;m = 7;else if (M = 10 & R = 23) r = R - 22;m = 8;else if (M = 11 & R = 22) r = R - 21;m = 9;else if (M = 12 & R = 22) r = R -

6、 21;m = 10;int x = 0;if (M = 1 | M = 2)x = 622;else if (M = 3 & R day = r;/ return Daydes-month = m;/ return monthdes-year = Y;/ return Yearreturn TRUE;=static int OutDateGregorian_k(Date_time *des)/ what 0 Day 1Month 2 YearMS_U8 D, M;MS_U16 Y;/*D = des-day;M = des-month;Y = des-year;MS_U8 m = 0, r

7、= 0;MS_U8 R = 0;R = D;if (M = 1 & R = 13) m = 4;r = R - 12;if (M = 2 & R = 12) m = 5;r = R - 11;if (M = 3 & R = 12) m = 6;r = R - 11;if (M = 4 & R = 11) m = 7;r = R - 10;if (M = 5 & R = 11) m = 8;r = R - 10;if (M = 6 & R = 11) m = 9;r = R - 10;if (M = 7 & R = 10) m = 10;r = R - 9;if (M = 8 & R = 11)

8、 m = 12;r = R - 10;if (M = 9 & R = 11) m = 12;r = R - 10;/Y = Y + 621;if (M = 10 & R = 12) m = 1;r = R - 11;Y+;if (M = 11 & R = 13) m = 2;r = R - 12;Y+;if (M = 12 & R = 11) m = 3;r = R - 10;Y+;des-day = r;/ return Daydes-month = m;/ return monthdes-year = Y;/ return Yearreturn TRUE;int OutDateGregor

9、ian(Date_time *des) / what = 0Day 1Month 2Year MS_U8 D, M;MS_U16 Y;/*D = des-day;M = des-month;Y = des-year;MS_U8 m = 0, r = 0;MS_U8 R = 0;/*/printf(M = %d D = %d Y = %dn, M, D, Y);if (Y 2059) des-year = 2059;/ return Yearreturn FALSE;if (M 12) des-month = 12;/ return monthif (D MApp_GetIranDaysOfMo

10、nth() des-day = 31;/ return Day*/ int inty = Y;int xxx = 1379, i = 0;BOOL m_ok;do i+;if (inty = xxx) m_ok=TRUE; break;else m_ok = FALSE;xxx = xxx + 4;/忧?呷碛 ?逖嶅茄忧 ?磉惹 ? while (i 30); if (m_ok = TRUE) return OutDateGregorian_k(des); R = D;if (M = 1 & R = 12) m = 4;r = R - 11;if (M = 2 & R = 11) m = 5;

11、r = R - 10;if (M = 3 & R = 11) m = 6;r = R - 10;if (M = 4 & R = 10) m = 7;r = R - 9;if (M = 5 & R = 10) m = 8;r = R - 9;if (M = 6 & R = 10) m = 9;r = R - 9;if (M = 7 & R = 9) m = 10;r = R - 8;if (M = 8 & R = 10) m = 12;r = R - 9;if (M = 9 & R = 10) m = 12;r = R - 9;/Y = Y + 621;if (M = 10 & R = 11)m = 1;r = R - 10;Y+;if (M = 11 &