udf to convert date format?

[gcue]

i have a date in this format

december 11, 2008

id like to convert it to yyyy/mm/dd format

couldnt find a udf that does this

is there one?

[Valuater]

Maybe...

MsgBox(0x0, "Date", _Date_Format("december 11, 2008"))


Func _Date_Format($info)
    $info = StringReplace($info, ",", "")
    $info = StringSplit($info, " ")
    $month = StringSplit("Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Dec", ",")
    For $x = 1 To 12
        If StringInStr($info[1], $month[$x]) Then
            $info[1] = $x
            ExitLoop
        EndIf
    Next
    $Result = $info[3] & "/" & $info[1] & "/" & $info[2]
    Return $Result
EndFunc   ;==>_Date_Format

8)

[Valuater]

A little shorter with error return

MsgBox(0x0, "Date", _Date_Format("december 11, 2008"))

Func _Date_Format($info)
    Local $inf0 = StringReplace($info, ",", ""), $inf = StringSplit($inf0, " ")
    Local $month = StringSplit("Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Dec", ",")
    For $x = 1 To 12
        If StringInStr($inf[1], $month[$x]) Then Return $inf[3] & "/" & $x & "/" & $inf[2]
    Next
    Return SetError(1, 0, -1)
EndFunc   ;==>_Date_Format

8)

[gcue]

perfect!

many thanks!

[GEOSoft]

A little shorter with error return

MsgBox(0x0, "Date", _Date_Format("december 11, 2008"))

Func _Date_Format($info)
    Local $inf0 = StringReplace($info, ",", ""), $inf = StringSplit($inf0, " ")
    Local $month = StringSplit("Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Dec", ",")
    For $x = 1 To 12
        If StringInStr($inf[1], $month[$x]) Then Return $inf[3] & "/" & $x & "/" & $inf[2]
    Next
    Return SetError(1, 0, -1)
EndFunc   ;==>_Date_Format

8)

Good one but where is the internationalization?

[Valuater]

Good one but where is the internationalization?

Hell, I can't even pronounce that word...

8)

[GEOSoft]

Hell, I can't even pronounce that word...

8)

I guess I should have said regionalizatio, Any here it is for you

MsgBox(0x0, "Date", _Date_Format("december 11, 2008"))

Func _Date_Format($info)
    Local $inf0 = StringReplace($info, ",", ""), $inf = StringSplit($inf0, " ")
    Local $month = StringSplit("Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Dec", ",")
    Local $sSep = RegRead("HKCU\Control Panel\International", "sDate")
    For $x = 1 To 12
        If StringInStr($inf[1], $month[$x]) Then Return $inf[3] & $sSep & $x & $sSep & $inf[2]
    Next
    Return SetError(1, 0, -1)
EndFunc  ;==>_Date_Format