Format date string

[PhilipG]

Hi everyone

I have a string that contains a date. The date is formated "yyyy/MM/dd".

Is there any simple way to change the format to "d MMM -YY"

Ifound something like _GUICtrlDTP_SetFormat() But that just seems to work on actual controls witch this isn't!

Would be thankful over some help!

[KaFu]

Best way would be a RegEx, but this should also do it....

$sDate = "2009/12/31"
$aDate = StringSplit($sDate,"/")
$sDate_New = $aDate[3] & " " & $aDate[2] & " " & StringRight($aDate[1],2)
MsgBox(0,"",$sDate & @crlf & $sDate_New)

[Malkey]

#include <Date.au3>

; "yyyy/mm/dd" to "d mmm-yy"format
$sDate = "2009/12/01"
$aDate = StringSplit($sDate, "/")
$sDate_New = Number($aDate[3]) & " " & _DateToMonth($aDate[2], 1) & "-" & StringRight($aDate[1], 2)

MsgBox(0, "Date Format", '"yyyy/mm/dd" = ' & $sDate & @CRLF & '"d mmm-yy" = ' & $sDate_New & @CRLF & "Reg Exp Rep = " & _
        Execute(StringRegExpReplace($sDate, "(.{2})(.{2})/(.{2})/(.{2})", _
        'number("\4") & " " & _DateToMonth("\3", 1) & "-" & "\2"')))

[Crash]

Try this:

#include <DateTimeConstants.au3> ;For the date control
$dateinput=GUICtrlCreateDate(@YEAR&"/"&@MON&"/"&@MDAY, 670, 67, 155, 20) ;Create the control- for reference
$DTM_SETFORMAT_ = 0x1032 ;Will start to change the style
$style = "d MMM yy"

Edited January 1, 2010 by Crash

[Malkey]

Try this:

#include <DateTimeConstants.au3> ;For the date control
$dateinput=GUICtrlCreateDate(@YEAR&"/"&@MON&"/"&@MDAY, 670, 67, 155, 20) ;Create the control- for reference
$DTM_SETFORMAT_ = 0x1032 ;Will start to change the style
$style = "d MMM yy"

Here is another example of Crash's method.

Local $Date = "1953/04/05 14:30:11.6"

MsgBox(0, "Date Format", 'Date = ' & $Date & @CRLF & _
    '"d MMM-yy" ' & @tab & " = " & _DateFormat($Date, "d MMM-yy") & @CRLF & _
    '"dddd, d MMMM, yyyy" = ' & _DateFormat($Date, "dddd, d MMMM, yyyy") & @CRLF & _
    '"dd/MM/yyyy" ' & @tab & " = " & _DateFormat($Date, "dd/MM/yyyy") & @CRLF & _
    '"HH-mm-ss or h:mm tt"" = ' & _DateFormat($Date, "HH-mm-ss or h:mm tt"))


Func _DateFormat($Date, $style)
    Local $hGui = GUICreate("My GUI get date", 200, 200, 800, 200)
    Local $idDate = GUICtrlCreateDate($Date, 10, 10, 185, 20)
    GUICtrlSendMsg($idDate, 0x1032, 0, $style)
    Local $sReturn = GUICtrlRead($idDate)
    GUIDelete($hGui)
    Return $sReturn
EndFunc ;==>_DateFormat

Edit: Added time element to MsgBox display for completeness.

Edit2: Added GuiDelete to function as per KaFu's suggestion Post #6.

Edited January 2, 2010 by Malkey

[KaFu]

Here is another example of Crash's method.

Nice way . But better delete the GUI after the function is finished?

Edit: For code see above

Edited January 3, 2010 by KaFu

[PhilipG]

Thanks alot! The problem is solved

[Crash]

Kafo: Wow, even a useless code can become a useful one when it's passed through your hands!

PhilipG: Yohohohoho, I'm glad. Credits go to me!! Jk jk.. Credits still goes to others. I did nothing