z781140182 发表于 2018-9-19 22:40:31

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




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

意思就是

500 秒转换成时分秒这样的


就是数字 转换成时分秒



易如意 发表于 2018-9-19 22:40:32

变量 数值 为 长整数型
      变量 秒 为 整数型
      变量 分 为 整数型
      变量 小时 为 整数型
      数值 = 到长整数 (编辑框1.内容)
      小时 = 取整 (数值 / 3600)
      数值 = 数值 - 小时 * 3600
      分 = 取整 (数值 / 60)
      秒 = 数值 - 分 * 60
      标签1.标题 = ""
      如果 小时 <> 0 则
                标签1.标题 = 标签1.标题 & 小时 & "小时"
      结束 如果
      如果 分 <> 0 则
                标签1.标题 = 标签1.标题 & 分 & "分钟"
      结束 如果
      如果 秒 <> 0 则
                标签1.标题 = 标签1.标题 & 秒 & "秒"
      结束 如果
页: [1]
查看完整版本: 新人发帖求助 数字转换成时间