大佬们，数字怎么转换成时间··

cy2xy

比如有个数 888  怎么转换成时间  888为小时  24小时为一天    30天为1个月  12个月为1年   

888是多少年多少月多少天多少日

qvbydc

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 输入的数字, 整数型
.局部变量 月, 双精度小数型
.局部变量 年, 双精度小数型
.局部变量 多少年, 整数型
.局部变量 日, 双精度小数型

输入的数字 ＝ 到整数 (编辑框1.内容)
月 ＝ 输入的数字 ÷ 30
调试输出 (“月1”, 月)
年 ＝ 月 ÷ 12
.如果真 (年 ≥ 1)
    多少年 ＝ 绝对取整 (年)
    调试输出 (“年”, 多少年)
.如果真结束
.如果真 (月 ≥ 1)
    月 ＝ 绝对取整 ((年 － 多少年) × 12)
    调试输出 (“月2”, 月)
.如果真结束
日 ＝ 输入的数字 ％ 30
调试输出 (到文本 (多少年) ＋ “ 年 ” ＋ 到文本 (月) ＋ “ 月 ” ＋ 到文本 (日) ＋ “ 天”)
标签1.标题 ＝ 到文本 (多少年) ＋ “ 年 ” ＋ 到文本 (月) ＋ “ 月 ” ＋ 到文本 (日) ＋ “ 天”

fireandice

除法，取余

算法艺术家

  

子程序名	返回值类型	公开	备 注
时间长度到文本	文本型		返回一个文本，单一的时间单位换算成 日，时，分，秒。例：93500秒 转换成 1日1时58分20秒
参数名	类 型	参考	可空	数组	备 注
时长	整数型
时间单位	整数型				4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒  （年和月有误差）
返回日	整数型
返回时	整数型
返回分	整数型
返回秒	整数型
日时分秒分隔符	文本型				可空 默认为文字日时分秒  也可以用： - / 等

变量名	类 型	静态	数组	备 注
剩余秒数A	整数型
剩余秒数B	整数型
剩余天	整数型
剩余小时	整数型
剩余分钟	整数型
剩余秒	整数型
返回时间	文本型
负数	逻辑型

