Date Help

[wutzke]

How would you convert

09/25/2006

to

Sep 25, 06

[PsaltyDS]

How would you convert

09/25/2006

to

Sep 25, 06

There have been MANY UDFs written for date formatting, so a little searching may turn up more elegant answers, but:

You could split the string up by StringSplit(), using the forward slash as the delimiter, then convert each of the three parts to the desired format. Do you do arrays yet? Arrays will give you everything you need.

The following code splits the original to parts in an array called $DateSplit:

$DateIn = "09/25/2006"
$DateSplit = StringSplit($DateIn, "/")

Now the contents of that array are:

$DateSplit[0] = 3 ; Count

$DateSplit[1] = "09"

$DateSplit[2] = "25"

$DateSplit[3] = "2006"

Hope that helps.

[wutzke]

Thanks

so perhaps ...

Global $A_Mon[13] = ["", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]
$DateIn = "09/25/2006"
$DateSplit = StringSplit($DateIn, "/")
$theMonthNum=$DateSplit[1] 
$theMonth=$A_Mon[$DateSplit[1]]
$theYear=StringRight($DateSplit[3],2)
$newdate = $theMonth & " " & $DateSplit[2] & ", " & $theYear

could be a way the convert a date put into the datein var

[Thatsgreat2345]

Thanks

so perhaps ...

Global $A_Mon[13] = ["", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]
$DateIn = "09/25/2006"
$DateSplit = StringSplit($DateIn, "/")
$theMonthNum=$DateSplit[1] 
$theMonth=$A_Mon[$DateSplit[1]]
$theYear=StringRight($DateSplit[3],2)
$newdate = $theMonth & " " & $DateSplit[2] & ", " & $theYear

could be a way the convert a date put into the datein var

yeah looks good to me

[SmOke_N]

$sDateIn = _DateToString("09/25/2006")
MsgBox(64, 'Info', $sDateIn)

Func _DateToString($sDate)
    Local $aMon[13] = ['','Jan','Feb','March','April','May','June','July','Aug','Sep','Oct','Nov','Dec']
    Local $aDate = StringRegExp($sDate, '^(\d{1,2})/(\d{1,2})/(\d{2}|\d{4})$', 1)
    If IsArray($aDate) Then Return $aMon[Int($aDate[0])] & ' ' & $aDate[1] & ', ' & $aDate[2]
    Return SetError(1, 0, 0)
EndFunc

[Thatsgreat2345]

$sDateIn = _DateToString("09/25/2006")
MsgBox(64, 'Info', $sDateIn)

Func _DateToString($sDate)
    Local $aMon[13] = ['','Jan','Feb','March','April','May','June','July','Aug','Sep','Oct','Nov','Dec']
    Local $aDate = StringRegExp($sDate, '^(\d{1,2})/(\d{1,2})/(\d{2}|\d{4})$', 1)
    If IsArray($aDate) Then Return $aMon[Int($aDate[0])] & ' ' & $aDate[1] & ', ' & $aDate[2]
    Return SetError(1, 0, 0)
EndFunc

hahah was going to do stringreg but was to lazy since he already wrote a script that worked xD