vbscript如何将分钟转换为一天,小时和分钟的格式

VAAA

嗨,我有一个报告,用于vbscript对我的字段进行逻辑分析。

该报告的字段为总分钟数,并具有较大的值,例如:1950分钟等。

我需要更新其他字段,以便将这些分钟转换为可读格式,例如4天2小时30分钟。我的工作时间是8个小时,因为这是我的劳动节。

因此16小时= 2天,依此类推。

现在我的逻辑是这样的:

 ' get the total minutes
total = sum(lateminutes)

' divide the minutes by 60 to get hours
hours = Int(total) / 60 

' get the division difference and convert it to minutes
minutes = Round((hours - Int(hours)) * 60)

' convert my hours to days by dividing into 8 (8 hours per day)
days = Int(hours) / 8 

if Int(days) > 0 then
text = Cstr(Int(days)) & " day(s)" & " "
end if

if Int(hours) > 0 then
text = text & Cstr(Int(hours)) & " hours" & " "
endif

if Int(minutes) > 0 then
text = text & minutes & " min"
endif

testfield.Text = text 

但是我没有得到正确的结果,有任何线索吗?

霍克·埃克哈德

用整数除法()计算较大的单位,然后从输入值中减去较大单位“使用”的分钟数。在代码中:

Option Explicit

Const cnMWD = 480 ' 8 * 60 mins in 8 hour working day
Const cnMWH =  60 ' 60 mins in 60 min working hour

Dim otp : otp = Array(0, "day(s)", 0, "hour(s)", 0, "mins")
Dim m, mm
For Each m In Array(59, 61, 479, 480, 485, 545, 2060)
    mm     = m
    otp(0) = m \ cnMWD
    m      = m - otp(0) * cnMWD
    otp(2) = m \ cnMWH
    m      = m - otp(2) * cnMWH
    otp(4) = m
    WScript.Echo mm, "=>", Join(otp)
Next

输出:

cscript 28798880.vbs
59 => 0 day(s) 0 hour(s) 59 mins
61 => 0 day(s) 1 hour(s) 1 mins
479 => 0 day(s) 7 hour(s) 59 mins
480 => 1 day(s) 0 hour(s) 0 mins
485 => 1 day(s) 0 hour(s) 5 mins
545 => 1 day(s) 1 hour(s) 5 mins
2060 => 4 day(s) 2 hour(s) 20 mins

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何将分钟转换为小时和分钟(无天)

来自分类Dev

如何将分钟转换为小时和分钟(无天)

来自分类Dev

如何将numpy数组转换为天,小时,分钟?

来自分类Dev

如何将毫秒转换为天/小时/分钟

来自分类Dev

将分钟转换为天,小时,分钟和秒

来自分类Dev

java如何将日期转换为小时和分钟

来自分类Dev

如何将“ 1天,14小时,16分钟”之类的文本转换为时间格式?

来自分类Dev

将Groovy中的日期转换为小时和分钟格式

来自分类Dev

如何将秒转换为小时分钟和秒?

来自分类Dev

如何将分钟格式化为小时和分钟,但仅在> 60分钟时才显示小时?

来自分类Dev

将小时:分钟转换为分钟:秒

来自分类Dev

在R中将小数转换为天,分钟,小时和秒

来自分类Dev

将秒转换为天:小时:分钟:秒

来自分类Dev

SQL Server,将秒转换为分钟,小时,天

来自分类Dev

SQL Server,将秒转换为分钟,小时,天

来自分类Dev

将结束日期转换为剩余的天,小时,分钟,秒

来自分类Dev

将天转换为小时:分钟:秒 java

来自分类Dev

如何使用moment.js将小时和分钟转换为分钟?

来自分类Dev

如何将日/月/年的小时:分钟:秒转换为要插入到MySQL PHP中的格式

来自分类Dev

使用Moment库,将分钟转换为天数小时和分钟的格式(单数还是复数格式)的正确语法是什么?

来自分类Dev

如何将一天中的几分钟添加到Python列表中?

来自分类Dev

在 vb 中将总分钟数转换为天、小时、分钟

来自分类Dev

如何在PHP和负数分钟中将分钟转换为小时和分钟?

来自分类Dev

实时将秒转换为小时和分钟

来自分类Dev

PHP:将秒转换为分钟和小时

来自分类Dev

将浮点值转换为小时和分钟

来自分类Dev

SSRS:将小数转换为小时和分钟

来自分类Dev

将秒转换为小时,分钟和秒?

来自分类Dev

将秒转换为小时,分钟和秒

Related 相关文章

  1. 1

    如何将分钟转换为小时和分钟(无天)

  2. 2

    如何将分钟转换为小时和分钟(无天)

  3. 3

    如何将numpy数组转换为天,小时,分钟?

  4. 4

    如何将毫秒转换为天/小时/分钟

  5. 5

    将分钟转换为天,小时,分钟和秒

  6. 6

    java如何将日期转换为小时和分钟

  7. 7

    如何将“ 1天,14小时,16分钟”之类的文本转换为时间格式?

  8. 8

    将Groovy中的日期转换为小时和分钟格式

  9. 9

    如何将秒转换为小时分钟和秒?

  10. 10

    如何将分钟格式化为小时和分钟,但仅在> 60分钟时才显示小时?

  11. 11

    将小时:分钟转换为分钟:秒

  12. 12

    在R中将小数转换为天,分钟,小时和秒

  13. 13

    将秒转换为天:小时:分钟:秒

  14. 14

    SQL Server,将秒转换为分钟,小时,天

  15. 15

    SQL Server,将秒转换为分钟,小时,天

  16. 16

    将结束日期转换为剩余的天,小时,分钟,秒

  17. 17

    将天转换为小时:分钟:秒 java

  18. 18

    如何使用moment.js将小时和分钟转换为分钟?

  19. 19

    如何将日/月/年的小时:分钟:秒转换为要插入到MySQL PHP中的格式

  20. 20

    使用Moment库,将分钟转换为天数小时和分钟的格式(单数还是复数格式)的正确语法是什么?

  21. 21

    如何将一天中的几分钟添加到Python列表中?

  22. 22

    在 vb 中将总分钟数转换为天、小时、分钟

  23. 23

    如何在PHP和负数分钟中将分钟转换为小时和分钟?

  24. 24

    实时将秒转换为小时和分钟

  25. 25

    PHP:将秒转换为分钟和小时

  26. 26

    将浮点值转换为小时和分钟

  27. 27

    SSRS:将小数转换为小时和分钟

  28. 28

    将秒转换为小时,分钟和秒?

  29. 29

    将秒转换为小时,分钟和秒

热门标签

归档