如何把天数转换为年月日的格式

qq43142691

如题，
现在有一个数值为0-1000之间的双精度变量，，要求转为日期格式如：x年x月x日x时x分

比如：365.5   那么对应的应该就是  1年0月0日12小时0分

谢谢各位大佬指点

Awesome·LYG

基于精易模块 时间_秒到时分秒格式 修改的

  

子程序名	返回值类型	公开	备 注
时间_天到年月日时分秒格式	文本型		返回指定格式的时间文本
参数名	类 型	参考	可空	数组	备 注
天	小数型
格式	文本型				默认:y年d天h小时m分s秒
自动补零	逻辑型				不足2位数自动前面补0

变量名	类 型	静态	数组	备 注
局_天	整数型
局_小时	整数型
局_分	整数型
局_秒	整数型
局_位置	整数型
局_Time	文本型
局_年	整数型

局_秒 ＝ 天 × 86400
如果真 (是否为空 (格式) 或 格式 ＝ “”)
格式 ＝ “y年d天h小时m分s秒”

局_年 ＝ 局_秒 ÷ 31536000
局_天 ＝ (局_秒 ％ 31536000) ÷ 86400
局_小时 ＝ (局_秒 ％ 86400) ÷ 3600
局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60
局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60
局_位置 ＝ 倒找文本 (格式, “y”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_年)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

局_位置 ＝ 倒找文本 (格式, “d”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_天)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

局_位置 ＝ 倒找文本 (格式, “h”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_小时)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

局_位置 ＝ 倒找文本 (格式, “m”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_分)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

局_位置 ＝ 倒找文本 (格式, “s”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_秒)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

返回 (格式)

.版本 2<br /> <br /> .子程序 时间_天到年月日时分秒格式, 文本型, 公开, 返回指定格式的时间文本<br /> .参数 天, 小数型<br /> .参数 格式, 文本型, 可空, 默认:y年d天h小时m分s秒<br /> .参数 自动补零, 逻辑型, 可空, 不足2位数自动前面补0<br /> .局部变量 局_天, 整数型<br /> .局部变量 局_小时, 整数型<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_Time, 文本型<br /> .局部变量 局_年, 整数型<br /> <br /> 局_秒 ＝ 天 × 86400<br /> .如果真 (是否为空 (格式) 或 格式 ＝ “”)<br />     格式 ＝ “y年d天h小时m分s秒”<br /> .如果真结束<br /> <br /> 局_年 ＝ 局_秒 ÷ 31536000<br /> 局_天 ＝ (局_秒 ％ 31536000) ÷ 86400<br /> 局_小时 ＝ (局_秒 ％ 86400) ÷ 3600<br /> 局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60<br /> 局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60<br /> <br /> 局_位置 ＝ 倒找文本 (格式, “y”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_年)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> <br /> 局_位置 ＝ 倒找文本 (格式, “d”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_天)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> <br /> 局_位置 ＝ 倒找文本 (格式, “h”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_小时)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> <br /> 局_位置 ＝ 倒找文本 (格式, “m”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_分)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> <br /> 局_位置 ＝ 倒找文本 (格式, “s”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_秒)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> <br /> 返回 (格式)

算法艺术家

bbs.125.la/forum.php?mod=viewthread&tid=14848810&highlight

qq43142691

算法艺术家 发表于 2025-3-20 22:08
bbs.125.la/forum.php?mod=viewthread&tid=14848810&highlight

还有时分呢，这个要是能帮完善一下更好了。谢谢

guanji123

bbs.125.la/forum.php?mod=viewthread&tid=14848810&highlight