DateTime.DateFormat = "dd/MM/yyyy"
Dim lngDate As Long = DateTime.DateParse("21/01/2020")
DateTime.DateFormat = "MM/dd/yyyy"
Log(DateTime.Date(lngDate)) '01/21/2020
Managing dates (and times) is one of the most complicated and tedious tasks in programming, especially when you have to store them in different DBMS. It's a headache!Hence why I quoted @William Lancee
On a related note: we had to handle this for a program that accepted user input in the USA (ie month first) and almost everywhere else (day first) except for Japan (year first) and we solved it by having a setting that specified the order of the date components, and another setting that enabled automatic updating of the order setting according to actual input dates ie if a component was > 31 then it couldn't be a month or day value, and if it was > 12 then it couldn't be a month value.
Worked great, unless you had a workshop with people who thought in different date styles.
Also handled dates like 20/6/7 (and 200607 and 607 and 0720).
On the output side, we defaulted to using Jan..Dec for the month component, but then we needed to cope with non-english variations.
Internally all dates were stored as an 8 digit (32-bit) number yyyymmdd. Zero problems with y2k rollover. Lol heck just realised we're already a quarter of the way to y21c rollover.
Yes, that's true.
I'm afraid it's virtually impossible to help you without having your project and your database (and we don't even know if it's SQLite, but I assume so).
The program must save dates in the original format when changing data. This means that you will have to do the reverse conversion of dates.
Okay, but do you always know the original date format? In that case, it'll be easy to convert; you already have some examples in this thread.
Yes, I know. Prefixes can be ABT, AFT, BEF, BET, CAL, EST, FROM,TO, AND.
I meant: do you know all the date formats you need to convert? How do you get those dates, and what format are they in?
In the application I need to give users a choice of data formats they are accustomed to. These formats are:
Try:
Public Sub DateStrToTicks(UserDateFrmt As String, strData As String) As Long
DateTime.DateFormat = UserDateFrmt
Return DateTime.DateParse(strData)
End Sub
Public Sub DateTicksToString(UserDateFrmt As String, lngData As Long) As String
DateTime.DateFormat = UserDateFrmt
Return DateTime.Date(lngData)
End SubAgreed.
About, After, Before, ...?
Correct.
This is what might be in the database:
Dim patDate As String="((?:(?:ABT|AFT|BEF|BET|CAL|EST|FROM|TO))\s)?((?:\d{0,2}\s\D{3}\s\d{1,4})|(?:\d{1,2}\.\d{1,2}\.\d{1,4})|\d{1,4})\s?((?:AND|TO))?\s?((?:\d{0,2}\s\D{3}\s\d{1,4})|(?:\d{1,2}\.\d{1,2}\.\d{1,4})|\d{1,4})?"
