STILL ON DATE transform

[sal21]

VALORE="Il file è aggiornato al 7 febbraio 2024."

I i need to transform in (mydate as date) 07/02/2024

VALORE as strng dim

naturally i can have also:

31 dicembre 2024
3 marzo 2024

ecc...

On your last post...

is this correct:

Code: Select all

Private Sub DATA_GMT(VALORE)

    'DATA_GMT
    Dim V() As String, DATA_AGG As Date
    Dim D As Long, M As Long, Y As Long
    V = Split(VALORE)
    D = V(0)
    M = (InStr("gennaiofebbraiomarzoaprilemaggiogiugnoluglioagostosettembreottobrenovembredicembre", V(1)) + 2) \ 4
    Y = V(2)
    DATA_AGG = DateSerial(Y, M, D)
    'DATA_GMT

End Sub

[HansV]

Does this work?

Code: Select all

    Dim strDate As String
    strDate = Mid(VALORE, InStrRev(VALORE, " al ") + 4)
    strDate = Replace(strDate, ".", "")
    MyDate = DateValue(strDate)

[sal21]

Does this work?

Code: Select all

    Dim strDate As String
    strDate = Mid(VALORE, InStrRev(VALORE, " al ") + 4)
    strDate = Replace(strDate, ".", "")
    MyDate = DateValue(strDate)

GREAT!
TKS