问题描述:
今天遇到一个问题:日期时间一般都是从0:00-24:00,能否设置为上一个12:00到下一个12:00为1天?想把上一个12:00到下一个12:00作为1天的生产周期,方便在中午12:00根据实际生产情况,确认下面一天的生产计划。如果在晚上0:00确认就不方便了。
解决方法:
'如果参数 为中午12点之前,返回前一天的日期;如果为12点之后,则返回的是当日的日期
'调用方法:ConvertDate(时间)
'例:select ConvertDate(录入时间) as 计入工作量的日期 from 表名
Function ConvertDate(datetime As Date) As Date
If Left(Format(datetime, "hh:nn:ss"), 2) < 12 Then
ConvertDate = CDate(Format(DateAdd("d", -1, datetime), "yyyy-mm-dd"))
Else
ConvertDate = CDate(Format(datetime, "yyyy-mm-dd"))
End If
End Function
示 例:
点击下载此附件
图 示: