To learn about creating queries, see Introduction to queries. 'Debug.Access for Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 More. Private Function NumChar(ByVal sInput As String, ByVal sChar As String)ĭim dblStart As Double, dblEnd As Double, dblTimeTaken As Double VarTemp = Replace(varTemp, "s", Format(lngDiffSeconds, sFormat)) SFormat = String(NumChar(varTemp, "s"), "0") If booCalcSeconds And (lngDiffSeconds > 0 Or ShowZero) Then VarTemp = Replace(varTemp, "n", Format(lngDiffMinutes, sFormat)) SFormat = String(NumChar(varTemp, "n"), "0") If booCalcMinutes And (lngDiffMinutes > 0 Or ShowZero) Then VarTemp = Replace(varTemp, "h", Format(lngDiffHours, sFormat)) SFormat = String(NumChar(varTemp, "h"), "0") If booCalcHours And (lngDiffHours > 0 Or ShowZero) Then VarTemp = Replace(varTemp, "d", lngDiffDays) If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then VarTemp = Replace(varTemp, "w", lngDiffWeeks) If booCalcWeeks And (lngDiffWeeks > 0 Or ShowZero) Then VarTemp = Replace(varTemp, "m", lngDiffMonths) If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then VarTemp = Replace(varTemp, "y", lngDiffYears) IIf(Format$(Date1, "mmddhhnnss") 0 Or ShowZero) Then LngDiffYears = Abs(DateDiff("yyyy", Date1, Date2)) - _ 'If necessary, swap the dates, to ensure thatīooCalcYears = (InStr(1, Interval, "y") > 0)īooCalcMonths = (InStr(1, Interval, "m") > 0)īooCalcDays = (InStr(1, Interval, "d") > 0)īooCalcHours = (InStr(1, Interval, "h") > 0)īooCalcMinutes = (InStr(1, Interval, "n") > 0)īooCalcSeconds = (InStr(1, Interval, "s") > 0)īooCalcWeeks = (InStr(1, Interval, "w") > 0) If Not (IsDate(Date2)) Then Exit Function If Not (IsDate(Date1)) Then Exit Function 'Check that valid dates have been entered If InStr(1, INTERVALS, Mid$(Interval, intCounter, 1)) = 0 Then If InStr("/: ", Mid(Interval, intCounter, 1)) > 0 Then 'Check that Interval contains only valid characters 'take into account the format that the user wants. ' will be "1 month" - not "0 years 1 month". ' elements = 0 & 1 respectively, the output string
' For example, with ShowZero = False, Interval = "ym", ' omitted, no zero-value elements are displayed. ' If ShowZero is True, and an output element is zero, it ' not "y", the function adds the value of the year ' The function compensates for the lack of any intervals ' If Date1 is greater than Date2, the result will ' the two dates, depending on the display interval ' months, days, hours, minutes & seconds between ' On no error: Variant containing the number of years, ' ShowZero: Boolean to select showing zero elements 'Inputs: Interval: Intervals to be displayed (a string) ' months, days, hours, minutes and seconds between 'Description: This function calculates the number of years, 'Author: ? Copyright 2001 Pacific Database Pty Limited Optional ShowZero As Boolean = True) As Variant Public Function Diff3Dates(Interval As String, Date1 As Variant, Date2 As Variant, _
0 kommentar(er)
