Public Function FechaTexto(celda As Range) As Date
'created by @dj.vivanco 09-01-2022
Dim rep As Variant
Dim arr(0 To 2) As String
CeldaSinComa = Replace(celda.Value, ",", " ")
rep = Split(CeldaSinComa, " ")
d = 0
For i = 0 To UBound(rep)
texto = rep(i)
If texto <> vbNullString Then
arr(d) = texto
d = d + 1
End If
Next i
mes = aMes(arr(0)): dia = arr(1): anio = arr(2)
FechaTexto = CDate(dia & "-" & mes & "-" & anio)
End Function
Private Function aMes(ByVal mes As String) As String
'created by @dj.vivanco 09-01-2022
'convierte siglas de mes en ingles a su numero de mes correspondiente
Select Case LCase(mes)
Case "jan"
aMes = "01"
Case "feb"
aMes = "02"
Case "mar"
aMes = "03"
Case "apr"
aMes = "04"
Case "may"
aMes = "05"
Case "jun"
aMes = "06"
Case "jul"
aMes = "07"
Case "aug"
aMes = "08"
Case "sep"
aMes = "09"
Case "oct"
aMes = "10"
Case "nov"
aMes = "11"
Case "dec"
aMes = "12"
End Select
End Function
Crear cuenta
