新人发帖求助 数字转换成时间

z781140182

问题比较简单 就是自己一直搞不懂

意思就是

500 秒  转换成  时分秒  这样的


就是数字 转换成  时分秒

易如意

1. 变量 数值 为 长整数型
   
2.         变量 秒 为 整数型
   
3.         变量 分 为 整数型
   
4.         变量 小时 为 整数型
   
5.         数值 = 到长整数 (编辑框1.内容)
   
6.         小时 = 取整 (数值 / 3600)
   
7.         数值 = 数值 - 小时 * 3600
   
8.         分 = 取整 (数值 / 60)
   
9.         秒 = 数值 - 分 * 60
   
10.         标签1.标题 = ""
    
11.         如果 小时 <> 0 则
    
12.                 标签1.标题 = 标签1.标题 & 小时 & "小时"
    
13.         结束 如果
    
14.         如果 分 <> 0 则
    
15.                 标签1.标题 = 标签1.标题 & 分 & "分钟"
    
16.         结束 如果
    
17.         如果 秒 <> 0 则
    
18.                 标签1.标题 = 标签1.标题 & 秒 & "秒"
    
19.         结束 如果

复制代码