查看: 119|回复: 0

[文章教程] 将分钟转化为XX天XX时XX分

[复制链接]
冰河非非 发表于 2019-7-6 17:28:46 | 显示全部楼层 |阅读模式
  1. Function fmtminute(n)
  2.     On Error Resume Next
  3.     Dim d, h , m, s, t

  4.     If Not IsNumeric(n) Then
  5.         fmtminute = ""
  6.         Exit Function
  7.     End If
  8.     d = n \ (24 * 60) '取整数部分得到天
  9.     h = (n - d * (24 * 60)) \ 60 '取整数部分得到小时
  10.     m = n - d * (24 * 60) - h * 60 '减天减时得到分钟数
  11.     ' s = n Mod 60
  12.     t = ""
  13.     If d > 0 Then t = t & d & "天"
  14.     If t <> "" Or h > 0 Then t = t & h & "小时"
  15.     If t <> "" Or m > 0 Then t = t & m & "分钟"
  16.     ' t = t & s & "秒"
  17.     fmtminute = t
  18. End Function
复制代码

您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号