将分钟转化为XX天XX时XX分

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

复制代码