Coverting a date like: Fri, 4 Feb 2011 15:23:19

[WorknMan 0]

Just wondering if there is a function to convert a date like Fri, 4 Feb 2011 15:23:19 to the following format:

YYYYMMDDHHMMSS

Reason why I'm asking is because I have an array of these dates that I'm pulling from RSS feeds, and I need to sort the array from earliest date to latest.

Or maybe there's another, more elegant way to go about this?

[Xenobiologist 34]

expandcollapse popup

$before = "Fri, 4 Feb 2011 15:23:19"
;$after = "YYYYMMDDHHMMSS"

ConsoleWrite(_convertDate($before) & @CRLF)

Func _convertDate($date)
    Local $year = StringRegExp($date, '\d{4}', 3)
    Local $month = StringRegExp($date, '([a-zA-Z]{3}) \d', 3)
    Local $day = StringRegExp($date, ',\s(\d+)', 3)
    Local $time = StringRegExp($date, '(\d+):(\d+):(\d+)', 3)
    Switch $month[0]
        Case 'Jan'
            $month[0] = '01'
        Case 'Feb'
            $month[0] = '02'
        Case 'Mar'
            $month[0] = '03'
        Case 'Apr'
            $month[0] = '04'
        Case 'May'
            $month[0] = '05'
        Case 'Jun'
            $month[0] = '06'
        Case 'Jul'
            $month[0] = '07'
        Case 'Aug'
            $month[0] = '08'
        Case 'Sep'
            $month[0] = '09'
        Case 'Oct'
            $month[0] = '10'
        Case 'Nov'
            $month[0] = '11'
        Case 'Dec'
            $month[0] = '12'
    EndSwitch
    Return $year[0] & $month[0] & StringFormat('%.2i', $day[0]) & $time[0] & $time[1] & $time[2]
EndFunc   ;==>_convertDate

Edited February 5, 2011 by Xenobiologist

[WorknMan 0]

Sweet, that's going to save me some time Thanks!