From 08abadc0ee563a791e53c8827cab6318ae277530 Mon Sep 17 00:00:00 2001 From: Festiis Date: Wed, 10 Jan 2024 12:04:48 +0100 Subject: [PATCH] Add region support type double --- Version Control.accda.src/modules/modUtcConverter.bas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Version Control.accda.src/modules/modUtcConverter.bas b/Version Control.accda.src/modules/modUtcConverter.bas index 2e45c59e..16c8ecb9 100644 --- a/Version Control.accda.src/modules/modUtcConverter.bas +++ b/Version Control.accda.src/modules/modUtcConverter.bas @@ -815,12 +815,12 @@ End Function Private Function ConvTimeUTC(ByRef InVal As String) As Date Dim varParts As Variant - Dim InValSeconds As String + Dim InValSeconds As Double If InVal Like "##:##:##.###Z" Then ' Use high-performance conversion to date varParts = Split(InVal, ":") - InValSeconds = Mid(varParts(2), 1, Len(varParts(2)) - 1) + InValSeconds = Val(Mid(varParts(2), 1, Len(varParts(2)) - 1)) ConvTimeUTC = TimeSerialDbl(varParts(0), varParts(1), InValSeconds) Else ' Fall back to slower RegEx function @@ -866,7 +866,7 @@ Private Function ConvTimeUTC2(ByRef InVal As String) As Date If Not (IsEmpty(.SubMatches(3)) Or IsEmpty(.SubMatches(5)) Or NzEmpty(.SubMatches(3), ISO8601UTCTimeZone) = ISO8601UTCTimeZone) Then _ dblMinutes = dblMinutes - CDbl(NzEmpty(.SubMatches(3), vbNullString) & NzEmpty(.SubMatches(5), vbNullString)) - dblSeconds = CDbl(NzEmpty(.SubMatches(2), vbNullString)) + dblSeconds = Val(NzEmpty(.SubMatches(2), vbNullString)) End With ConvTimeUTC2 = TimeSerialDbl(dblHours, dblMinutes, dblSeconds)