Verify consistent naming and byref passing of strings

josef-poetzl · Nov 15, 2023 · 500b891 · 500b891
1 parent 732f4e5
commit 500b891
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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)