在中午12点前录入的数据计入到前一天工作量的解决方法

时　间:2018-12-25 08:30:17
作　者:伊西军   ID：63090  城市：临汾
摘　要:前一日的中午十二点到今天的中午十二点为一个生产周期的问题，该如何解决
正　文:

问题描述:

    今天遇到一个问题：日期时间一般都是从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

示   例:

点击下载此附件

图   示: