公历转农历日期模块

使用后，可直接调用如下：
（本例将 2014年1月9日转换为农历）

Program www_fcode_cn
  implicit none
  external GetLunarInfo  !外部函数
  integer(4) GetLunarInfo, nowYear, nowMonth, nowDay
  integer(1) Lunar_month, Lunar_day
  character*22 strInfo
  integer i
   nowyear=2014; nowMonth=1; nowDay=9
  i =  GetLunarInfo(nowyear, nowmonth, nowday, Lunar_month, Lunar_day, strInfo)
  print*, Lunar_month, Lunar_day, strInfo
End Program www_fcode_cn

完整代码请通过本地下载
/download/fcode/GetLunarDate.zip