首页 > 代码 > 常规代码 > 正文

代码

阅读排行

公历转农历日期模块
2014-01-20 16:56:15   来源:Fcode研讨团队   评论:0 点击:

本代码可将公历的年月日日期转换为农历的年月日日期。考虑闰年影响,使用F95新语法书写,代码工整,符合语法规范,可直接下载使用。

使用后,可直接调用如下:
(本例将 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

相关热词搜索:Fortran 公历 农历 日期

上一篇:彩色 Console 字体输出办法【仅适合VF系列编译器】
下一篇:为整数添加千分位符号函数

分享到: 收藏