转自: http://www.7880.com/Info/Article-5a83ff40.html
C: 代码:
/*------------农历转换函数-----------*/
char*GetDayOf(PSYSTEMTIME pSt)
{
/*天干名称*/
constchar*cTianGan[] = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"};
/*地支名称*/
constchar*cDiZhi[] = {"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥"};
/*属相名称*/
constchar*cShuXiang[] = {"鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪"};
/*农历日期名*/
constchar*cDayName[] = {"*","初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","二十",
"廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十"};
/*农历月份名*/
constchar*cMonName[] = {"*","正","二","三","四","五","六","七","八","九","十","十一","腊"};
/*公历每月前面的天数*/
constintwMonthAdd[12] = {0,31,59,90,120,151,181,212,243,273,304,334};
/*农历数据*/
constintwNongliData[100] = {2635,333387,1701,1748,267701,694,2391,133423,1175,396438,
3402,3749,331177,1453,694,201326,2350,465197,3221,3402,
400202,2901,1386,267611,605,2349,137515,2709,464533,1738,
2901,330421,1242,2651,199255,1323,529706,3733,1706,398762,
2741,1206,267438,2647,1318,204070,3477,461653,1386,2413,
330077,1197,2637,268877,3365,531109,2900,2922,398042,2395,
1179,267415,2635,661067,1701,1748,398772,2742,2391,330031,
1175,1611,200010,3749,527717,1452,2742,332397,2350,3222,
268949,3402,3493,133973,1386,464219,605,2349,334123,2709,
2890,267946,2773,592565,1210,2651,395863,1323,2707,265877};
staticintwCurYear,wCurMonth,wCurDay;
staticintnTheDate,nIsEnd,m,k,n,i,nBit;
TCHAR szNongli[30], szNongliDay[10],szShuXiang[10];
/*---取当前公历年、月、日---*/
wCurYear = pSt->wYear;
wCurMonth = pSt->wMonth;
wCurDay = pSt->wDay;
/*---计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)---*/
nTheDate = (wCurYear -1921) *365+ (wCurYear -1921) /4+ wCurDay + wMonthAdd[wCurMonth -1] -38;
if((!(wCurYear %4)) && (wCurMonth >2))
nTheDate = nTheDate +1;
/*--计算农历天干、地支、月、日---*/
nIsEnd =0;
m =0;
while(nIsEnd !=1)
{
if(wNongliData[m] <4095)
k =11;
else
k =12;
n = k;
while(n>=0)
{
//获取wNongliData(m)的第n个二进制位的值
nBit = wNongliData[m];
for(i=1;i
nBit = nBit/2;
nBit = nBit %2;
if(nTheDate <= (29+ nBit))
{
nIsEnd =1;
break;
}
nTheDate = nTheDate -29- nBit;
n = n -1;
}
if(nIsEnd){
break;
}
m = m +1;
}
wCurYear =1921+ m;
wCurMonth = k - n +1;
wCurDay = nTheDate;
if(k ==12)
{
if(wCurMonth == wNongliData[m] /65536+1){
wCurMonth =1- wCurMonth;
}
elseif(wCurMonth > wNongliData[m] /65536+1){
wCurMonth = wCurMonth -1;
}
}
/*--生成农历天干、地支、属相==> wNongli--*/
wsprintf(szShuXiang,"%s",cShuXiang[((wCurYear -4) %60) %12]);
wsprintf(szNongli,"%s(%s%s)年",szShuXiang,cTianGan[((wCurYear -4) %60) %10],cDiZhi[((wCurYear -4) %60) %12]);
/*--生成农历月、日==> wNongliDay--*/
if(wCurMonth <1){
wsprintf(szNongliDay,"闰%s",cMonName[-1* wCurMonth]);
}
else{
strcpy(szNongliDay,cMonName[wCurMonth]);
}
strcat(szNongliDay,"月");
strcat(szNongliDay,cDayName[wCurDay]);
returnstrcat(szNongli,szNongliDay);
}
Objective-C 代码:
//农历转换函数
-(NSString*)LunarForSolar:(NSDate*)solarDate{
//天干名称
NSArray*cTianGan = [NSArrayarrayWithObjects:@"甲",@"乙",@"丙",@"丁",@"戊",@"己",@"庚",@"辛",@"壬",@"癸",nil];
//地支名称
NSArray*cDiZhi = [NSArrayarrayWithObjects:@"子",@"丑",@"寅",@"卯",@"辰",@"巳",@"午",@"未",@"申",@"酉",@"戌",@"亥",nil];
//属相名称
NSArray*cShuXiang = [NSArrayarrayWithObjects:@"鼠",@"牛",@"虎",@"兔",@"龙",@"蛇",@"马",@"羊",@"猴",@"鸡",@"狗",@"猪",nil];
//农历日期名
NSArray*cDayName = [NSArrayarrayWithObjects:@"*",@"初一",@"初二",@"初三",@"初四",@"初五",@"初六",@"初七",@"初八",@"初九",@"初十",
@"十一",@"十二",@"十三",@"十四",@"十五",@"十六",@"十七",@"十八",@"十九",@"二十",
@"廿一",@"廿二",@"廿三",@"廿四",@"廿五",@"廿六",@"廿七",@"廿八",@"廿九",@"三十",nil];
//农历月份名
NSArray*cMonName = [NSArrayarrayWithObjects:@"*",@"正",@"二",@"三",@"四",@"五",@"六",@"七",@"八",@"九",@"十",@"十一",@"腊",nil];
//公历每月前面的天数
constintwMonthAdd[12] = {0,31,59,90,120,151,181,212,243,273,304,334};
//农历数据
constintwNongliData[100] = {2635,333387,1701,1748,267701,694,2391,133423,1175,396438
,3402,3749,331177,1453,694,201326,2350,465197,3221,3402
,400202,2901,1386,267611,605,2349,137515,2709,464533,1738
,2901,330421,1242,2651,199255,1323,529706,3733,1706,398762
,2741,1206,267438,2647,1318,204070,3477,461653,1386,2413
,330077,1197,2637,268877,3365,531109,2900,2922,398042,2395
,1179,267415,2635,661067,1701,1748,398772,2742,2391,330031
,1175,1611,200010,3749,527717,1452,2742,332397,2350,3222
,268949,3402,3493,133973,1386,464219,605,2349,334123,2709
,2890,267946,2773,592565,1210,2651,395863,1323,2707,265877};
staticintwCurYear,wCurMonth,wCurDay;
staticintnTheDate,nIsEnd,m,k,n,i,nBit;
//取当前公历年、月、日
NSDateComponents*components = [[NSCalendarcurrentCalendar]components:NSDayCalendarUnit|NSMonthCalendarUnit|NSYearCalendarUnitfromDate:solarDate];
wCurYear = [componentsyear];
wCurMonth = [componentsmonth];
wCurDay = [componentsday];
//计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)
nTheDate = (wCurYear -1921) *365+ (wCurYear -1921) /4+ wCurDay + wMonthAdd[wCurMonth -1] -38;
if((!(wCurYear %4)) && (wCurMonth >2))
nTheDate = nTheDate +1;
//计算农历天干、地支、月、日
nIsEnd =0;
m =0;
while(nIsEnd !=1)
{
if(wNongliData[m] <4095)
k =11;
else
k =12;
n = k;
while(n>=0)
{
//获取wNongliData(m)的第n个二进制位的值
nBit = wNongliData[m];
for(i=1;i
nBit = nBit/2;
nBit = nBit %2;
if(nTheDate <= (29+ nBit))
{
nIsEnd =1;
break;
}
nTheDate = nTheDate -29- nBit;
n = n -1;
}
if(nIsEnd)
break;
m = m +1;
}
wCurYear =1921+ m;
wCurMonth = k - n +1;
wCurDay = nTheDate;
if(k ==12)
{
if(wCurMonth == wNongliData[m] /65536+1)
wCurMonth =1- wCurMonth;
elseif(wCurMonth > wNongliData[m] /65536+1)
wCurMonth = wCurMonth -1;
}
//生成农历天干、地支、属相
NSString*szShuXiang = (NSString*)[cShuXiangobjectAtIndex:((wCurYear -4) %60) %12];
NSString*szNongli = [NSStringstringWithFormat:@"%@(%@%@)年",szShuXiang, (NSString*)[cTianGanobjectAtIndex:((wCurYear -4) %60) %10],(NSString*)[cDiZhiobjectAtIndex:((wCurYear -4) %60) %12]];
//生成农历月、日
NSString *szNongliDay;
if(wCurMonth <1){
szNongliDay = [NSStringstringWithFormat:@"闰%@",(NSString*)[cMonNameobjectAtIndex:-1* wCurMonth]];
}
else{
szNongliDay = (NSString*)[cMonNameobjectAtIndex:wCurMonth];
}
NSString*lunarDate = [NSStringstringWithFormat:@"%@ %@月%@",szNongli,szNongliDay,(NSString*)[cDayNameobjectAtIndex:wCurDay]];
returnlunarDate;
}
