以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  工时计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103661)
--  作者：syjylyq
--  发布时间：2017/7/13 18:08:00
--  工时计算
请教一个TIME属性的列计算工时，按照半小时为准。
小于20分钟前的数据去掉分钟数，20~45分钟之间的算30分钟，大于45分钟的四舍五入到1小时，请问代码怎么写？
--  作者：有点甜
--  发布时间：2017/7/13 18:21:00
--  

参考

 

Dim d As Date = "3:48"
Dim m As Integer = 0
If d.Minute >= 20 AndAlso d.Minute < 45 Then
    d = new Date(d.Year, d.Month, d.Day, d.Hour, 30, 0)
ElseIf d.Minute < 20 Then
   
ElseIf d.Minute >= 45 Then
    d = new Date(d.Year, d.Month, d.Day, d.Hour, 0, 0).AddHours(1)
End If

msgbox(d)
--  作者：syjylyq
--  发布时间：2017/7/14 7:46:00
--  
谢谢