求用易语言写的,把秒换算成多少年多少天多少时多少分多少秒!例如:31539729秒等于1年0天1时
求用易语言写的,把秒换算成多少年多少天多少时多少分多少秒!例如:31539729秒等于1年0天1时2分9秒谢谢...
求用易语言写的,把秒换算成多少年多少天多少时多少分多少秒!例如:31539729秒等于1年0天1时2分9秒
谢谢 展开
谢谢 展开
展开全部
.版本 2
.子程序 秒转年时分秒, 文本型
.参数 参_秒, 整数型
.局部变量 年, 整数型
.局部变量 天, 整数型
.局部变量 时, 整数型
.局部变量 分, 整数型
.局部变量 秒, 整数型
年 = 参_秒 \ 31536000
参_秒 = 参_秒 % 31536000
天 = 参_秒 \ 86400
参_秒 = 参_秒 % 86400
时 = 参_秒 \ 3600
参_秒 = 参_秒 % 3600
分 = 参_秒 \ 60
秒 = 参_秒 % 60
返回 (到文本 (年) + “年” + 到文本 (天) + “天” + 到文本 (时) + “时” + 到文本 (分) + “分” + 到文本 (秒) + “秒”)
.子程序 秒转年时分秒, 文本型
.参数 参_秒, 整数型
.局部变量 年, 整数型
.局部变量 天, 整数型
.局部变量 时, 整数型
.局部变量 分, 整数型
.局部变量 秒, 整数型
年 = 参_秒 \ 31536000
参_秒 = 参_秒 % 31536000
天 = 参_秒 \ 86400
参_秒 = 参_秒 % 86400
时 = 参_秒 \ 3600
参_秒 = 参_秒 % 3600
分 = 参_秒 \ 60
秒 = 参_秒 % 60
返回 (到文本 (年) + “年” + 到文本 (天) + “天” + 到文本 (时) + “时” + 到文本 (分) + “分” + 到文本 (秒) + “秒”)
追问
原来如此,非常感谢!
我用的“绝对取整”
年=绝对取整(参秒/31536000)
不过‘\’更简便些!谢谢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询