Extract date from string

[luca90]

use this

public function getit1cached(vsource as string, vindex as integer, optional vsep as string = vbtab) as string
    static vstrings() as string '2026-07-03
    static prevsource as string
    
    if instr(vsource, vsep) > 0 then
        if vsource <> prevsource then
            prevsource = vsource
            vstrings = split(vsource, vsep)
        end if
        if vindex > ubound(vstrings) then
            exit function
        end if
        getit1cached = vstrings(vindex)
        if len(getit1cached) > 200 then
            getit1cached = trim(getit1cached)
        end if
    end if
end function 'tks to wqweto

private function month2num(vmonth as string) as integer
    month2num = (instr("jan feb mar apr may jun jul aug sep oct nov dic", left(lcase(vmonth), 3)) + 3) / 4
end function

sub main()
    dim dt as string
    dim myvar  as string
    myvar="fri, 05 jun 2026 08:36:39 gmt"
    dt = getit1cached(myvar, 1, " ") + "/" + format(month2num(getit1cached(myvar, 2," ")), "00") + "/" + getit1cached(myvar, 3, " ")
end sub

tks bro