TRAP error data...

[sal21]

dim data as date

data=trim(MyArray(I))

i can have n item array:
9/12/2021
or
12/04/20020
or
"" (blank=

in first case i need to format(dd/mm/yyyy)

in other case trap the error with data="31/12/9999"

[HansV]

Air code:

Code: Select all

    If Trim(MyArray(I)) = "" Then
        data = #12/31/9999"
    Else
        data = DateValue(Trim(MyArray(I)))
    End If

[sal21]

Air code:

Code: Select all

    If Trim(MyArray(I)) = "" Then
        data = #12/31/9999"
    Else
        data = DateValue(Trim(MyArray(I)))
    End If

tested work!

[LisaGreen]

Hi,

Apparently, testing for 0 length quicker. Not tested it though.

https://www.aivosto.com/articles/stringopt.html#empty

Lisa