有没有“阴阳日历转换”转换的程序代码？急！高分相送！谢谢！

Question

#include "stdafx.h"
#include "Calendar.h"
#include "Calendar1.h"
#include "Calendarfrm.h"#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif/////////////////////////////////////////////////////////////////////////////
// CCalendar
extern WORD gLunarMonthDay[];
extern BYTE gLunarMonth[];
extern BYTE gLunarHolDay[];const WORD START_YEAR =1901;
const WORD END_YEAR   =2050;void CCalendar::l_InitData()
{
SYSTEMTIME systime;
::GetSystemTime(&systime); m_iYear  = systime.wYear;
m_iMonth = systime.wMonth;
m_iDay   = systime.wDay; m_dwBackColor      = RGB(255,255,255);
m_dwForeColor      = RGB(0,0,0);
m_dwSelColor       = RGB(150,150,230);
m_dwSelForeColor   = RGB(255,255,255);
m_dwTitleBkColor     = RGB(190,70,70);
m_dwTitleColor = RGB(255,255,0);}CCalendar::CCalendar(WORD iYear, WORD iMonth, WORD iDay)
{
   if(!SetDate(iYear, iMonth, iDay))
   l_InitData();
}CCalendar::CCalendar()
{
   l_InitData();
}CCalendar::~CCalendar()
{
  DestroyWindow(); 
}
BEGIN_MESSAGE_MAP(CCalendar, CWnd)
//{{AFX_MSG_MAP(CCalendar)
ON_WM_PAINT()
ON_WM_LBUTTONDOWN()
ON_WM_CONTEXTMENU()
ON_WM_CREATE()
//}}AFX_MSG_MAP
ON_COMMAND(ID_TITLEBKCOLOR, OnTitleBkColor)
ON_COMMAND(ID_TITLECOLOR,   OnTitleColor)
ON_COMMAND(ID_SELCOLOR,     OnSelColor)
ON_COMMAND(ID_FORECOLOR,    OnForeColor)
END_MESSAGE_MAP()#define COL_WIDTH    32
#define ROW_HEIGHT   20
#define TITLE_HEIGHT 20BOOL CCalendar::Create(RECT &rect, CWnd *pParentWnd, UINT nID)
{
    CString szClassName = AfxRegisterWndClass(CS_CLASSDC|CS_SAVEBITS|
                                      CS_HREDRAW|CS_VREDRAW,
                                              0, (HBRUSH)CBrush(RGB(255,255,255)), 0);
    rect.right = rect.left + COL_WIDTH*7 +4;
    rect.bottom = rect.top + TITLE_HEIGHT+ROW_HEIGHT*6 +10 ;
if(!CWnd::CreateEx(WS_EX_CLIENTEDGE, szClassName, _T(""),
                WS_CHILD|WS_VISIBLE|WS_TABSTOP, rect, 
pParentWnd, nID, NULL))     return FALSE;    UpdateWindow();
    for(int i=0; i<42; i++)
m_oBitMapList[i].LoadBitmap(IDB_BITMAP1+i);  m_oPopMenu.CreatePopupMenu();
m_oPopMenu.AppendMenu(MF_STRING, ID_TITLEBKCOLOR, _T("标题背景色..."));
m_oPopMenu.AppendMenu(MF_STRING, ID_TITLECOLOR,   _T("标题前景色...")); 
m_oPopMenu.AppendMenu(MF_STRING, ID_FORECOLOR ,   _T("日期前景色..."));
  m_oPopMenu.AppendMenu(MF_STRING, ID_SELCOLOR,     _T("选中区颜色..."));

return TRUE;
}/////////////////////////////////////////////////////////////////////////////
// CCalendar message handlers
void CCalendar::l_PaintTitle(CPaintDC &dc)
{
   CRect rect ;
   GetClientRect(&rect);   rect.left ++;   rect.top ++;
   rect.right --;  rect.bottom = rect.top + TITLE_HEIGHT;
   dc.FillRect(&rect, &CBrush(m_dwTitleBkColor));   dc.SetBkColor(m_dwTitleBkColor); 
   dc.SetTextColor(m_dwTitleColor);    int startx = rect.left +8;
   char sztext[][3]={"日","一","二","三","四","五","六"};
   for(int i=0; i <7; i++)
   {
      dc.TextOut(startx, rect.top +2, sztext[i]);
      startx += COL_WIDTH;
   }
}void CCalendar:: l_PaintOneDay(CPaintDC &dc, CDC &imgdc, WORD &iDay, 
   WORD &iLunarYear, WORD &iLunarMonth, 
   WORD &iLunarDay, 
   LONG startx, LONG starty, BYTE bSecondLeapMonth)
{
 char text[3];
     sprintf(text, "%2d", iDay);     // select icon
 if(iLunarDay!=1)
      imgdc.SelectObject(&m_oBitMapList[iLunarDay-1]);
 else
      imgdc.SelectObject(&m_oBitMapList[29+iLunarMonth]);     // if day == current day
 if(iDay++ == m_iDay)
 {
SetRect(&m_sSelRect, startx-1, starty, startx +COL_WIDTH-3,starty + ROW_HEIGHT);
dc.FillRect(m_sSelRect, &CBrush(m_dwSelColor)); 
dc.SetTextColor(m_dwSelForeColor);
dc.SetBkColor(m_dwSelColor);
dc.TextOut(startx, starty +2, text);
dc.SetBkColor(m_dwBackColor);
dc.SetTextColor(m_dwForeColor); 
dc.BitBlt(startx+17, starty +2, 8,16,&imgdc,0,0,MERGEPAINT);  
 }
 else
 {
dc.TextOut(startx, starty+2, text);
dc.BitBlt(startx+17, starty +2, 8,16,&imgdc,0,0,SRCCOPY);  
 }
     if(iLunarYear <START_YEAR && iLunarDay == 29)
 iLunarDay = 1, iLunarMonth++;
 else if(iLunarDay<29)
  iLunarDay++;
 else
 {
 LONG days = LunarMonthDays(iLunarYear, iLunarMonth);
 if(!HIWORD(days) && iLunarDay == LOWORD(days) 
             || bSecondLeapMonth && iLunarDay == HIWORD(days))
 iLunarMonth = (iLunarMonth)%12+1;
 if(iLunarDay < LOBYTE(days))
 iLunarDay++;
 else
 iLunarDay =1;
 }
}

