- 积分
- 852
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-2-24
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 香酥扇贝 于 2017-1-16 08:33 编辑
分享一下我之前写的一个时间日期计算程序模块,希望有用。
写这个程序是因为给国家气象中心做业务实时运行的软件时经常涉及到时间日期的计算。而之前在网上搜到的一个别人的程序在运行时出错了,所以我决定自己重新写一个,花了大半天时间。目前软件运行了半年多一切正常,申请了软件著作权。如果有疑问和建议欢迎批评指正。
最近在使用过程中发现程序存在问题,经过各种测试,程序的bug已修复,现为最终修订版,亲们可放心使用,如仍发现问题欢迎反馈!(2017.1.16)
使用范例:
include 'modDateTime.f90'
Program main
use modDateTime
implicit none
integer::Year=2014,Mn=3,Dy=20,Hr=23,Ayear,Amn,Ady,Ahr
call subAddTime(Year,Mn,Dy,Hr,-1,'dy',Ayear,Amn,Ady,Ahr) ! 退后一天
print *,Ayear,Amn,Ady,Ahr
End program
具体的使用方法见程序内部说明~
modDateTime.f90
(8.73 KB, 下载次数: 258)
|
|