如果真 (时间单位 ＝ #秒 )
剩余秒数A ＝ 时长
如果真 (时间单位 ＝ #分钟 )
剩余秒数A ＝ 时长 × 60
如果真 (时间单位 ＝ #小时 )
剩余秒数A ＝ 时长 × 3600
如果真 (时间单位 ＝ #日 )
剩余秒数A ＝ 时长 × 86400
如果真 (时间单位 ＝ #周 )
剩余秒数A ＝ 时长 × 604800
如果真 (剩余秒数A ＝ 0)
判断 (是否为空 (日时分秒分隔符) ＝ 真)
返回 (“0秒”)
返回 (“00” ＋ 日时分秒分隔符 ＋ “00” ＋ 日时分秒分隔符 ＋ “00”)


如果真 (剩余秒数A ＜ 0)
剩余秒数A ＝ 剩余秒数A × -1
负数 ＝ 真
剩余秒数B ＝ 剩余秒数A ％ 86400
剩余天 ＝ (剩余秒数A － 剩余秒数B) ÷ 86400
剩余秒数A ＝ 剩余秒数B
剩余秒数B ＝ 剩余秒数A ％ 3600
剩余小时 ＝ (剩余秒数A － 剩余秒数B) ÷ 3600
剩余秒数A ＝ 剩余秒数B
剩余秒数B ＝ 剩余秒数A ％ 60
剩余分钟 ＝ (剩余秒数A － 剩余秒数B) ÷ 60
剩余秒 ＝ 剩余秒数B
' 剩余天 ＝ 剩余秒数A ＼ 3600 × 24
' 剩余小时 ＝ 剩余秒数A ＼ 3600 ％ 24
' 剩余分钟 ＝ 剩余秒数A ＼ 60 ％ 60
' 剩余秒 ＝ 剩余秒数A ％ 60
判断 (是否为空 (日时分秒分隔符) ＝ 真)
如果真 (剩余天 ≠ 0)
返回时间 ＝ 到文本 (剩余天) ＋ “日”
返回日 ＝ 剩余天
如果真 (剩余小时 ≠ 0)
返回时间 ＝ 返回时间 ＋ 到文本 (剩余小时) ＋ “时”
返回时 ＝ 剩余小时
如果真 (剩余分钟 ≠ 0)
返回时间 ＝ 返回时间 ＋ 到文本 (剩余分钟) ＋ “分”
返回分 ＝ 剩余分钟
如果真 (剩余秒 ≠ 0)
返回时间 ＝ 返回时间 ＋ 到文本 (剩余秒) ＋ “秒”
返回秒 ＝ 剩余秒



如果真 (剩余天 ≠ 0)
返回时间 ＝ 到文本 (剩余天) ＋ “日 ”
返回日 ＝ 剩余天

返回时间 ＝ 返回时间 ＋ 文本_自动补零 (到文本 (剩余小时), 2) ＋ 日时分秒分隔符
返回时 ＝ 剩余小时
返回时间 ＝ 返回时间 ＋ 文本_自动补零 (到文本 (剩余分钟), 2) ＋ 日时分秒分隔符
返回分 ＝ 剩余分钟
返回时间 ＝ 返回时间 ＋ 文本_自动补零 (到文本 (剩余秒), 2)
返回秒 ＝ 剩余秒

判断 (负数 ＝ 真)
返回 (“-” ＋ 返回时间)
返回 (返回时间)

.版本 2<br /> <br /> .子程序 时间长度到文本, 文本型, 公开, 返回一个文本，单一的时间单位换算成 日，时，分，秒。例：93500秒 转换成 1日1时58分20秒<br /> .参数 时长, 整数型<br /> .参数 时间单位, 整数型, ,  4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒  （年和月有误差）<br /> .参数 返回日, 整数型, 参考 可空<br /> .参数 返回时, 整数型, 参考 可空<br /> .参数 返回分, 整数型, 参考 可空<br /> .参数 返回秒, 整数型, 参考 可空<br /> .参数 日时分秒分隔符, 文本型, 可空, 可空 默认为文字日时分秒  也可以用： - / 等<br /> .局部变量 剩余秒数A, 整数型<br /> .局部变量 剩余秒数B, 整数型<br /> .局部变量 剩余天, 整数型<br /> .局部变量 剩余小时, 整数型<br /> .局部变量 剩余分钟, 整数型<br /> .局部变量 剩余秒, 整数型<br /> .局部变量 返回时间, 文本型<br /> .局部变量 负数, 逻辑型<br /> <br /> .如果真 (时间单位 ＝ #秒)<br />     剩余秒数A ＝ 时长<br /> .如果真结束<br /> .如果真 (时间单位 ＝ #分钟)<br />     剩余秒数A ＝ 时长 × 60<br /> .如果真结束<br /> .如果真 (时间单位 ＝ #小时)<br />     剩余秒数A ＝ 时长 × 3600<br /> .如果真结束<br /> .如果真 (时间单位 ＝ #日)<br />     剩余秒数A ＝ 时长 × 86400<br /> .如果真结束<br /> .如果真 (时间单位 ＝ #周)<br />     剩余秒数A ＝ 时长 × 604800<br /> .如果真结束<br /> .如果真 (剩余秒数A ＝ 0)<br />     .判断开始 (是否为空 (日时分秒分隔符) ＝ 真)<br />         返回 (“0秒”)<br />     .默认<br />         返回 (“00” ＋ 日时分秒分隔符 ＋ “00” ＋ 日时分秒分隔符 ＋ “00”)<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (剩余秒数A ＜ 0)<br />     剩余秒数A ＝ 剩余秒数A × -1<br />     负数 ＝ 真<br /> .如果真结束<br /> 剩余秒数B ＝ 剩余秒数A ％ 86400<br /> 剩余天 ＝ (剩余秒数A － 剩余秒数B) ÷ 86400<br /> 剩余秒数A ＝ 剩余秒数B<br /> 剩余秒数B ＝ 剩余秒数A ％ 3600<br /> 剩余小时 ＝ (剩余秒数A － 剩余秒数B) ÷ 3600<br /> 剩余秒数A ＝ 剩余秒数B<br /> 剩余秒数B ＝ 剩余秒数A ％ 60<br /> 剩余分钟 ＝ (剩余秒数A － 剩余秒数B) ÷ 60<br /> 剩余秒 ＝ 剩余秒数B<br /> <br /> ' 剩余天 ＝ 剩余秒数A ＼ 3600 × 24<br /> ' 剩余小时 ＝ 剩余秒数A ＼ 3600 ％ 24<br /> ' 剩余分钟 ＝ 剩余秒数A ＼ 60 ％ 60<br /> ' 剩余秒 ＝ 剩余秒数A ％ 60<br /> <br /> .判断开始 (是否为空 (日时分秒分隔符) ＝ 真)<br />     .如果真 (剩余天 ≠ 0)<br />         返回时间 ＝ 到文本 (剩余天) ＋ “日”<br />         返回日 ＝ 剩余天<br />     .如果真结束<br />     .如果真 (剩余小时 ≠ 0)<br />         返回时间 ＝ 返回时间 ＋ 到文本 (剩余小时) ＋ “时”<br />         返回时 ＝ 剩余小时<br />     .如果真结束<br />     .如果真 (剩余分钟 ≠ 0)<br />         返回时间 ＝ 返回时间 ＋ 到文本 (剩余分钟) ＋ “分”<br />         返回分 ＝ 剩余分钟<br />     .如果真结束<br />     .如果真 (剩余秒 ≠ 0)<br />         返回时间 ＝ 返回时间 ＋ 到文本 (剩余秒) ＋ “秒”<br />         返回秒 ＝ 剩余秒<br />     .如果真结束<br /> <br /> .默认<br /> <br />     .如果真 (剩余天 ≠ 0)<br />         返回时间 ＝ 到文本 (剩余天) ＋ “日 ”<br />         返回日 ＝ 剩余天<br />     .如果真结束<br /> <br />     返回时间 ＝ 返回时间 ＋ 文本_自动补零 (到文本 (剩余小时), 2) ＋ 日时分秒分隔符<br />     返回时 ＝ 剩余小时<br />     返回时间 ＝ 返回时间 ＋ 文本_自动补零 (到文本 (剩余分钟), 2) ＋ 日时分秒分隔符<br />     返回分 ＝ 剩余分钟<br />     返回时间 ＝ 返回时间 ＋ 文本_自动补零 (到文本 (剩余秒), 2)<br />     返回秒 ＝ 剩余秒<br /> <br /> .判断结束<br /> <br /> .判断开始 (负数 ＝ 真)<br />     返回 (“-” ＋ 返回时间)<br /> .默认<br />     返回 (返回时间)<br /> .判断结束

kll545012

888 ÷ 24 = 37天（余0小时）
37 ÷ 30 = 1个月（余7天）
1 ÷ 12 = 0年（余1个月）  纯粹的数学计算

深寒

.版本 2
.支持库 spec

.子程序 _按钮1_被单击

调试输出 (时间数值转文本 (到数值 (编辑框1.内容)))

.子程序 时间数值转文本, 文本型
.参数 数值, 整数型
.局部变量 月, 整数型
.局部变量 日, 整数型

月 ＝ 取整 ((数值 ％ 365) ÷ 30)
日 ＝ 取整 (数值 ％ 365 ％ 30)
返回 (选择 (取整 (数值 ÷ 365) ＝ 0, “”, 到文本 (取整 (数值 ÷ 365)) ＋ “年”) ＋ 选择 (月 ＝ 0, “”, 到文本 (月) ＋ “月”) ＋ 到文本 (日) ＋ “天”)