Answer 1

void CCalendar::l_PaintDate(CPaintDC &dc)
{
   CDC imgdc;
   imgdc.CreateCompatibleDC(&dc);   RECT rect;
   GetClientRect(&rect);
   rect.top  +=TITLE_HEIGHT+6;   dc.SetBkColor(m_dwBackColor);
   dc.SetTextColor(m_dwForeColor);   WORD day =1;
   WORD iLunarYear, iLunarMonth, iLunarDay;
   BYTE bSecondLeapMonth = l_CalcLunarDate(iLunarYear, iLunarMonth, iLunarDay, 
                              CalcDateDiff(m_iYear, m_iMonth, 1));
   //GetLunarDate(m_iYear, m_iMonth, 1, iLunarYear, iLunarMonth, iLunarDay);    for(int i=0; i<6; i++, rect.top += ROW_HEIGHT)
   {
   long startx = rect.left +2;
   for(int j=0; j<7; j++,startx += COL_WIDTH)
   {
   if(j < WeekDay(m_iYear, m_iMonth, 1) && i==0)
     continue;    if(day > MonthDays(m_iYear, m_iMonth))
   break;
   
           l_PaintOneDay(dc, imgdc, day, iLunarYear, iLunarMonth,
   iLunarDay, startx, rect.top, bSecondLeapMonth);
   }
   }
}void CCalendar::OnPaint() 
{
    CPaintDC dc(this); // device context for painting
    
    CFont *font = ((CCalendarFrm *)GetParent())->GetDispFont();
    dc.SelectObject(font);
    dc.SetMapMode(0); 
    l_PaintTitle(dc);
    l_PaintDate(dc);
    
}LONG CCalendar::CalcDateDiff(WORD iEndYear, WORD iEndMonth, WORD iEndDay,
                    WORD  iStartYear, WORD iStartMonth, WORD iStartDay)
{
WORD monthday[]={0, 31, 59 ,90, 120, 151, 181, 212, 243, 273, 304, 334};  //计算两个年份1月1日之间相差的天数
LONG iDiffDays =(iEndYear - iStartYear)*365;
iDiffDays += (iEndYear-1)/4 - (iStartYear-1)/4;
iDiffDays -= ((iEndYear-1)/100 - (iStartYear-1)/100);
iDiffDays += (iEndYear-1)/400 - (iStartYear-1)/400;    //加上iEndYear年1月1日到iEndMonth月iEndDay日之间的天数
    iDiffDays += monthday[iEndMonth-1] +
                           (IsLeapYear(iEndYear)&&iEndMonth>2? 1: 0);
    iDiffDays += iEndDay; //减去iStartYear年1月1日到iStartMonth月iStartDay日之间的天数
iDiffDays -= (monthday[iStartMonth-1] + 
                  (IsLeapYear(iStartYear)&&iStartMonth>2 ? 1: 0));
    iDiffDays -= iStartDay;
return iDiffDays;
}BYTE  CCalendar::l_CalcLunarDate(WORD &iYear, WORD &iMonth ,WORD &iDay, LONG iSpanDays)
{
//阳历1901年2月19日为阴历1901年正月初一
//阳历1901年1月1日到2月19日共有49天
BYTE rcode =0;
    if(iSpanDays <49)
{
iYear  = START_YEAR-1;
if(iSpanDays <19)
{ 
  iMonth = 11;  
  iDay   = 11+WORD(iSpanDays);
}
else
{
iMonth = 12;
iDay   =  WORD(iSpanDays) -18;
}
return  rcode;
}
//下面从阴历1901年正月初一算起
iSpanDays -=49;
    iYear  = START_YEAR;
iMonth = 1;
iDay   = 1;
//计算年
LONG tmp = LunarYearDays(iYear); 
while(iSpanDays >= tmp)
{
iSpanDays -= tmp;
tmp = LunarYearDays(++iYear);
}
    //计算月
tmp = LOWORD(LunarMonthDays(iYear, iMonth));
while(iSpanDays >= tmp)
{
iSpanDays -= tmp;
    if(iMonth == GetLeapMonth(iYear))
{
tmp  = HIWORD(LunarMonthDays(iYear, iMonth));
if(iSpanDays < tmp)
{
   rcode = 1;
   break;
}
iSpanDays -= tmp;
}
tmp = LOWORD(LunarMonthDays(iYear, ++iMonth));
}
//计算日
iDay += WORD(iSpanDays);
return rcode;
}WORD CCalendar::GetLunarDate(WORD iYear, WORD iMonth, WORD iDay,
                     WORD &iLunarYear, WORD &iLunarMonth, WORD &iLunarDay)
{
   l_CalcLunarDate(iLunarYear, iLunarMonth, iLunarDay, 
                              CalcDateDiff(iYear, iMonth, iDay));   return l_GetLunarHolDay(iYear, iMonth, iDay);
   
}//根据节气数据存储格式,计算阳历iYear年iMonth月iDay日对应的节气,
WORD  CCalendar::l_GetLunarHolDay(WORD iYear, WORD iMonth, WORD iDay)
{
BYTE &flag = gLunarHolDay[(iYear - START_YEAR)*12+iMonth -1];
WORD day;
if(iDay <15)
 day= 15 - ((flag>>4)&0x0f);
else
day = ((flag)&0x0f)+15;
if(iDay == day)
   return (iMonth-1) *2 + (iDay>15? 1: 0) +1; 
else
   return 0;
}
//返回当前的日期
void CCalendar::GetDate(WORD &iYear, WORD &iMonth, WORD &iDay) 
{
iYear  = m_iYear;
iMonth = m_iMonth;
iDay   = m_iDay;
}BOOL CCalendar::SetDate(WORD iYear, WORD iMonth, WORD iDay)
{
  if(iYear < START_YEAR || iYear > END_YEAR || iMonth <1 || iMonth >12)
     return FALSE;  if(iDay <1 || iDay > MonthDays(iYear, iMonth))
    return FALSE;  m_iYear   = iYear;
  m_iMonth  = iMonth;
  m_iDay    = iDay;  return TRUE;
} WORD CCalendar::WeekDay(WORD iYear, WORD iMonth, WORD iDay)
{
    //数组元素monthday[i]表示第i个月以前的总天数除以7的余数
WORD monthday[]={0,3,3,6,1,4,6,2,5,0,3,5};
WORD iDays = (iYear-1)%7 + (iYear-1)/4 - (iYear-1)/100 +(iYear-1)/400;
iDays += (monthday[iMonth-1] +iDay) ;
//如果iYear是闰年
    if(IsLeapYear(iYear) && iMonth>2)
iDays++;
//返回:0,1,2,3,4,5,6表日、一、二、三、四、五、六
return iDays%7;
}WORD CCalendar::MonthDays(WORD iYear, WORD iMonth)
{
switch(iMonth)
{
case 1:case 3:case 5:case 7:case 8:case 10:case 12:
return 31;
break;
case 4:case 6:case 9:case 11:
return 30;
break;
case 2:
//如果是闰年
if(IsLeapYear(iYear))
return 29;
else
return 28;
break;
}
return 0;
}WORD CCalendar::GetLeapMonth(WORD iLunarYear)
{
BYTE &flag = gLunarMonth[(iLunarYear - START_YEAR)/2];
  return  (iLunarYear - START_YEAR)%2 ? flag&0x0f : flag>>4;
}LONG CCalendar::LunarMonthDays(WORD iLunarYear, WORD iLunarMonth)
{
if(iLunarYear < START_YEAR) 
return 30L; WORD height =0 ,low =29;
int iBit = 16 - iLunarMonth;    if(iLunarMonth > GetLeapMonth(iLunarYear) && GetLeapMonth(iLunarYear))
   iBit --; if(gLunarMonthDay[iLunarYear - START_YEAR] & (1<<iBit))
        low ++;
    
if(iLunarMonth == GetLeapMonth(iLunarYear))
if(gLunarMonthDay[iLunarYear - START_YEAR] & (1<< (iBit -1)))
     height =30;
else 
 height =29; return MAKELONG(low, height);
}WORD CCalendar::LunarYearDays(WORD iLunarYear)
{
/*
WORD days=348 ; //12*29
int  month = 12 ;
//如果iYear年有闰月，则为13个月
    if(gLanarMonth[iYear - START_YEAR]) 
month ++;
    //如果某月是三十天则days++
while(month >=0 && (gLanarMonthDay[iYear - START_YEAR] & (1 << (16 - month))))
{   
days ++; 
    month --;
}
return days;
*/
WORD days =0;
for(WORD  i=1; i<=12; i++)
{ 
        LONG  tmp = LunarMonthDays(iLunarYear ,i); 
days += HIWORD(tmp);
days += LOWORD(tmp);
}
    return days;
}void CCalendar::FormatLunarYear(WORD  iYear, char *pBuffer)
{
char szText1[]="甲乙丙丁戊己庚辛壬癸";
char szText2[]="子丑寅卯辰巳午未申酉戌亥";
char szText3[]="鼠牛虎免龙蛇马羊猴鸡狗猪"; memcpy(pBuffer,  szText1+((iYear-4)%10)*2,2);
memcpy(pBuffer+2,szText2+((iYear-4)%12)*2,2);
pBuffer[4]=' ';
memcpy(pBuffer+5,szText3+((iYear-4)%12)*2,2);
strcpy(pBuffer+7,"年");
}void CCalendar::FormatMonth(WORD iMonth, char *pBuffer, BOOL bLunar)
{
   if(!bLunar && iMonth==1)
   {
   strcpy(pBuffer, "　一月");
   return;
   }   char szText[]="正二三四五六七八九十";
   if(iMonth<=10)
   {
   memcpy(pBuffer, "　", 2);
       memcpy(pBuffer+2, szText + (iMonth -1)*2, 2);
       strcpy(pBuffer+4 , "月");
   return;
   }
   if (iMonth == 11)
   strcpy(pBuffer, "十一");
   else
   strcpy(pBuffer, "十二");
    strcpy(pBuffer+4 , "月");   
}
void CCalendar::FormatLunarDay(WORD  iDay, char *pBuffer)
{
    char szText1[]="初十廿三";
char szText2[]="一二三四五六七八九十";
if(iDay != 20 && iDay !=30)
{
memcpy(pBuffer, szText1 + (iDay-1)/10*2 ,2);
memcpy(pBuffer+2, szText2 + ((iDay-1)%10)*2 ,2);
pBuffer[4]='\0';
}
else
{
        memcpy(pBuffer, szText1 + iDay/10*2, 2);
strcpy(pBuffer+2, szText2 +18);
}
}

