VBA有效工时计算
Type ClassInfo start_time As String core_start_time As String end_time As String noon_break_start_time As String noon_break_end_time As String evening_break_end_time As String End Type Private Function get_class_info(class As Integer) As ClassInfo '获取班次信息 Dim class_info As ClassInfo Select Case class Case 0 class_info.start_time = "08:30:00" class_info.core_start_time = "09:30:00" class_info.end_time = "18:00:00" class_info.noon_break_start_time = "12:00:00" class_info.noon_break_end_time = "13:30:00" class_info.evening_break_end_time = "18:30:00" Case 1 class_info.start_time = "08:00:00"