hoppfrosch
10/8/2013 - 10:19 AM
DateTime - Functionality #ahk #script #function #lib
DateTime - Functionality #ahk #script #function #lib
; ===================================================================================
; AHK Version ...: AHK_L 1.1.14.03 x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Seconds to String
; Convert Seconds to Day(s), Hour(s), Minute(s), Second(s)
; e.g. "1234567" -> "14 days, 6 hours, 56 minutes, 7 seconds"
; Modified ......: 2014.04.10-2019
; Author ........: jNizM
; Licence .......: WTFPL (http://www.wtfpl.net/txt/copying/)
; Source ........: https://github.com/jNizM/AutoHotkey_Scripts/blob/master/Functions/Others/secsToStr.ahk
; ===================================================================================
; GLOBAL SETTINGS ===================================================================
#NoEnv
#SingleInstance Force
; SCRIPT ============================================================================
MsgBox % secsToStr(1234567) ; 14 days, 6 hours, 56 minutes, 7 seconds
MsgBox % secsToStr(1337) ; 22 minutes, 17 seconds
; FUNCTIONS =========================================================================
secsToStr(s)
{
if (s >= 86400)
{
d := floor(s / 86400), s := mod(s, 86400)
r := d " day" ((d <> 1) ? "s" : "") ((s > 0) ? ", " : "")
}
if (s >= 3600)
{
h := floor(s / 3600), s := mod(s, 3600)
r .= h " hour" ((h <> 1) ? "s" : "") ((s > 0) ? ", " : "")
}
if (s >= 60)
{
m := floor(s / 60), s := mod(s, 60)
r .= m " minute" ((m <> 1) ? "s" : "") ((s > 0) ? ", " : "")
}
r .= s " second" ((s <> 1) ? "s" : "")
return r
}
; EXIT ==============================================================================
exitapphttp://www.autohotkey.com/board/topic/23673-julian-dates
http://www.autohotkey.com/board/topic/23442-date-day-n-th-day-of-month-year-date/?hl=date#entry151605
http://www.autohotkey.com/board/topic/12395-format-number-of-seconds-to-days-hours-minutes-seconds/?hl=date#entry80609
http://www.autohotkey.com/board/topic/112390-working-with-days-and-hours
http://www.autohotkey.com/board/topic/111448-date-validation
http://www.autohotkey.com/board/topic/110873-adding-date-need-fix
http://www.autohotkey.com/board/topic/109368-changing-a-dates-format
http://http://www.autohotkey.com/board/topic/100429-is-input-date-between-two-other-dates
http://http://www.autohotkey.com/board/topic/77768-subtract-one-day
http://http://www.autohotkey.com/board/topic/99133-how-to-insert-a-date-that-skips-weekends-automatically-extreme-noob; ===================================================================================
; AHK Version ...: AHK_L 1.1.14+ x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Year of previous Month
; Figure out that last month was last year not the current year
; Modified ......: ????
; Author ........: Skan
; Licence .......: ????
; Source ........: http://www.autohotkey.com/board/topic/7984-ahk-functions-incache-cache-list-of-recent-items/?p=359874
; ===================================================================================
somedate=20100226
MsgBox, % YearOfPreviousMonth( somedate )
YearOfPreviousMonth( date ) {
date += 0,D
date := SubStr(date,1,6 )
date += -1,D
Return substr( date,1,4 )
}; ===================================================================================
; AHK Version ...: AHK_L 1.1.14.03 x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Accepts a formatted Date/Time string and returns a VALID DateTime Stamp.
; Convert Seconds to Day(s), Hour(s), Minute(s), Second(s)
; e.g. MsgBox % UnformatTime("Thu Mar 31, 2011 9:34 pm (GMT 0)","MMM dd, yyyy h:mm tt") => 20110331213400
; Modified ......: ????
; Author ........: sinkface
; Licence .......: ????
; Source ........: http://www.autohotkey.com/board/topic/65302-unformattime-inverter-for-formattime-command/#entry413030
; ===================================================================================
; Example Calls
F5::MsgBox % UnformatTime("Thu Mar 31, 2011 9:34 pm (GMT 0)","MMM dd, yyyy h:mm tt")
UnformatTime(str,format) {
static pf := "t,y,M,d,h,H,m,s"
, MMM := {Jan:"01",Feb:"02",Mar:"03",Apr:"04",May:"05",Jun:"06",Jul:"07",Aug:"08",Sep:"09",Oct:10,Nov:11,Dec:12}
, MMMM := {January:"01",February:"02",March:"03",April:"04",May:"05",June:"06",July:"07",August:"08",September:"09",October:10,November:11,December:12}
StringCaseSense, On
RegExMatch(str,RegExReplace(format,"\w+","\w+"),timeStr)
n := 0
Loop, parse, pf, `,
{
Pos := 1, t := format
if !RegExMatch(format,A_LoopField "+",r)
if InStr("h,t",A_LoopField)
continue
else _1 := ""
else
{
While Pos := RegExMatch(format,"\w+",m,Pos+StrLen(m))
StringReplace, t, t, %m%, % (m==r) ? "(\w+)" : "\w+"
RegExMatch(timeStr,t,_)
if (A_LoopField="t" && _1~="i)p")
n := 12
}
res .= (A_LoopField="t") ? ""
: !_1 ? ((r~="y") ? "0000" : "00")
: (r~="y") ? ((r="y" && StrLen(_1)=1) ? 200 _1 : (StrLen(r)<4) ? ((_1>SubStr(A_YYYY,-1)) ? 19 _1 : 20 _1) : _1)
: (r~="M") ? ((r="MMM") ? MMM[_1] : (r="MMMM") ? MMMM[_1] : (Abs(_1)<10) ? "0" SubStr(_1,0) : _1)
: (r~="h") ? ((n && _1=12) ? "00" : n ? Abs(_1)+n : (Abs(_1)<10) ? "0" SubStr(_1,0) : _1)
: (StrLen(r)=1 && Abs(_1)<10) ? "0" SubStr(_1,0) : _1
}
return res
}
; ===================================================================================
; AHK Version ...: v1.1.24.05 Unicode 32-bit
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Get Timezone-information for given year based on current timezone settings
; Modified ......: 2017.02.23
; Author ........: just me
; Licence .......: ???
; Source ........: https://autohotkey.com/boards/viewtopic.php?p=133780#p133780
; ===================================================================================
; ----------------------------------------------------------------------------------------------------------------------------------
; Requires Win Vista+
; ----------------------------------------------------------------------------------------------------------------------------------
#NoEnv
Year := 2017
TZI := TZI_GetFromYear(Year)
Gui, Add, ListView, w1000 r9, Field|Value|Description
LV_Add("", "Bias", TZI.Bias, "Minutes (UTC = Local Time + Bias).")
LV_Add("", "StandardName", TZI.StandardName
, "A description for standard time.")
LV_Add("", "StandardDate", TZI.StandardDate
, "A date and local time when the transition from daylight saving time to standard time occurs on this operating system.")
LV_Add("", "StandardDate (UTC)", TZI.StandardDateUTC
, "Calculated UTC date and time.")
LV_Add("", "StandardBias", TZI.StandardBias
, "This value is added to the value of the Bias member to form the bias used during standard time.")
LV_Add("", "DaylightName", TZI.DaylightName
, "A description for daylight saving time.")
LV_Add("", "DaylightDate", TZI.DaylightDate
, "A date and local time when the transition from standard time to daylight saving time occurs on this operating system.")
LV_Add("", "DaylightDate (UTC)", TZI.DaylightDateUTC
, "Calculated UTC date and time.")
LV_Add("", "DaylightBias", TZI.DaylightBias
, "This value is added to the value of the Bias member to form the bias used during daylight saving time.")
Loop, 3
LV_ModifyCol(A_Index, "AutoHdr")
Gui, Show, , TZI for %Year%
Return
GuiClose:
GuiEscape:
ExitApp
; ----------------------------------------------------------------------------------------------------------------------------------
; GetTimeZoneInformationForYear -> msdn.microsoft.com/en-us/library/bb540851(v=vs.85).aspx (Win Vista+)
; ----------------------------------------------------------------------------------------------------------------------------------
TZI_GetFromYear(Year) {
If Year Is Not Integer
Return 0
If Year Is Not Date
Return 0
Year := SubStr(Year, 1, 4)
VarSetCapacity(TZI, 172, 0)
If !DllCall("GetTimeZoneInformationForYear", "UShort", Year, "Ptr", 0, "Ptr", &TZI, "Int")
Return 0
R := {}
R.Bias := NumGet(TZI, "Int")
R.StandardName := StrGet(&TZI + 4, 32, "UTF-16")
ST := New TZI_SYSTEMTIME(&TZI + 68)
; If ST.Year is not zero the date is fix. Otherwise, the date is variable and must be calculated.
; ST.WDay contains the weekday and ST.Day the occurrence within ST.Month (5 = last) in this case.
If (ST.Year = 0) {
ST.Year := Year
ST.Day := TZI_GetWDayInMonth(ST.Year, ST.Month, ST.WDay, ST.Day)
}
R.StandardDate := ST.TimeStamp
R.StandardBias := NumGet(TZI, 84, "Int")
R.DaylightName := StrGet(&TZI + 88, 32, "UTF-16")
ST := New TZI_SYSTEMTIME(&TZI + 152)
If (ST.Year = 0) {
ST.Year := Year
ST.Day := TZI_GetWDayInMonth(ST.Year, ST.Month, ST.WDay, ST.Day)
}
R.DaylightDate := ST.TimeStamp
R.DaylightBias := NumGet(TZI, 168, "Int")
; Calculate the UTC values for StandardDate and DaylightDate
UTCBias := R.Bias + R.DaylightBias ; StandardDate
UTCDate := R.StandardDate
UTCDate += UTCBias, M
R.StandardDateUTC := UTCDate
UTCBias := R.Bias + R.StandardBias ; DaylightDate
UTCDate := R.DaylightDate
UTCDate += UTCBias, M
R.DaylightDateUTC := UTCDate
Return R
}
; ----------------------------------------------------------------------------------------------------------------------------------
TZI_GetWDayInMonth(Year, Month, WDay, Occurence) {
YearMonth := Format("{:04}{:02}01", Year, Month) ; bugfix
If YearMonth Is Not Date
Return 0
If WDay Not Between 1 And 7
Return 0
If Occurence Not Between 1 And 5 ; 5 = last occurence
Return 0
FormatTime, WD, %YearMonth%, WDay
While (WD <> WDay) {
YearMonth += 1, D
FormatTime, WD, %YearMonth%, WDay
}
While (A_Index <= Occurence) && (SubStr(YearMonth, 5, 2) = Month) {
Day := SubStr(YearMonth, 7, 2)
YearMonth += 7, D
}
Return Day
}
; ----------------------------------------------------------------------------------------------------------------------------------
Class TZI_SYSTEMTIME {
__New(Pointer) { ; a pointer to a SYSTEMTIME structure
This.Year := NumGet(Pointer + 0, "Short")
This.Month := NumGet(Pointer + 2, "Short")
This.WDay := NumGet(Pointer + 4, "Short") + 1 ; DayOfWeek is 0 (Sunday) thru 6 (Saturday) in the SYSTEMTIME structure
This.Day := NumGet(Pointer + 6, "Short")
This.Hour := NumGet(Pointer + 8, "Short")
This.Min := NumGet(Pointer + 10, "Short")
This.Sec := NumGet(Pointer + 12, "Short")
This.MSec := NumGet(Pointer + 14, "Short")
}
TimeStamp[] { ; TimeStamp YYYYMMDDHH24MISS
Get {
Return Format("{:04}{:02}{:02}{:02}{:02}{:02}", This.Year, This.Month, This.Day, This.Hour, This.Min, This.Sec)
}
Set {
Return ""
}
}
}; ===================================================================================
; AHK Version ...: AHK_L 0.1.48+ x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Time() - Count Days, hours, minutes, seconds between dates
; Modified ......: ????
; Author ........: HotKeyIt
; Licence .......: ????
; Source ........: https://autohotkey.com/board/topic/42668-time-count-days-hours-minutes-seconds-between-dates/
; ===================================================================================
#NoEnv
SetBatchLines,-1
MsgBox % "Count days from 12 May until 15 May`n"
. Time("May-15","12.May","d")
MsgBox % "Working hours from 01.05.2009 00:00:00 to 10.05.09 09:30:00`n"
. "Count only working hours from 09 to 17 and consider weekends and 01.May bank holiday`n"
. Time("20090504093000","20090501000000","h","W1.7 H9-17 B0105")
MsgBox % "Days to work till end of 2009`n" . Time("01.01.2010","","d","W1.7")
MsgBox % "Hours to work till end of 2009 from 09 - 17`n" . Time("01.01.2010","","h","W1.7 H9-17")
ExitApp
Time(to,from="",units="d",params=""){
static _:="0000000000",s:=1,m:=60,h:=3600,d:=86400
,Jan:="01",Feb:="02",Mar:="03",Apr:="04",May:="05",Jun:="06",Jul:="07",Aug:="08",Sep:="09",Okt:=10,Nov:=11,Dec:=12
r:=0
units:=units ? %units% : 8640
If (InStr(to,"/") or InStr(to,"-") or InStr(to,".")){
Loop,Parse,to,/-.,%A_Space%
_%A_Index%:=RegExMatch(A_LoopField,"\d+") ? A_LoopField : %A_LoopField%
,_%A_Index%:=(StrLen(_%A_Index%)=1 ? "0" : "") . _%A_Index%
to:=SubStr(A_Now,1,8-StrLen(_1 . _2 . _3)) . _3 . (RegExMatch(SubStr(to,1,1),"\d") ? (_2 . _1) : (_1 . _2))
_1:="",_2:="",_3:=""
}
If (from and InStr(from,"/") or InStr(from,"-") or InStr(from,".")){
Loop,Parse,from,/-.,%A_Space%
_%A_Index%:=RegExMatch(A_LoopField,"\d+") ? A_LoopField : %A_LoopField%
,_%A_Index%:=(StrLen(_%A_Index%)=1 ? "0" : "") . _%A_Index%
from:=SubStr(A_Now,1,8-StrLen(_1 . _2 . _3)) . _3 . (RegExMatch(SubStr(from,1,1),"\d") ? (_2 . _1) : (_1 . _2))
}
count:=StrLen(to)<9 ? "days" : StrLen(to)<11 ? "hours" : StrLen(to)<13 ? "minutes" : "seconds"
to.=SubStr(_,1,14-StrLen(to)),(from ? from.=SubStr(_,1,14-StrLen(from)))
Loop,Parse,params,%A_Space%
If (unit:=SubStr(A_LoopField,1,1))
%unit%1:=InStr(A_LoopField,"-") ? SubStr(A_LoopField,2,InStr(A_LoopField,"-")-2) : ""
,%unit%2:=SubStr(A_LoopField,InStr(A_LoopField,"-") ? (InStr(A_LoopField,"-")+1) : 2)
count:=!params ? count : "seconds"
add:=!params ? 1 : (S2="" ? (M2="" ? (H2="" ? ((D2="" and B2="" and W="") ? d : h) : m) : s) : s)
While % (from<to){
FormatTime,year,%from%,YYYY
FormatTime,month,%from%,MM
FormatTime,day,%from%,dd
FormatTime,hour,%from%,H
FormatTime,minute,%from%,m
FormatTime,second,%from%,s
FormatTime,WDay,%from%,WDay
EnvAdd,from,%add%,%count%
If (W1 or W2){
If (W1=""){
If (W2=WDay or InStr(W2,"." . WDay) or InStr(W2,WDay . ".")){
Continue=1
}
} else If WDay not Between %W1% and %W2%
Continue=1
;else if (Wday=W2)
; Continue=1
If (Continue){
tempvar:=SubStr(from,1,8)
EnvAdd,tempvar,1,days
EnvSub,tempvar,%from%,seconds
EnvAdd,from,%tempvar% ,seconds
Continue=
continue
}
}
If (D1 or D2 or B2){
If (D1=""){
If (D2=day or B2=(day . month) or InStr(B2,"." . day . month) or InStr(B2,day . month . ".") or InStr(D2,"." . day) or InStr(D2,day . ".")){
Continue=1
}
} else If day not Between %D1% and %D2%
Continue=1
;else if (day=D2)
; Continue=1
If (Continue){
tempvar:=SubStr(from,1,8)
EnvAdd,tempvar,1,days
EnvSub,tempvar,%from%,seconds
EnvAdd,from,%tempvar% ,seconds
Continue=
continue
}
}
If (H1 or H2){
If (H1=""){
If (H2=hour or InStr(H2,hour . ".") or InStr(H2,"." hour)){
Continue=1
}
} else If hour not Between %H1% and %H2%
continue=1
;else if (hour=H2)
; continue=1
If (continue){
tempvar:=SubStr(from,1,10)
EnvAdd,tempvar,1,hours
EnvSub,tempvar,%from%,seconds
EnvAdd,from,%tempvar% ,seconds
continue=
continue
}
}
If (M1 or M2){
If (M1=""){
If (M2=minute or InStr(M2,minute . ".") or InStr(M2,"." minute)){
Continue=1
}
} else If minute not Between %M1% and %M2%
continue=1
;else if (minute=M2)
; continue=1
If (continue){
tempvar:=SubStr(from,1,12)
EnvAdd,tempvar,1,minutes
EnvSub,tempvar,%from%,seconds
EnvAdd,from,%tempvar% ,seconds
continue=
continue
}
}
If (S1 or S2){
If (S1=""){
If (S2=second or InStr(S2,second . ".") or InStr(S2,"." second)){
Continue
}
} else if (second!=S2)
If second not Between %S1% and %S2%
continue
}
r+=add
}
tempvar:=SubStr(count,1,1)
tempvar:=%tempvar%
Return (r*tempvar)/units
}; ===================================================================================
; AHK Version ...: AHK_L 1.1.15.03 x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Last Day of Month
; Calculates number of days of a given month
; Modified ......: ????
; Author ........: Laszlo/Skan
; Licence .......: ????
; Source ........: http://www.autohotkey.com/board/topic/7984-ahk-functions-incache-cache-list-of-recent-items/?p=51188
; ===================================================================================
; ******* Start of Example *********************************************************
MsgBox % LDOM(200601)
MsgBox % LDOM(200602)
MsgBox % LDOM(200612)
MsgBox % LDOM(200002)
; ******* End of Example ***********************************************************
LDOM(TimeStr="") {
If TimeStr=
TimeStr = %A_Now%
StringLeft Date,TimeStr,6 ; YearMonth
Date1 = %Date%
Date1+= 31,D ; A day in next month
StringLeft Date1,Date1,6 ; YearNextmonth
Date1-= %Date%,D ; Difference in days
Return Date1
};**** Function IsLeapYear(Year)
;**** Checks if a year (format YYYY) is a leap year
;**** Returns 1 if yes, else 0, -1 if wrong format
;**** by jNizM - http://ahkscript.org/boards/viewtopic.php?p=10222#p10222
IsLeapYear(Year)
{
return !Mod(Year, 100) && !Mod(Year, 400) || !Mod(Year, 4)
}/*
DayofDate() by Avi Aryan
Gives the day (Sunday, Mon..) of a requested date
Based on Zeller's Algorithm
http://en.wikipedia.org/wiki/Determination_of_the_day_of_the_week#Zeller.E2.80.99s_algorithm
Thanks to polyethene for DateParse()
Licensed under Apache License v2.0
-------------------------------------------------------------------------------------------------
msgbox,% DayofDate("6 June 2013")
msgbox,% DayofDate(A_Now)
msgbox,% DayofDate("2013") ;Day of 1st Jan 2013
*/
DayofDate(Date){
if Date is Not Integer
Date := DateParse(Date) ;parse to format
Year := SubStr(Date,1,4) , Month := (Month := Substr(Date, 5, 2)) ? Month : 01 , Day := (Day := Substr(Date,7,2)) ? Day : 01
if (Month = 1 or Month = 2)
Year-=1 , Month+=12 ;a/c Zeller's
last2ofy := Substr(Year, -1) , first2ofy := Substr(Year, 1, 2)
dayindex := Mod( Day + Floor((Month+1)*2.6) + last2ofy + Floor(last2ofy/4) + Floor(first2ofy/4) - 2*first2ofy , 7 )
static nameofdays := "Saturday,Sunday,Monday,Tuesday,Wednesday,Thursday,Friday"
day := Substr( nameofdays, startpos := Instr(nameofdays, ",", false, 1, dayindex)+1 , dayindex=6 ? 999999 : Instr(nameofdays, ",", false, 1, dayindex+1)-startpos )
return day
}; ===================================================================================
; AHK Version ...: AHK_L 1.1.14.03 x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Get the weekday on any given date
; e.g. "1990-01-01" --> "Monday"
; Modified ......: 2014.04.15-0925
; Author ........: jNizM
; Licence .......: WTFPL (http://www.wtfpl.net/txt/copying/)
; Source ........: https://github.com/jNizM/AutoHotkey_Scripts/blob/master/Functions/Others/GetWeekday.ahk
; ===================================================================================
; GLOBAL SETTINGS ===================================================================
#Warn
#NoEnv
#SingleInstance Force
; SCRIPT ============================================================================
MsgBox, % GetWeekday(1, 1, 1990) ; 1990-01-01 --> Monday
MsgBox, % GetWeekday(4, 15, 2014) ; 2014-04-15 --> Tuesday
MsgBox, % GetWeekday(9, 9, 1999) ; 1999-09-09 --> Thursday
; FUNCTIONS =========================================================================
GetWeekday(month, day, year)
{
static WeekDay := ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"]
d := day, m := month, y := year
if (m < 3)
{
m += 12
y -= 1
}
wd := mod(d + (2 * m) + floor(6 * (m + 1) / 10) + y + floor(y / 4) - floor(y / 100) + floor(y / 400) + 1, 7) + 1
return WeekDay[wd]
}
; EXIT ==============================================================================
exitapp; ===================================================================================
; AHK Version ...: AHK_L 1.1.14.03 x64 Unicode
; Win Version ...: Windows 7 Professional x64 SP1
; Description ...: Converts almost any date format to a YYYYMMDDHH24MISS value.
; Modified ......: 2014.03.30
; Author ........: dougal/polyethene
; Licence .......: ???
; Source ........: http://www.autohotkey.com/board/topic/18760-date-parser-convert-any-date-format-to-yyyymmddhh24miss/page-6#entry640277
; ===================================================================================
; ******* Start of Example **********************************************************
; Add dates for testing with correct return value and test value using pipe separator
sDates =
( Comment
19600501|May1960
200711271435|2:35 PM, 27 November 2007
200402270455|4:55 am Feb 27, 2004
YYYYMMDD1126|11:26
20050219|19/2/05
YYYYMMDD1532|1532
20070626140912|2007-06-26T14:09:12Z
YYYYMMDD1435|2:35 PM
20071210|10/12/2007
20000105|05-Jan-00
20000105|Jan-05-00
20090817132333|Mon, 17 Aug 2009 13:23:33 GMT
20090315|3/15/2009
YYYYMMDD112224|11:22:24 AM
20090307134358|07 Mar 2009 13:43:58
20070627|Wed 6/27/2007
20120713131646|Fri, 13 Jul 2012 13:16:46 GMT
200706251852|2007-06-25 18:52
19600525|25May1960
20131231|Dec-31-13
20050219|19/2/05
20071210|10/12/2007
20090315|3/15/2009
20070627|Wed 6/27/2007
)
Loop, Parse, sDates, `n
{
StringSplit, aTemp, A_LoopField, % "|"
StringReplace, aTemp1, aTemp1, YYYYMMDD, %A_YYYY%%A_MM%%A_DD%
sDate := DateParse(aTemp2)
MsgBox, % aTemp2 "`n" sDate "`n`n" (aTemp1 = sDate ? "Correct" : "Error, should be:`n" aTemp1)
}
ExitApp
; ******* End of Example ***********************************************************
/*
Function: DateParse
Converts almost any date format to a YYYYMMDDHH24MISS value.
Parameters:
str - a date/time stamp as a string
Returns:
A valid YYYYMMDDHH24MISS value which can be used by FormatTime, EnvAdd and other time commands.
Example:
> time := DateParse("2:35 PM, 27 November, 2007")
License:
- Version 1.05 <http://www.autohotkey.net/~polyethene/#dateparse>
- Dedicated to the public domain (CC0 1.0) <http://creativecommons.org/publicdomain/zero/1.0/>
*/
/*
With modifications from http://www.autohotkey.com/board/topic/18760-date-parser-convert-any-date-format-to-yyyymmddhh24miss/page-5#entry561591
*/
/*
Modified return values:
Partial date returns
No month : nothing
No year and no day : nothing
Time and no day :nothing
Month and year without time : substitute 1st for day
Day and month : substitute current year
No date and time still substitutes current date
Allow no separator aorund named months (eg 25May60)
Only alphabetic Month name follow on characters to prevent month taking first 2 digits of 4 digit year if there are no separators eg in 25May1960 year group only gets 60 and becomes 2060
Separators relaxed, can be any character except letter or digit
Search for named months first to prevent number month incorrectly matching in "Feb 12 11" as day =12 month=11 and skipping named month match
With named months day or year are optional
If numeric month is > 12 and day is <= 12 swap month and day (probably american date)
*/
DateParse(str, americanOrder=0) {
static monthNames := "(?:Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)[a-zA-Z]*"
, dayAndMonth := "(\d{1,2})[^a-zA-Z0-9:.]+(\d{1,2})"
, dayAndMonthName := "(?:(?<Month>" . monthNames . ")[^a-zA-Z0-9:.]*(?<Day>\d{1,2})[^a-zA-Z0-9]+|(?<Day>\d{1,2})[^a-zA-Z0-9:.]*(?<Month>" . monthNames . "))"
, monthNameAndYear := "(?<Month>" . monthNames . ")[^a-zA-Z0-9:.]*(?<Year>(?:\d{4}|\d{2}))"
If RegExMatch(str, "i)^\s*(?:(\d{4})([\s\-:\/])(\d{1,2})\2(\d{1,2}))?(?:\s*[T\s](\d{1,2})([\s\-:\/])(\d{1,2})(?:\6(\d{1,2})\s*(?:(Z)|(\+|\-)?(\d{1,2})\6(\d{1,2})(?:\6(\d{1,2}))?)?)?)?\s*$", i) ;ISO 8601 timestamps
year := i1, month := i3, day := i4, t1 := i5, t2 := i7, t3 := i8
Else If !RegExMatch(str, "^\W*(\d{1,2}+)(\d{2})\W*$", t){
RegExMatch(str, "i)(\d{1,2})" ;hours
. "\s*:\s*(\d{1,2})" ;minutes
. "(?:\s*:\s*(\d{1,2}))?" ;seconds
. "(?:\s*([ap]m))?", t) ;am/pm
StringReplace, str, str, %t%
if RegExMatch(str, "Ji)" . dayAndMonthName . "[^a-zA-Z0-9]*(?<Year>(?:\d{4}|\d{2}))?", d) ; named month eg 22May14; May 14, 2014; 22May, 2014
year := dYear, month := dMonth, day := dDay
else if Regexmatch(str, "i)" . monthNameAndYear, d) ; named month and year without day eg May14; May 2014
year := dYear, month := dMonth
else {
If Regexmatch(str, "i)(\d{4})[^a-zA-Z0-9:.]+" . dayAndMonth, d) ;2004/22/03
year := d1, month := d3, day := d2
Else If Regexmatch(str, "i)" . dayAndMonth . "(?:[^a-zA-Z0-9:.]+((?:\d{4}|\d{2})))?", d) ;22/03/2004 or 22/03/04
year := d3, month := d2, day := d1
If (RegExMatch(day, monthNames) or americanOrder and !RegExMatch(month, monthNames) or (month > 12 and day <= 12)) ;try to infer day/month order
tmp := month, month := day, day := tmp
}
}
f = %A_FormatFloat%
SetFormat, Float, 02.0
if (day or month or year) and not (day and month and year) ; partial date
if not month or not (day or month) or (t1 and not day) ; partial date must have month and day with time or day or year without time
return
else if not day ; without time use 1st for day if not present
day := 1
d := (StrLen(year) == 2 ? "20" . year : (year ? year : A_YYYY))
. ((month := month + 0 ? month : InStr(monthNames, SubStr(month, 1, 3)) // 4 ) > 0 ? month + 0.0 : A_MM)
. ((day += 0.0) ? day : A_DD)
. t1 + (t1 == 12 ? t4 = "am" ? -12.0 : 0.0 : t4 = "pm" ? 12.0 : 0.0)
. t2 + 0.0 . t3 + 0.0
SetFormat, Float, %f%
return, d
}; Calculating date of christian easter and subsequent christian feasts
;
; The following feasts are calculated:
; * Christian Easter
; * Ash Wednesday
; * Ascension Day
; * Whitsunday
; * Corpus Christi
;
; Author: hoppfrosch @ hoppfrosch@gmx.de
; Version: 1.0.1
; Date: 04.06.2009
; see: http://www.autohotkey.com/board/topic/41342-func-calculating-date-of-christian-easter/
;
; Restrictions: Works only between 1700.A.D and 9999 A.D due to restrictions of FormatTime
; ------------------------
year = 2011
easterdate := easter(year)
ashwednesdaydate := ashwednesday(year)
ascensiondaydate := ascensionday(year)
whitsundaydate := whitsunday(year)
corpuschristidate := corpuschristi(year)
MsgBox,
(
Year %year%
Christian Easter: %easterdate%
Ash Wednesday: %ashwednesdaydate%
Ascension Day: %ascensiondaydate%
Whitsunday: %whitsundaydate%
Corpus Christi: %corpuschristidate%
)
return
easter(year) {
; Saekularzahl: K(X) = X div 100
k := Floor(year/100)
; saekulare Mondschaltung: M(K) = 15 + (3K + 3) div 4 - (8K + 13) div 25
m := 15 + floor((3 * k + 3)/4) - floor((8 * k + 13)/25)
; saekulare Sonnenschaltung: S(K) = 2 - (3K + 3) div 4
s := 2 - floor((3 * k + 3)/4)
; Mondparameter: A(X) = X mod 19
a := Mod(year,19)
; Keim fuer den ersten Vollmond im Fruehling: D(A,M) = (19A + M) mod 30
d := Mod((19 * a + m), 30)
; kalendarische Korrekturgroesse: R(D,A) = D div 29 + (D div 28 - D div 29) (A div 11)
r := floor(d/29) + (floor(d/29)-floor(d/28))*floor(a/11)
; Ostergrenze: OG(D,R) = 21 + D - R
og := 21 + d - r
; erster Sonntag im Maerz: SZ(X,S) = 7 - (X + X div 4 + S) mod 7
sz := 7 - Mod((year + Floor(year/4) + s),7)
; Osterentfernung in Tagen): OE(OG,SZ) = 7 - (OG - SZ) mod 7
oe := 7 - Mod((og - sz),7)
; Datum des Ostersonntags als Märzdatum: OS = OG + OE
os := og + oe
; Korrektur um 1 Tag noetig, da man vom 01.03 ausgeht
os := os - 1
result = %year%0301
EnvAdd, result, %os%, days
return result
}
ashwednesday(year) {
result := easter(year)
EnvAdd, result, -46, days
return result
}
ascensionday(year) {
result := easter(year)
EnvAdd, result, 39, days
return result
}
whitsunday(year) {
result := easter(year)
EnvAdd, result, 49, days
return result
}
corpuschristi(year) {
result := easter(year)
EnvAdd, result, 60, days
return result
}