Moderators Popular Post Melba23 Posted September 17, 2013 Moderators Popular Post Posted September 17, 2013 (edited) New version - 17 Jun 23 ======================= Added: Added 24hr unpadded H mask. New UDF in zip below. Changelog: Changelog.txt Here is my version of a UDF to transform date/time formats. It is entirely self-contained and although it defaults to English for the month/day names, you can set any other language very simply, even having different ones for the input and output. You need to provide a date/time string, a mask to tell the UDF what is in the string, and a second mask to format the output - the masks use the standard "yMdhmsT" characters. This is an example script showing some of the features: expandcollapse popup#include <Constants.au3> ; Only required for MsgBox constants #include "DTC.au3" Global $sIn_Date, $sOut_Date ; Basic format $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Note how day name is corrected $sIn_Date = "2013082 Sun 12:15:45 PM" $sOut_Date = _Date_Time_Convert($sIn_Date, "yyyyMMd ddd hh:mm:ss TT", "dddd, dd MMM yy") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Note use of $i19_20 parameter to change century $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 10) MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) $sIn_Date = "18:30:15 13/08/02" $sOut_Date = _Date_Time_Convert($sIn_Date, "HH:mm:ss yy/MM/dd", "h:mm TT on ddd d MMM yyyy") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Just to show it works both ways $sIn_Date = "Friday, 2 August 2013 at 6:30 PM" $sOut_Date = _Date_Time_Convert($sIn_Date, "dddd, d MMMM yyyy at h:mm TT", "dd/MM/yy HH:mm") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) $sIn_Date = $sOut_Date $sOut_Date = _Date_Time_Convert($sIn_Date, "dd/MM/yy HH:mm", "dddd, d MMMM yyyy at h:mm TT") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Note false returns for non-specified elements $sIn_Date = "6:15 P" $sOut_Date = _Date_Time_Convert($sIn_Date, "h:m T", "yy/MM/dd HH:mm:ss") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Note use of "x" in place of actual spacing/punctuation $sIn_Date = "Sun 12:15:45 PM" $sOut_Date = _Date_Time_Convert($sIn_Date, "dddxhhxmmxssxTT", "dddd HH:mm") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Output month/day strings changed to French _Date_Time_Convert_Set("smo", "jan,fév,mar,avr,mai,juin,juil,août,sept,oct,nov,déc") _Date_Time_Convert_Set("ldo", "dimanche,lundi,mardi,mercredi,jeudi,vendredi,samedi") _Date_Time_Convert_Set("SDO", 3) ; Each short name is first 3 chars of equivalent long name ; Note as only the short day names are required, they could have been set directly: ; _Date_Time_Convert_Set("sdo", "dim,lun,mar,mer,jeu,ven,sam") $sIn_Date = "20130716 Sun 12:15:45 PM" $sOut_Date = _Date_Time_Convert($sIn_Date, "yyyyMMd ddd hh:mm:ss TT", "ddd, d MMM yy") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; Output month/day strings changed to German _Date_Time_Convert_Set("smo", "Jan.,Feb.,März,Apr.,Mai,Juni,Juli,Aug.,Sept.,Okt.,Nov.,Dez.") _Date_Time_Convert_Set("ldo", "Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag") $sIn_Date = "20130716 Sun 12:15:45 PM" $sOut_Date = _Date_Time_Convert($sIn_Date, "yyyyMMd ddd hh:mm:ss TT", "dddd, d MMM yy") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) ; All strings reconverted to default English _Date_Time_Convert_Set() ; As shown here $sIn_Date = "20130716 Sun 12:15:45 PM" $sOut_Date = _Date_Time_Convert($sIn_Date, "yyyyMMd ddd hh:mm:ss TT", "ddd, d MMM yy") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) And here is the UDF and example in zip format: DTC.zip As always, happy for any comments. M23 Edited June 17, 2023 by Melba23 Tankbuster, Musashi, MrKm and 6 others 6 3 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Malkey Posted September 17, 2013 Posted September 17, 2013 There is a bug either in the header description or logic in the script. You have in the _Date_Time_Convert() function header:- "$i19_20 - Year which determines either 19## to 20## for long year format if only short format defined Default = 50 (1951-1999, 2000-2050)" This is the part of the script that designates the 19 or 20:- .... ElseIf $aDTC_Data[0][2] Then ; If short year... If $aDTC_Data[0][2] > $i19_20 Then $aDTC_Data[0][4] = "19" & $aDTC_Data[0][2] ; ...assume 1951-1999... Else $aDTC_Data[0][4] = "20" & $aDTC_Data[0][2] ; ...and 2000-2050 EndIf .... The description in the header should be for $i19_20:- If the $i19_20 is less than the two character year, the year is in the 1900's, and; If the $i19_20 is greater than or equal to the two character year, the year is in the 2000's. Here is a testing example. #include <Constants.au3> ; Only required for MsgBox constants #include "DTC.au3" Global $sIn_Date, $sOut_Date ; Note use of $i19_20 parameter to change century $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 10) ConsoleWrite($sIn_Date & @CRLF & $sOut_Date & @CRLF) MsgBox($MB_SYSTEMMODAL, "$i19_20 = 10", $sIn_Date & @CRLF & $sOut_Date) ; Note use of $i19_20 parameter to change century $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 12) ConsoleWrite($sIn_Date & @CRLF & $sOut_Date & @CRLF) MsgBox($MB_SYSTEMMODAL, "$i19_20 = 12", $sIn_Date & @CRLF & $sOut_Date) ; Note use of $i19_20 parameter to change century $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 13) ConsoleWrite($sIn_Date & @CRLF & $sOut_Date & @CRLF) MsgBox($MB_SYSTEMMODAL, "$i19_20 = 13", $sIn_Date & @CRLF & $sOut_Date) ; Note use of $i19_20 parameter to change century $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 14) ConsoleWrite($sIn_Date & @CRLF & $sOut_Date & @CRLF) MsgBox($MB_SYSTEMMODAL, "$i19_20 = 14", $sIn_Date & @CRLF & $sOut_Date) Apart from that confusion, a nice job. I believe your _Date_Time_Convert function is better than my _Date_Time_Convert function.
Moderators Melba23 Posted September 17, 2013 Author Moderators Posted September 17, 2013 (edited) Malkey,High praise indeed - thank you very much. I take your point about the $i19_20 definition - it is never easy to come up with a simple description. But I believe the UDF is working correctly - here is a slightly amended version of your script:#include <Constants.au3> ; Only required for MsgBox constants #include "DTC.au3" Global $sIn_Date, $sOut_Date ; Default = 50 (1951-1999, 2000-2050) $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 10) ; 1911-1999 2000-2010 MsgBox($MB_SYSTEMMODAL, "Expect 1913", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 1913 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 11) ; 1912-1999 2000-2011 MsgBox($MB_SYSTEMMODAL, "Expect 1913", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 1913 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 12) ; 1913-1999 2000-2012 MsgBox($MB_SYSTEMMODAL, "Expect 1913", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 1913 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 13) ; 1914-1999 2000-2013 MsgBox($MB_SYSTEMMODAL, "Expect 2013", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 2013 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 14) ; 1915-1999 2000-2014 MsgBox($MB_SYSTEMMODAL, "Expect 2013", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 2013which I hope shows that the UDF is working as I intended - even if not as you understood it. I will try to come up with a better description line for that parameter in the header - probably based on your suggestion. M23 Edited September 18, 2013 by Melba23 Typo Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
mLipok Posted September 17, 2013 Posted September 17, 2013 very nice 5* Signature beginning:* Please remember: "AutoIt"..... * Wondering who uses AutoIt and what it can be used for ? * Forum Rules ** ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button: Reveal hidden contents Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 * My contribution to others projects or UDF based on others projects: * _sql.au3 UDF * POP3.au3 UDF * RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * Useful links: * Forum Rules * Forum etiquette * Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX IE Related: * How to use IE.au3 UDF with AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions * EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *I also encourage you to check awesome @trancexx code: * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors * HTML editor * winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/ "Homo sum; humani nil a me alienum puto" - Publius Terentius Afer"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming" , be and \\//_. Anticipating Errors : "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty." Signature last update: 2023-04-24
Malkey Posted September 18, 2013 Posted September 18, 2013 (edited) On 9/17/2013 at 2:21 PM, Melba23 said: Malkey,High praise indeed - thank you very much. I take your point about the $i19_20 definition - it is never easy to come up with a simple description. But I believe the UDF is working correctly - here is a slightly amended version of your script:#include <Constants.au3> ; Only required for MsgBox constants #include "DTC.au3" Global $sIn_Date, $sOut_Date ; Default = 50 (1951-1999, 2000-2050) $sIn_Date = "13/08/02 18:30:15" $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 10) ; 1911-1999 2000-2010 MsgBox($MB_SYSTEMMODAL, "Expect 1913", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 1913 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 11) ; 1912-1999 2000-2011 MsgBox($MB_SYSTEMMODAL, "Expect 1913", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 1913 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 12) ; 1913-1999 2000-2012 MsgBox($MB_SYSTEMMODAL, "Expect 1913", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 1913 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 13) ; 1914-1999 2000-2013 MsgBox($MB_SYSTEMMODAL, "Expect 2013", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 2013 $sOut_Date = _Date_Time_Convert($sIn_Date, "yy/MM/dd HH:mm:ss", "dddd, d MMMM yyyy at h:mm TT", 14) ; 1915-1999 2000-2014 MsgBox($MB_SYSTEMMODAL, "Expect 2013", $sIn_Date & @CRLF & $sOut_Date) ; 13 = 2013which I hope shows that the UDF is working as I intended - even if not as you understood it. I will try to come up with a better description line for that parameter in the header - probably based on your suggestion. M23I got it, as long as you change "13 = 2013" to "13 = 1913" when the $i19_20 parameter is 12. Edited September 18, 2013 by Melba23 Typo in quote
AdamUL Posted January 10, 2014 Posted January 10, 2014 Melba, Great UDF, but I found a small issue when converting from 12:00 AM to 00:00 in 24 hour time with zero padding, when specified in the out mask. This is causing an issue when I go to sort dates in an array after converting. Here is an example script to show this issue. #include <DTC.au3> Local $s12HrTime = "12:05 AM" Local $s24HrTime = _Date_Time_Convert($s12HrTime, "hh:mm TT", "HH:mm") ConsoleWrite($s12HrTime & ' = ' & $s24HrTime & ' <- No Zero Padding on "0" hour' & @LF) $s12HrTime = "12:05 AM" $s24HrTime = _Date_Time_Convert($s12HrTime, "h:mm TT", "HH:mm") ConsoleWrite($s12HrTime & ' = ' & $s24HrTime & ' <- No Zero Padding on "0" hour' & @LF) $s12HrTime = "12:05 AM" $s24HrTime = _Date_Time_Convert($s12HrTime, "h:mm TT", "HH:m") ConsoleWrite($s12HrTime & ' = ' & $s24HrTime & ' <- No Zero Padding on "0" hour' & @LF) Thanks, Adam
AdamUL Posted January 10, 2014 Posted January 10, 2014 (edited) OK, I found the issue. It is on line 378. It has $aDTC_Data[3][2] = 00 and it needs to be changed to $aDTC_Data[3][2] = "00" That seems to fixed the issue. Edit: That doesn't completely fix the issue. When you try this $s12HrTime = "12:05 AM" $s24HrTime = _Date_Time_Convert($s12HrTime, "h:mm TT", "H:m") ConsoleWrite($s12HrTime & ' = ' & $s24HrTime & @LF) It returns this after making the change. 12:05 AM = :5 Edit2: It returns the same above after changing it back. This is also an issue with the UDF. Adam Edited January 10, 2014 by AdamUL
Moderators Melba23 Posted January 10, 2014 Author Moderators Posted January 10, 2014 AdamUL,You are quite right - I was expecting numeric 00 to be stored as 2 chars and AutoIt was reducing it to a single 0. As to the "H:m" conversion - the UDF does not support a single "H" as shown in the function header. I could not imagine anyone needing an unpadded 24hr hour - but I will look at adding some errors for invalid output masks to make it more obvious that ther is a problem. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
AdamUL Posted January 10, 2014 Posted January 10, 2014 Yea, good point. I didn't think of the invalid out mask for 24 hr, I was just checking hour values for zero padding. Thanks again, Adam
Moderators Melba23 Posted January 11, 2014 Author Moderators Posted January 11, 2014 New - BugFix version - 11 Jan 14Fixed: HH was not being padded in some cases.Added: New error returned if the masks are incorrectly formatted (e.g. a single H)Thanks to AdamUL for finding the former and prompting the latter. New UDF and zip in first post. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
AdamUL Posted January 13, 2014 Posted January 13, 2014 Melba, Thanks for the update. Excellent work as always. Adam
rot Posted October 22, 2014 Posted October 22, 2014 A very useful UDF! Thanks for sharing it. I have an issue and can't find the reason why it happens ... Here's the conversion I try: $sIn_Date = " Oct 19, 2014" $sOut_Date = _Date_Time_Convert($sIn_Date, " MMM dd, yyyy", "yyyy-mm-dd") MsgBox($MB_SYSTEMMODAL, "DTC Conversion", $sIn_Date & @CRLF & $sOut_Date) And this is what I get: 2014/**/19 There is no active conversion neither for month or whatever. Is there an issue with the UDF or is it me? Thanks rot
Moderators Melba23 Posted October 22, 2014 Author Moderators Posted October 22, 2014 rot,It is you! You are asking for this return:yyyy - Long year mm - Padded minutes <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< dd - Padded dayIf you replace "mm" with "MM" (padded numerical month) you will get the result you expect. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
rot Posted October 22, 2014 Posted October 22, 2014 aaarrrggghhh!!! stupid me!!! thanks Melba23 for your help and again for this useful UDF!
AdamUL Posted May 26, 2015 Posted May 26, 2015 Melba23,I think I have found another bug, and I can't believe that I didn't spot it before now. Here's the code. #include <DTC.au3> $sDate = "20141119_193702" $sDateOut = _Date_Time_Convert($sDate, "yyyyMMdd_HHmmss", "MM/dd/yyyy hh:mm TT") ConsoleWrite($sDate & @CRLF & $sDateOut & @CRLF)You will notice that the hour is not zero padded. it should be "07:37 PM," and it is only showing as "7:37 PM." Tested with 3.3.12.0. Adam
Moderators Melba23 Posted May 26, 2015 Author Moderators Posted May 26, 2015 AdamUL,I would argue that the return is correct in that you should not really have leading 0's when using AM/PM - but it is easier to add the 0 than to introduce checks to prevent it.How about this:expandcollapse popup#include-once ; #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7 ; #INDEX# ======================================================================================================================= ; Title .........: _Date_Time_Convert ; AutoIt Version : v3.3.8.1 or higher ; Language ......: English ; Description ...: Converts between date/time formats ; Note ..........: ; Author(s) .....: Melba23 ; Remarks .......: ; =============================================================================================================================== ; #CURRENT# ===================================================================================================================== ; _Date_Time_Convert : Convert between date/time formats ; _Date_Time_Convert_Set : Set non-English strings for long/short day/month names ; =============================================================================================================================== ; #INTERNAL_USE_ONLY#================================================================================================= ; __DTC_Create_Array : Creates long/short day/month names ; __DTC_Match_Array : Matches long/short day/month names ; =============================================================================================================================== ; #GLOBAL VARIABLES# ================================================================================================= Global $g_sDTC_Mon_Long_In, $g_sDTC_Mon_Short_In, $g_sDTC_Day_Long_In, $g_sDTC_Day_Short_In Global $g_sDTC_Mon_Long_Out, $g_sDTC_Mon_Short_Out, $g_sDTC_Day_Long_Out, $g_sDTC_Day_Short_Out ; =============================================================================================================================== ; #FUNCTION# ==================================================================================================================== ; Name...........: _Date_Time_Convert ; Description ...: Converts between date/time formats ; Syntax.........: _Date_Time_Convert($sIn_Date, $sIn_Mask, $sOut_Mask [, $i19_20]) ; Parameters ....: $sIn_Date - Valid date/time string ; Only one element from each main group should be defined (exception Day name/date) ; $sIn_Mask - Mask defining the date/time elements used in the In_Date string. Mask is made up as follows: ; Year : yyyy = 2013 ; yy = 13 ; Month : MMMM = April (long) ; MMM = Apr (short) ; MM = 04 (2 digit padded) ; M = 4 (1/2 digit) * ; Day : dddd = Thursday (long) ; ddd = Thu (short) ; Day : dd = 01 (2 digit padded) ; d = 1 (1/2 digit) * ; Hour : HH = 20 (2 digit 24 hr) ; hh = 08 (2 digit padded 12 hr) ; h = 8 (1/2 digit 12 hr) * ; Minute : mm = 05 (2 digit padded) ; m = 5 (1/2 digit) * ; Second : ss = 08 (2 digit padded) ; s = 8 (1/2 digit) * ; AM/PM : TT = AM/PM ; T = A/P ; Any additional text or punctuation in the date/time string must be matched in the mask ; but need not be exact so that mask letters can be avoided ; $sOut_Mask - Mask defining date/time elements used in the returned string. Uses the same format as $sIn_Mask ; Exact additional text or punctuation required must be included, so avoid mask letters ; $i19_20 - Year which determines either 19## to 20## for long year format if only short format defined ; Default = 50 (1951-1999, 2000-2050) ; Requirement(s).: v3.3.8.1 or higher ; Return values .: Success: A string containing required date/time format as set out in the $sOut_Mask parameter ; Failure: An empty string with @error set as follows ; @error = 1 with @extended set as follows (all refer to $sIn_Date): ; 0 = Both long and short year formats ; 1 = More than one month format ; 2 = Both padded and unpadded day formats ; 4 = Both padded and unpadded 12 hr formats ; 5 = Both padded and unpadded min formats ; 6 = Both padded and unpadded sec formats ; 7 = Both long and short AM/PM formats ; 8 = Only 12 hr hour format and no AM/PM set ; @error = 2 with @extended set as follows: ; 0 = Invalid year (1000 - 2999) ; 1 = Invalid month (1 - 12) ; 2 = Invalid day (1 - depends on month/leap year) ; 3 = Invalid hour when converted to 24hr format (0 - 23) ; 4 = Invalid minute (0 - 59) ; 5 = Invalid second (0 - 59) ; @error = 3 - Invalid $i19_20 parameter ; @error = 4 with @extended set as follows ; 1 = Invalid In Mask ; 2 = Invalid Out Mask ; Author ........: Melba23 ; Remarks .......: Undefined $sOut_Mask date/time elements set to similar number of "-/*" characters ; If $sIn_Date includes a valid date then the day name is automatically set for that date even if another name provided ; Padded 1/2 digit masks (* above) must be followed by a non-numeric or space character if only single digit - if not ; they are assumed to be double digit ; Example .......; Yes ; =============================================================================================================================== Func _Date_Time_Convert($sIn_Date, $sIn_Mask, $sOut_Mask, $i19_20 = Default) #region ; Initialisation ; Declare variables Local $iCaret_Date = 1, $iCaret_Mask = 1, $sCurr_Char, $iLen, $sCurr_Date ; Create array of mask characters and valid repeat numbers Local $aMask[8][5] = [["y", 0, 1, 0, 1], _ ["M", 1, 1, 1, 1], _ ["d", 1, 1, 1, 1], _ ["H", 0, 1, 0, 0], _ ["h", 1, 1, 0, 0], _ ["m", 1, 1, 0, 0], _ ["s", 1, 1, 0, 0], _ ["T", 1, 1, 0, 0]] ; Create array to hold In_Date data Local $aDTC_Data[UBound($aMask)][5] ; Create default month/day string arrays Local $aMon_Long_In[13] = [12, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"] Local $aMon_Long_Out = $aMon_Long_In Local $aMon_Short_In[13] = [12, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"] Local $aMon_Short_Out = $aMon_Short_In Local $aDay_Long_In[8] = [7, "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"] Local $aDay_Long_Out = $aDay_Long_In Local $aDay_Short_In[8] = [7, "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"] Local $aDay_Short_Out = $aDay_Short_In ; Check if In names overridden If $g_sDTC_Mon_Long_In Then $aMon_Long_In = __DTC_Create_Array($g_sDTC_Mon_Long_In) EndIf If $g_sDTC_Mon_Short_In Then $aMon_Short_In = __DTC_Create_Array($g_sDTC_Mon_Short_In, $aMon_Long_In) EndIf If $g_sDTC_Day_Long_In Then $aDay_Long_In = __DTC_Create_Array($g_sDTC_Day_Long_In) EndIf If $g_sDTC_Day_Short_In Then $aDay_Short_In = __DTC_Create_Array($g_sDTC_Day_Short_In, $aDay_Long_In) EndIf ; Check if Out names overridden If $g_sDTC_Mon_Long_Out Then $aMon_Long_Out = __DTC_Create_Array($g_sDTC_Mon_Long_Out) EndIf If $g_sDTC_Mon_Short_Out Then $aMon_Short_Out = __DTC_Create_Array($g_sDTC_Mon_Short_Out, $aMon_Long_Out) EndIf If $g_sDTC_Day_Long_Out Then $aDay_Long_Out = __DTC_Create_Array($g_sDTC_Day_Long_Out) EndIf If $g_sDTC_Day_Short_Out Then $aDay_Short_Out = __DTC_Create_Array($g_sDTC_Day_Short_Out, $aDay_Long_Out) EndIf ; Check $i19_20 Switch $i19_20 Case Default $i19_20 = 50 Case 0 To 99 $i19_20 = Int($i19_20) Case Else Return SetError(3, 0, "") EndSwitch #endregion ; Initialisation #region ; Get data from In_Date ; Work through In_Mask and extract data from In_Date For $iCaret_Mask = 1 To StringLen($sIn_Mask) $sCurr_Char = StringMid($sIn_Mask, $iCaret_Mask, 1) $iLen = 0 For $i = 0 To UBound($aMask) - 1 ; Current character is a mask character If $sCurr_Char == $aMask[$i][0] Then ; See how many characters in the mask While 1 $iLen += 1 If StringMid($sIn_Mask, $iCaret_Mask + $iLen, 1) <> $sCurr_Char Then ExitLoop WEnd ; Check for valid In_Mask pattern If Not $aMask[$i][$iLen] Then Return SetError(4, 1, "") EndIf ; Now extract the value from In-Date Switch $iLen Case 1 Switch $sCurr_Char Case "M", "d", "h", "m", "s" ; Single mask char - could be 1 or 2 digit If StringRegExp(StringMid($sIn_Date, $iCaret_Date + 1, 1), "[0-9]") Then $sCurr_Date = Number(StringMid($sIn_Date, $iCaret_Date, 2)) $iCaret_Date += 1 ; +1 auto Else $sCurr_Date = Number(StringMid($sIn_Date, $iCaret_Date, 1)) ; Caret_Date +1 auto EndIf ; Caret_Mask +1 auto Case "T" $sCurr_Date = StringMid($sIn_Date, $iCaret_Date, 1) Case "H" ConsoleWrite("Hit" & @CRLF) EndSwitch Case 2 ; Always 2 digit $sCurr_Date = StringMid($sIn_Date, $iCaret_Date, 2) $iCaret_Date += 1 ; +1 auto $iCaret_Mask += 1 ; +1 auto Case 3 Switch $sCurr_Char Case "M" ; Search short array $sCurr_Date = __DTC_Match_Array($aMon_Short_In, $sIn_Date, $iCaret_Date) $iCaret_Date += @extended ; Save index not name $iLen = 1 Case "d" $sCurr_Date = __DTC_Match_Array($aDay_Short_In, $sIn_Date, $iCaret_Date) $iCaret_Date += @extended ; Save index not name $iLen = 0 EndSwitch $iCaret_Mask += 2 ; +1 auto Case 4 Switch $sCurr_Char Case "y" ; 4 digit year $sCurr_Date = StringMid($sIn_Date, $iCaret_Date, 4) $iCaret_Date += 3 ; +1 auto Case "M" ; Search long array $sCurr_Date = __DTC_Match_Array($aMon_Long_In, $sIn_Date, $iCaret_Date) $iCaret_Date += @extended ; Save index not name $iLen = 1 Case "d" ; Search long array $sCurr_Date = __DTC_Match_Array($aDay_Long_In, $sIn_Date, $iCaret_Date) $iCaret_Date += @extended ; Save index not name $iLen = 0 EndSwitch $iCaret_Mask += 3 ; +1 auto EndSwitch ; Store the extracted data $aDTC_Data[$i][$iLen] = $sCurr_Date ExitLoop EndIf Next ; Auto-increase Caret_Date - Caret_Mask increased by loop $iCaret_Date += 1 Next #endregion ; Get data from In_Date #region ; Fill data array ready for use by Out_Mask ; Year If $aDTC_Data[0][2] And $aDTC_Data[0][4] Then ; Check only 1 element set Return SetError(1, 0, "") ElseIf $aDTC_Data[0][4] Then ; If long year... $aDTC_Data[0][2] = StringRight($aDTC_Data[0][4], 2) ; ...set short year ElseIf $aDTC_Data[0][2] Then ; If short year... If $aDTC_Data[0][2] > $i19_20 Then $aDTC_Data[0][4] = "19" & $aDTC_Data[0][2] ; ...assume 1951-1999... Else $aDTC_Data[0][4] = "20" & $aDTC_Data[0][2] ; ...and 2000-2050 EndIf Else $aDTC_Data[0][2] = "--" $aDTC_Data[0][4] = "----" EndIf ; Check valid year If ($aDTC_Data[0][4] < 1000 Or $aDTC_Data[0][4] > 2999) And $aDTC_Data[0][4] <> "----" Then Return SetError(2, 0, "") EndIf ; Month If $aDTC_Data[1][1] And $aDTC_Data[1][2] Then ; Check only 1 element set Return SetError(1, 1, "") EndIf If $aDTC_Data[1][1] Then ; Unpadded month ; Check valid month If ($aDTC_Data[1][1] < 1 Or $aDTC_Data[1][1] > 12) Then Return SetError(2, 1, "") EndIf $aDTC_Data[1][2] = StringFormat("%02i", $aDTC_Data[1][1]) $aDTC_Data[1][3] = $aMon_Short_Out[$aDTC_Data[1][1]] $aDTC_Data[1][4] = $aMon_Long_Out[$aDTC_Data[1][1]] ElseIf $aDTC_Data[1][2] Then ; Padded month If ($aDTC_Data[1][2] < 1 Or $aDTC_Data[1][2] > 12) Then Return SetError(2, 1, "") EndIf $aDTC_Data[1][1] = Int($aDTC_Data[1][2]) $aDTC_Data[1][3] = $aMon_Short_Out[$aDTC_Data[1][1]] $aDTC_Data[1][4] = $aMon_Long_Out[$aDTC_Data[1][1]] Else $aDTC_Data[1][1] = "-" $aDTC_Data[1][2] = "--" $aDTC_Data[1][3] = "---" $aDTC_Data[1][4] = "---" EndIf ; Day If $aDTC_Data[2][1] And $aDTC_Data[2][2] Then ; Check only 1 numeric element set Return SetError(1, 2, "") EndIf If $aDTC_Data[2][1] Then ; Unpadded day $aDTC_Data[2][2] = StringFormat("%02i", $aDTC_Data[2][1]) ElseIf $aDTC_Data[2][2] Then ; Padded day $aDTC_Data[2][1] = Int($aDTC_Data[2][2]) Else $aDTC_Data[2][1] = "-" $aDTC_Data[2][2] = "--" EndIf ; Check valid day Local $aDayLimit[13] = [0, 32, 29, 32, 31, 32, 31, 32, 32, 31, 32, 31, 32] If (Mod($aDTC_Data[0][4], 4) = 0 And Mod($aDTC_Data[0][4], 100) <> 0) Or Mod($aDTC_Data[0][4], 400) = 0 Then $aDayLimit[2] = 30 EndIf If $aDTC_Data[2][2] > 0 And $aDTC_Data[2][2] < $aDayLimit[$aDTC_Data[1][1]] Then ; Determine correct weekday index Local $i_aFactor = Int((14 - $aDTC_Data[1][2]) / 12) ; MM Local $i_yFactor = $aDTC_Data[0][4] - $i_aFactor ; yyyy Local $i_mFactor = $aDTC_Data[1][2] + (12 * $i_aFactor) - 2 ; MM ; Replace any found alpha value $aDTC_Data[2][0] = 1 + Mod($aDTC_Data[2][2] + $i_yFactor + Int($i_yFactor / 4) - Int($i_yFactor / 100) + _ Int($i_yFactor / 400) + Int((31 * $i_mFactor) / 12), 7) ; dd Else If $aDTC_Data[2][2] <> "--" Then Return SetError(2, 2, "") EndIf EndIf ; Set day name $aDTC_Data[2][3] = $aDay_Short_Out[$aDTC_Data[2][0]] $aDTC_Data[2][4] = $aDay_Long_Out[$aDTC_Data[2][0]] ; AM/PM $aDTC_Data[7][1] = StringUpper($aDTC_Data[7][1]) ; Uppercase existing elements $aDTC_Data[7][2] = StringUpper($aDTC_Data[7][2]) If $aDTC_Data[7][1] And $aDTC_Data[7][2] Then ; Check only 1 element set Return SetError(1, 7, "") EndIf ; Set other element If $aDTC_Data[7][1] Then $aDTC_Data[7][2] = $aDTC_Data[7][1] & "M" ElseIf $aDTC_Data[7][2] Then $aDTC_Data[7][1] = StringLeft($aDTC_Data[7][2], 1) EndIf ; Hour 24 If $aDTC_Data[3][2] Then ; Set defaults $aDTC_Data[4][1] = "12" $aDTC_Data[4][2] = "12" $aDTC_Data[7][1] = "A" ; Note forced AM/PM if 24hr format hour $aDTC_Data[7][2] = "AM" Switch $aDTC_Data[3][2] Case 0 ; Do nothing Case 1 To 11 $aDTC_Data[4][1] = Int($aDTC_Data[3][2]) $aDTC_Data[4][2] = $aDTC_Data[3][2] Case 12 $aDTC_Data[7][1] = "P" $aDTC_Data[7][2] = "PM" Case Else $aDTC_Data[4][1] = Int($aDTC_Data[3][2] - 12) $aDTC_Data[4][2] = StringFormat("%02i", $aDTC_Data[3][2] - 12) $aDTC_Data[7][1] = "P" $aDTC_Data[7][2] = "PM" EndSwitch ; Hour 12 Else If $aDTC_Data[4][1] And $aDTC_Data[4][2] Then ; Check only 1 element set Return SetError(1, 4, "") EndIf If ($aDTC_Data[4][1] Or $aDTC_Data[4][2]) And $aDTC_Data[7][1] & $aDTC_Data[7][2] = "" Then ; No AM/PM set Return SetError(1, 8, "") EndIf If $aDTC_Data[4][1] & $aDTC_Data[4][2] = "" Then ; Set to 0 if no value set $aDTC_Data[4][1] = "*" $aDTC_Data[4][2] = "**" ElseIf $aDTC_Data[4][1] Then ; Unpadded hour $aDTC_Data[4][2] = StringFormat("%02i", $aDTC_Data[4][1]) ElseIf $aDTC_Data[4][2] Then ; Padded hour $aDTC_Data[4][1] = Int($aDTC_Data[4][2]) EndIf ; Set 24hr elements If $aDTC_Data[7][1] = "P" Then Switch $aDTC_Data[4][1] Case 12 $aDTC_Data[3][2] = "12" Case Else $aDTC_Data[3][2] = StringFormat("%02i", $aDTC_Data[4][1] + 12) EndSwitch Else Switch $aDTC_Data[4][1] Case 12 $aDTC_Data[3][2] = "00" Case Else $aDTC_Data[3][2] = StringFormat("%02i", $aDTC_Data[4][1]) EndSwitch EndIf EndIf ; Check valid hour If $aDTC_Data[3][2] < 0 Or $aDTC_Data[3][2] > 23 Then Return SetError(2, 3, "") EndIf ; Min If $aDTC_Data[5][1] And $aDTC_Data[5][2] Then ; Check only 1 element set Return SetError(1, 5, "") EndIf If $aDTC_Data[5][1] & $aDTC_Data[5][2] = "" Then ; Set to 0 if no value set $aDTC_Data[5][1] = "*" $aDTC_Data[5][2] = "**" ElseIf $aDTC_Data[5][1] Then ; Unpadded min $aDTC_Data[5][2] = StringFormat("%02i", $aDTC_Data[5][1]) ElseIf $aDTC_Data[5][2] Then ; padded Min $aDTC_Data[5][1] = Int($aDTC_Data[5][2]) EndIf ; Check valid minute If $aDTC_Data[5][1] < 0 Or $aDTC_Data[5][1] > 59 Then Return SetError(2, 4, "") EndIf ; Sec If $aDTC_Data[6][1] And $aDTC_Data[6][2] Then ; Check only 1 element set Return SetError(1, 6, "") EndIf If $aDTC_Data[6][1] & $aDTC_Data[6][2] = "" Then ; Set to 0 if no value set $aDTC_Data[6][1] = "*" $aDTC_Data[6][2] = "**" ElseIf $aDTC_Data[6][1] Then ; Unpadded sec $aDTC_Data[6][2] = StringFormat("%02i", $aDTC_Data[6][1]) ElseIf $aDTC_Data[6][2] Then ; Padded sec $aDTC_Data[6][1] = Int($aDTC_Data[6][2]) EndIf ; Check valid second If $aDTC_Data[6][1] < 0 Or $aDTC_Data[6][1] > 59 Then Return SetError(2, 5, "") EndIf #endregion ; Fill data array ready for use by Out_Mask #region ; Create Out_Date ; Declare empty Out_Date Local $sOut_Date = "" ; Reset caret for Out_Mask $iCaret_Mask = 1 ; Move through Out_Mask For $iCaret_Mask = 1 To StringLen($sOut_Mask) $sCurr_Char = StringMid($sOut_Mask, $iCaret_Mask, 1) $iLen = 0 For $i = 0 To UBound($aMask) - 1 ; Current character is a mask character If $sCurr_Char == $aMask[$i][0] Then While 1 $iLen += 1 If StringMid($sOut_Mask, $iCaret_Mask + $iLen, 1) <> $sCurr_Char Then ExitLoop WEnd ; Check for valid Out_Mask pattern If Not $aMask[$i][$iLen] Then Return SetError(4, 2, "") EndIf ; Add correct value to Out_Date $sOut_Date &= $aDTC_Data[$i][$iLen] ; Move caret for next check $iCaret_Mask += $iLen - 1 ExitLoop EndIf Next ; If not mask character If $iLen = 0 Then ; Add to Out_Date $sOut_Date &= $sCurr_Char EndIf Next ; Return Out_Date Return $sOut_Date #endregion ; Create Out_Date EndFunc ;==>_Date_Time_Convert ; #FUNCTION# ==================================================================================================================== ; Name...........: _Date_Time_Convert_Set ; Description ...: Set non-English strings for long/short day/month names ; Syntax.........: _Date_Time_Convert_Set([$sType = "" [, $sData = 0]]) ; Parameters ....: $sType - 3-char string to determine whether data for Month/Day, Long/Short, In/Out array ; Elements can be used in any order in lower or upper case ; Omitting this parameter sets all strings to "" and resets default English names ; $sData - String of alphabetical long/short names for months/days, separated by "," with no spaces ; For "short" names only, a single numerical digit uses that many characters from the long name ; Requirement(s).: v3.3.8.1 or higher ; Return values .: Success: 1 ; Failure: 0 and @error set to 1 with @extended set as follows ; 1 - Month Long In invalid ; 1 - Month Short In invalid ; 1 - Day Long In invalid ; 1 - Day Short In invalid ; 1 - Month Long Out invalid ; 1 - Month Short Out invalid ; 1 - Day Long Out invalid ; 1 - Day Short Out invalid ; Author ........: Melba23 ; Remarks .......: ; Example .......; Yes ; =============================================================================================================================== Func _Date_Time_Convert_Set($sType = "", $sData = "") Switch $sType ; In Case "MLI", "MIL", "LMI", "LIM", "ILM", "IML" ; Count elements StringReplace($sData, ",", ",") If @extended <> 11 Then Return SetError(1, 1, 0) EndIf $g_sDTC_Mon_Long_In = $sData Case "MSI", "MIS", "SMI", "SIM", "ISM", "IMS" If Not IsInt($sData) Then StringReplace($sData, ",", ",") If @extended <> 11 Then Return SetError(1, 2, 0) EndIf EndIf $g_sDTC_Mon_Short_In = $sData Case "DLI", "DIL", "LDI", "LID", "ILD", "IDL" StringReplace($sData, ",", ",") If @extended <> 6 Then Return SetError(1, 3, 0) EndIf $g_sDTC_Day_Long_In = $sData Case "DSI", "DIS", "SDI", "SID", "ISD", "IDS" If Not IsInt($sData) Then StringReplace($sData, ",", ",") If @extended <> 6 Then Return SetError(1, 4, 0) EndIf EndIf $g_sDTC_Day_Long_In = $sData ; Out Case "MLO", "MOL", "LMO", "LOM", "OLM", "OML" StringReplace($sData, ",", ",") If @extended <> 11 Then Return SetError(1, 5, 0) EndIf $g_sDTC_Mon_Long_Out = $sData Case "MSO", "MOS", "SMO", "SOM", "OSM", "OMS" If Not IsInt($sData) Then StringReplace($sData, ",", ",") If @extended <> 11 Then Return SetError(1, 6, 0) EndIf EndIf $g_sDTC_Mon_Short_Out = $sData Case "DLO", "DOL", "LDO", "LOD", "OLD", "ODL" StringReplace($sData, ",", ",") If @extended <> 6 Then Return SetError(1, 7, 0) EndIf $g_sDTC_Day_Long_Out = $sData Case "DSO", "DOS", "SDO", "SOD", "OSD", "ODS" If Not IsInt($sData) Then StringReplace($sData, ",", ",") If @extended <> 6 Then Return SetError(1, 8, 0) EndIf EndIf $g_sDTC_Day_Short_Out = $sData ; Reset to default Case Else $g_sDTC_Mon_Long_In = "" $g_sDTC_Mon_Short_In = "" $g_sDTC_Day_Long_In = "" $g_sDTC_Day_Short_In = "" $g_sDTC_Mon_Long_Out = "" $g_sDTC_Mon_Short_Out = "" $g_sDTC_Day_Long_Out = "" $g_sDTC_Day_Short_Out = "" EndSwitch Return 1 EndFunc ;==>_Date_Time_Convert_Set ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __DTC_Create_Array ; Description ...: Creates long/short day/month names ; Author ........: Melba23 ; Remarks .......: ; =============================================================================================================================== Func __DTC_Create_Array($sString, $aArray = "") If IsNumber($sString) Then ; Create shortened version of Long name array Local $iBound = UBound($aArray) - 1 Local $aRet[$iBound + 1] = [$iBound] For $i = 1 To $iBound $aRet[$i] = StringLeft($aArray[$i], $sString) Next Return $aRet Else ; Split string into array Return StringSplit($sString, ",") EndIf EndFunc ;==>__DTC_Create_Array ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __DTC_Match_Array ; Description ...: Matches long/short day/month names ; Author ........: Melba23 ; Remarks .......: ; =============================================================================================================================== Func __DTC_Match_Array($aArray, $sString, $iIndex) Local $sItem, $iLen For $i = 1 To $aArray[0] ; For each element $sItem = StringUpper($aArray[$i]) $iLen = StringLen($sItem) ; Compare to In_Date string If $sItem == StringUpper(StringMid($sString, $iIndex, $iLen)) Then Return SetExtended($iLen - 1, $i) EndIf Next Return SetExtended(0, "") EndFunc ;==>__DTC_Match_ArrayI will let you play "spot the difference".M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
AdamUL Posted May 26, 2015 Posted May 26, 2015 Thanks Melba23,Good point, and understand what you mean about the leading hour zero with AM/PM. I spotted this thread, and I was going to suggest your UDF. I noticed that the user requested a padded hour with AM/PM. While I was testing, I also noticed that it work correctly for "01" to "09," but not for converting "13" to "23." I did spot the difference, adding the StringFormat call on the 12 hr conversion. Thanks again for the update, Adam
Moderators Melba23 Posted May 26, 2015 Author Moderators Posted May 26, 2015 AdamUL,Great. I will release a new version tomorrow.M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Moderators Melba23 Posted May 27, 2015 Author Moderators Posted May 27, 2015 BugFix version - 27 May 15Fixed: HH for single digit hours was not being padded when AM/PM was used. Personally I feel that this is correct, but if the user asks for padding the UDF should provide it.Thanks to AdamUL for reporting.New UDF in first post.M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Thomymaster Posted July 9, 2015 Posted July 9, 2015 Hi Nice UDF, but can you implement that milliseconds are also handled.I need to convert a date/time string like "07/06/2015 15:02:04.234" to the german "06.07.2015 15:02:04.234" Best,Thomas
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now