From 500b891d1d91e841de71ca2b2b3316241a2f9d4a Mon Sep 17 00:00:00 2001 From: Hecon5 <54177882+hecon5@users.noreply.github.com> Date: Wed, 15 Nov 2023 12:57:37 -0500 Subject: [PATCH] Verify consistent naming and byref passing of strings --- Version Control.accda.src/modules/modUtcConverter.bas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Version Control.accda.src/modules/modUtcConverter.bas b/Version Control.accda.src/modules/modUtcConverter.bas index 77015a02..2e45c59e 100644 --- a/Version Control.accda.src/modules/modUtcConverter.bas +++ b/Version Control.accda.src/modules/modUtcConverter.bas @@ -812,16 +812,16 @@ End Function ' Purpose : Attempt a higher performance conversion first, then fall back to RegEx. '--------------------------------------------------------------------------------------- ' -Private Function ConvTimeUTC(ByVal InVal As String) As Date +Private Function ConvTimeUTC(ByRef InVal As String) As Date Dim varParts As Variant - Dim SecondsInPart As String + Dim InValSeconds As String If InVal Like "##:##:##.###Z" Then ' Use high-performance conversion to date varParts = Split(InVal, ":") - SecondsInPart = Mid(varParts(2), 1, Len(varParts(2)) - 1) - ConvTimeUTC = TimeSerialDbl(varParts(0), varParts(1), SecondsInPart) + InValSeconds = Mid(varParts(2), 1, Len(varParts(2)) - 1) + ConvTimeUTC = TimeSerialDbl(varParts(0), varParts(1), InValSeconds) Else ' Fall back to slower RegEx function ConvTimeUTC = ConvTimeUTC2(InVal)