Extract date from string

I just have myvar="gi_db_comuni-2026-07-10-b893f.zip"

how to get date?

note:
before and after the date are lenght variable

Code:

---

Sub main()
Dim myvar As String
Dim t() As String
Dim regex As RegExp
Dim mc As MatchCollection
Dim m As Match
Dim mydate As Date
   
    'First way
    myvar = "gi_db_comuni-2026-07-10-b893f.zip"
    t = Split(myvar, "-")
    mydate = DateSerial(CInt(t(1)), CInt(t(2)), CInt(t(3)))
    Debug.Print mydate
   
    'Second way - needs reference to VBScript Regular Expressions
    Set regex = New RegExp
    regex.Pattern = "\.*?-(\d{4}-\d{2}-\d{2})\.*"
    regex.IgnoreCase = True
    regex.Global = True
    Set mc = regex.Execute(myvar)
    If mc.Count = 1 Then
        Set m = mc.Item(0)
        t = Split(m.SubMatches(0), "-")
        mydate = DateSerial(CInt(t(0)), CInt(t(1)), CInt(t(2)))
    End If
End Sub

---

Quote:

---

Originally Posted by zvoni

Code:

---

sub main()
dim myvar as string
dim t() as string
dim regex as regexp
dim mc as matchcollection
dim m as match
dim mydate as date
   
    'first way
    myvar = "gi_db_comuni-2026-07-10-b893f.zip"
    t = split(myvar, "-")
    mydate = dateserial(cint(t(1)), cint(t(2)), cint(t(3)))
    debug.print mydate
   
    'second way - needs reference to vbscript regular expressions
    set regex = new regexp
    regex.pattern = "\.*?-(\d{4}-\d{2}-\d{2})\.*"
    regex.ignorecase = true
    regex.global = true
    set mc = regex.execute(myvar)
    if mc.count = 1 then
        set m = mc.item(0)
        t = split(m.submatches(0), "-")
        mydate = dateserial(cint(t(0)), cint(t(1)), cint(t(2)))
    end if
end sub

---

---

Dim regex As RegExp

error:
USED DEFINED NOT DEFINED