Answer 2

WORD CCalendar::l_CalcSelectDay(POINT * pt)
{
RECT rect;
    GetClientRect(&rect);
WORD iRow = (pt->y - rect.top -26)/ROW_HEIGHT;
WORD iCol = (pt->x - rect.left )/COL_WIDTH; WORD startcol ,endrow, endcol;
startcol = WeekDay(m_iYear, m_iMonth, 1);
endcol   = WeekDay(m_iYear, m_iMonth, MonthDays(m_iYear,m_iMonth)); endrow   = (MonthDays(m_iYear, m_iMonth) + startcol -1)/7 ;
    if(iRow == 0 && iCol < startcol || iRow == endrow && iCol > endcol ||  iRow > endrow)
return 0;
return iRow *7 + iCol + 1 - startcol ;
}void CCalendar::OnLButtonDown(UINT nFlags, CPoint point) 
{
WORD day = l_CalcSelectDay(&point);
if(day !=0 && day != m_iDay)
{
m_iDay = day;
::PostMessage(GetParent()->m_hWnd, UM_SELCHANGE, MAKELONG(m_iMonth, m_iYear), m_iDay); 
InvalidateRect(m_sSelRect);
OnPaint();
InvalidateRect(m_sSelRect);
    }
SetFocus(); 
CWnd::OnLButtonDown(nFlags, point);
}
void CCalendar::OnContextMenu(CWnd* pWnd, CPoint point) 
{
m_oPopMenu.TrackPopupMenu(TPM_LEFTALIGN | TPM_RIGHTBUTTON, point.x, point.y,
this); 
}void CCalendar::OnTitleBkColor()
{
  CColorDialog colordlg;
  if(colordlg.DoModal() != IDOK)
  return;
  m_dwTitleBkColor = colordlg.GetColor();
  Invalidate(); 
}void CCalendar::OnTitleColor()
{
CColorDialog colordlg;
  if(colordlg.DoModal() != IDOK)
  return;
  m_dwTitleColor = colordlg.GetColor();
  Invalidate(); 
}void CCalendar::OnSelColor()
{
  CColorDialog colordlg;
  if(colordlg.DoModal() != IDOK)
  return;
  
  m_dwSelColor = colordlg.GetColor();
  Invalidate(); 
}void CCalendar::OnForeColor()
{
CColorDialog colordlg;
  if(colordlg.DoModal() != IDOK)
  return;
  
  m_dwForeColor = colordlg.GetColor();
  Invalidate(); 
}#undef COL_WIDTH
#undef ROW_HEIGHT
#undef TITLE_HEIGHT
/******************************************************************************
  下面为阴历计算所需的数据,为节省存储空间,所以采用下面比较变态的存储方法.
   
*******************************************************************************/
//数组gLunarDay存入阴历1901年到2100年每年中的月天数信息，
//阴历每月只能是29或30天，一年用12（或13）个二进制位表示，对应位为1表30天，否则为29天
WORD gLunarMonthDay[]=
{
//测试数据只有1901.1.1 --2050.12.31
  0X4ae0, 0Xa570, 0X5268, 0Xd260, 0Xd950, 0X6aa8, 0X56a0, 0X9ad0, 0X4ae8, 0X4ae0,   //1910
  0Xa4d8, 0Xa4d0, 0Xd250, 0Xd548, 0Xb550, 0X56a0, 0X96d0, 0X95b0, 0X49b8, 0X49b0,   //1920
  0Xa4b0, 0Xb258, 0X6a50, 0X6d40, 0Xada8, 0X2b60, 0X9570, 0X4978, 0X4970, 0X64b0,   //1930
  0Xd4a0, 0Xea50, 0X6d48, 0X5ad0, 0X2b60, 0X9370, 0X92e0, 0Xc968, 0Xc950, 0Xd4a0,   //1940
  0Xda50, 0Xb550, 0X56a0, 0Xaad8, 0X25d0, 0X92d0, 0Xc958, 0Xa950, 0Xb4a8, 0X6ca0,   //1950
  0Xb550, 0X55a8, 0X4da0, 0Xa5b0, 0X52b8, 0X52b0, 0Xa950, 0Xe950, 0X6aa0, 0Xad50,   //1960
  0Xab50, 0X4b60, 0Xa570, 0Xa570, 0X5260, 0Xe930, 0Xd950, 0X5aa8, 0X56a0, 0X96d0,   //1970
  0X4ae8, 0X4ad0, 0Xa4d0, 0Xd268, 0Xd250, 0Xd528, 0Xb540, 0Xb6a0, 0X96d0, 0X95b0,   //1980
  0X49b0, 0Xa4b8, 0Xa4b0, 0Xb258, 0X6a50, 0X6d40, 0Xada0, 0Xab60, 0X9370, 0X4978,   //1990
  0X4970, 0X64b0, 0X6a50, 0Xea50, 0X6b28, 0X5ac0, 0Xab60, 0X9368, 0X92e0, 0Xc960,   //2000
  0Xd4a8, 0Xd4a0, 0Xda50, 0X5aa8, 0X56a0, 0Xaad8, 0X25d0, 0X92d0, 0Xc958, 0Xa950,   //2010
  0Xb4a0, 0Xb550, 0Xb550, 0X55a8, 0X4ba0, 0Xa5b0, 0X52b8, 0X52b0, 0Xa930, 0X74a8,   //2020
  0X6aa0, 0Xad50, 0X4da8, 0X4b60, 0X9570, 0Xa4e0, 0Xd260, 0Xe930, 0Xd530, 0X5aa0,   //2030
  0X6b50, 0X96d0, 0X4ae8, 0X4ad0, 0Xa4d0, 0Xd258, 0Xd250, 0Xd520, 0Xdaa0, 0Xb5a0,   //2040
  0X56d0, 0X4ad8, 0X49b0, 0Xa4b8, 0Xa4b0, 0Xaa50, 0Xb528, 0X6d20, 0Xada0, 0X55b0,   //2050
  
};//数组gLanarMonth存放阴历1901年到2050年闰月的月份，如没有则为0，每字节存两年
BYTE  gLunarMonth[]=
{
0X00, 0X50, 0X04, 0X00, 0X20,   //1910
0X60, 0X05, 0X00, 0X20, 0X70,   //1920
0X05, 0X00, 0X40, 0X02, 0X06,   //1930
0X00, 0X50, 0X03, 0X07, 0X00,   //1940
0X60, 0X04, 0X00, 0X20, 0X70,   //1950
0X05, 0X00, 0X30, 0X80, 0X06,   //1960
0X00, 0X40, 0X03, 0X07, 0X00,   //1970
0X50, 0X04, 0X08, 0X00, 0X60,   //1980
0X04, 0X0a, 0X00, 0X60, 0X05,   //1990
0X00, 0X30, 0X80, 0X05, 0X00,   //2000
0X40, 0X02, 0X07, 0X00, 0X50,   //2010
0X04, 0X09, 0X00, 0X60, 0X04,   //2020
0X00, 0X20, 0X60, 0X05, 0X00,   //2030
0X30, 0Xb0, 0X06, 0X00, 0X50,   //2040
0X02, 0X07, 0X00, 0X50, 0X03    //2050
};

Answer 3

你可以試試本欄的推荐的代碼中的　　XPCalendar.ocx我看還不錯，可以找斑主要，要不我可以轉寄給你

Answer 4

上次的代码没贴完。
我这里有一个源代码，纯C++实现，不依赖MFC，是从Palm上移植过来的。

Answer 5

参见下面的帖子：
http://expert.csdn.net/Expert/topic/1207/1207638.xml?temp=7.996768E-02

Answer 6

在csdn 找吧，以前有人用vb编过，我下载了，挺好使（公历转农历）。要的话给我发mail,[email protected],我给你发过去。