DotNet 顯示今天的農曆

  1  using  System;
  2  using  System.Globalization; //
  3 
  4  namespace  Project.ChinaDate
  5  {
  6 
  7       ///
  8  < summary >
  9       ///  显示今天农历类
 10       ///
 11  </ summary >
 12 
 13 
 14  public
 15  class  CNDate
 16      {
 17           private  DateTime m_Date;  // 今天的日期
 18 
 19  private
 20  readonly
 21  int  cny;  // 农历的年月日
 22 
 23  private
 24  int  cnm;  // 农历的年月日
 25 
 26  private
 27  readonly
 28  int  cnd;  // 农历的年月日
 29 
 30  private
 31  readonly
 32  int  icnm;  // 农历闰月
 33 
 34  ///
 35  < summary >
 36           ///  显示日期构造函数
 37           ///
 38  </ summary >
 39 
 40  public  CNDate()
 41          {
 42              m_Date  =  DateTime.Today;
 43              ChineseLunisolarCalendar cnCalendar  =
 44  new  ChineseLunisolarCalendar();
 45              cny  =  cnCalendar.GetSexagenaryYear(m_Date);
 46              cnm  =  cnCalendar.GetMonth(m_Date);
 47              cnd  =  cnCalendar.GetDayOfMonth(m_Date);
 48              icnm  =  cnCalendar.GetLeapMonth(cnCalendar.GetYear(m_Date));
 49          }
 50           ///
 51  < summary >
 52           ///  返回格式化的公历显示
 53           ///
 54  </ summary >
 55           ///
 56  < returns > 格式如:2008年05月14日 </ returns >
 57 
 58  public
 59  string  GetDate()
 60          {
 61               int  y  =  m_Date.Year;
 62               int  m  =  m_Date.Month;
 63               int  d  =  m_Date.Day;
 64               return  String.Format( " {0}年{1:00}月{2:00}日 " , y, m, d);
 65          }
 66           ///
 67  < summary >
 68           ///  返回格式化的星期显示
 69           ///
 70  </ summary >
 71           ///
 72  < returns > 格式如:星期日 </ returns >
 73 
 74           public
 75  string  GetWeek()
 76          {
 77               string  ws  =
 78  " 星期 " ;
 79               int  w  =  Convert.ToInt32(m_Date.DayOfWeek);
 80              ws  =  ws  +
 81  " 日一二三四五六 " .Substring(w,  1 );
 82               return  ws;
 83          }
 84           ///
 85  < summary >
 86           ///  返回格式化的农历显示
 87           ///
 88  </ summary >
 89           ///
 90  < returns > 格式如:戊子(鼠)年润四月廿三 </ returns >
 91 
 92  public
 93  string  GetCNDate()
 94          {
 95               string  txcns  =
 96  "" ;
 97               const
 98  string  szText1  =
 99  " 癸甲乙丙丁戊己庚辛壬 " ;
100               const
101  string  szText2  =
102  " 亥子丑寅卯辰巳午未申酉戌 " ;
103               const
104  string  szText3  =
105  " 猪鼠牛虎免龙蛇马羊猴鸡狗 " ;
106               int  tn  =  cny  %
107  10 // 天干
108 
109  int  dn  =  cny  %
110  12 ;   // 地支
111              txcns  +=  szText1.Substring(tn,  1 );
112              txcns  +=  szText2.Substring(dn,  1 );
113              txcns  +=
114  " ( "
115  +  szText3.Substring(dn,  1 +
116  " )年 " ;
117               // 格式化月份显示
118 
119  string [] cnMonth  = "" " 正月 " " 二月 " " 三月 " " 四月 " " 五月 " " 六月 "
120                  ,  " 七月 " " 八月 " " 九月 " " 十月 " " 十一月 " " 十二月 " " 十二月 "  };
121               if  (icnm  >
122  0 )
123              {
124                   for  ( int  i  =  icnm  +
125  1 ; i  <
126  13 ; i ++ ) cnMonth  =  cnMonth[i  -
127  1 ];
128                  cnMonth[icnm]  =
129  " "
130  +  cnMonth[icnm];
131              }
132              txcns  +=  cnMonth[cnm];
133               string [] cnDay  = "" " 初一 " " 初二 " " 初三 " " 初四 " " 初五 " " 初六 " " 初七 "
134                  ,  " 初八 " " 初九 " " 初十 " " 十一 " " 十二 " " 十三 " " 十四 " " 十五 " " 十六 "
135                  ,  " 十七 " " 十八 " " 十九 " " 二十 " " 廿一 " " 廿二 " " 廿三 " " 廿四 " " 廿五 "
136                  ,  " 廿六 " " 廿七 " " 廿八 " " 廿九 " " 三十 "  };
137              txcns  +=  cnDay[cnd];
138               return  txcns;
139          }
140  }

 

转载于:https://www.cnblogs.com/CuiQG/archive/2010/03/17/CuiQG.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
自动控制节水灌溉技术的高低代表着农业现代化的发展状况,灌溉系统自动化水平较低是制约我国高效农业发展的主要原因。本文就此问题研究了单片机控制的滴灌节水灌溉系统,该系统可对不同土壤的湿度进行监控,并按照作物对土壤湿度的要求进行适时、适量灌水,其核心是单片机和PC机构成的控制部分,主要对土壤湿度与灌水量之间的关系、灌溉控制技术及设备系统的硬件、软件编程各个部分进行了深入的研究。 单片机控制部分采用上下位机的形式。下位机硬件部分选用AT89C51单片机为核心,主要由土壤湿度传感器,信号处理电路,显示电路,输出控制电路,故障报警电路等组成,软件选用汇编语言编程。上位机选用586型以上PC机,通过MAX232芯片实现同下位机的电平转换功能,上下位机之间通过串行通信方式进行数据的双向传输,软件选用VB高级编程语言以建立友好的人机界面。系统主要具有以下功能:可在PC机提供的人机对话界面上设置作物要求的土壤湿度相关参数;单片机可将土壤湿度传感器检测到的土壤湿度模拟量转换成数字量,显示于LED显示器上,同时单片机可采用串行通信方式将此湿度值传输到PC机上;PC机通过其内设程序计算出所需的灌水量和灌水时间,且显示于界面上,并将有关的灌水信息反馈给单片机,若需灌水,则单片机系统启动鸣音报警,发出灌水信号,并经放大驱动设备,开启电磁阀进行倒计时定时灌水,若不需灌水,即PC机上显示的灌水量和灌水时间均为0,系统不进行灌水。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值