ACCESS计算经过的时间.docVIP

计算经过的时间 计算经过的时间非常简单。Access 可以计算两个日期之间的时间间隔，甚至相隔数月或数年。不过，以所需方式显示结果值就要求一定的技巧和 Microsoft Visual Basic? for Applications (VBA)（Access 使用的编程语言）知识。 下面显示的 HoursAndMinutes 函数是将时间间隔设置为“小时:分钟”格式的自定义函数。它用来正确处理计算的时间结果，例如每周时间表报告可能用到的时间总和。您向该函数传递一个时间间隔或通过它进行“日期/时间”计算（例如 #12/24/2003 11:00PM# - #12/10/2003 6:00AM#），它就会返回正确格式的字符串（在本例中为 353:00）。若要指定通常形式的“日期/时间”字符串，请将日期和时间部分包括在 # 号内。为了明确，您应在提供文字字符串时尽量同时指定日期和时间部分，以避免错误。 Public Function HoursAndMinutes(interval As Variant) As String *********************************************************************** Function HoursAndMinutes(interval As Variant) As String Returns time interval formatted as a hours:minutes string *********************************************************************** Dim totalminutes As Long, totalseconds As Long Dim hours As Long, minutes As Long, seconds As Long If IsNull(interval) = True Then Exit Function hours = Int(CSng(interval * 24)) totalminutes = Int(CSng(interval * 1440)) 1440 = 24 hrs * 60 mins minutes = totalminutes Mod 60 totalseconds = Int(CSng(interval * 86400)) 86400 = 1440 * 60 secs seconds = totalseconds Mod 60 If seconds 30 Then minutes = minutes + 1 round up the minutes and If minutes 59 Then hours = hours + 1: minutes = 0 adjust hours HoursAndMinutes = hours : Format(minutes, 00) End Function HoursAndMinutes 函数通过分别计算小时、分钟、秒部分得出时间间隔的各个部分。从一个“日期/时间”值减去另一个“日期/时间”值时，时间间隔结果是一个双精度数值，小数点左边是天数，右边是剩余时间相对于一天的时间比例。若要得到小时部分结果，请将该部分值乘以 24。分钟部分值则是先将间隔乘以 1,440（一天的分钟数），得出该部分间隔值表示的总分钟数。然后，将结果数除以 60 以去掉在小时结果中已包括的分钟数，得到的余数就是需要的分钟数值（Mod 运算符用于进行此操作）。与此类似，先计算总秒数再除以一天的总秒数，得出的余数就是秒数值。 其余函数部分用于将结果取整，得出小时和分钟结果，组成结果字符串。 有时，您希望结果更为直白、易懂。下面列出了另一个函数，在输入的两个“日期/时间”值后，可返回形式如“10 days, 20 hours, 30 minutes, 40 seconds”的长字符串。 Public Function ElapsedTimeString(dateTimeStart As Date, dateTimeEnd As Date) As String ********************************************************************************************** Function ElapsedTimeString(dateTimeStart As Date, dateTimeEnd As Date) As String Returns the time elapsed betwee