Date format help

SMI// · February 10th, 2011, 08:34 AM

Hi folks

I am trying this little piece of code with some problem: Active cell has a value e.g "16 Mar" and my objective is to convert the value to read as "2011-03-16"

Sub lc_date_format()
Dim a As String
Dim b As Date
b = ActiveCell
a = Format(b, "yyyy-mm-dd")
ActiveCell.ClearContents
ActiveCell.Value = a
End Sub

Problem is that when the cell is replaced by variable a, the result is still shown as "16 Mar". Any clue?

Thanks for your help.

SMI//

scriptingit · February 14th, 2011, 07:42 AM

why does not work with an arraylist containing the months
possible this code snippet can get you started

Grtz,

Luc
www.scriptingit.be

Code:

Sub test()
Dim s As String
s = "21 Mar"
Dim l(12) As String
Dim d As Date
l(1) = "Jan"
l(2) = "Feb"
l(3) = "Mar"
Dim i As Integer
For i = 1 To 12
    If InStr(0, l(i), s) > 0 Then
        'MATCH
        ......................
    End If
    
Next

End Sub