Function Calculating Timespan in Years, Months, and Days

[Lawyer_ahk]

@gregster
Thank you , Sir.

[carno]

This counts Days between two dates:

Code: Select all

#SingleInstance Force ; Ensures that only the last executed instance of script is running
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases

Gui, Add, Text,, Prior Date:
Gui, Add, Text,, Post Date:
Gui, Add, Edit, vPr ym ; The ym option starts a new column of controls
Gui, Add, Edit, vpo
Gui, Add, Button, default, OK ; The label ButtonOK (if it exists) will run when the button is pressed
Gui, Show, w350, Enter Date in Format: YYYYMMDD
Return ; End of auto-execute section. The script is idle pending user's action

GuiClose:
ButtonOK:
Gui, Submit ; Save input from the user to each control's associated variable
EnvSub, po, %pr%, days

years := po // 365
remain_days := mod(po, 365)

months := remain_days // 30 ; Month taken as 30 days
remain_days := mod(remain_days, 30)

fortnights := remain_days // 15 ; Fortnight taken as 15 days
remain_days := mod(remain_days, 15)

weeks := remain_days // 7
days := mod(remain_days, 7 )

MsgBox % "Total days in between: " . po . "`n`n" . "Years: " . years . "`n" . "Months: " . months . "`n" . "Fortnights: " . fortnights . "`n" . "Weeks: " . weeks . "`n" . "Days: " . days

Clipboard := po

ExitApp

Esc::ExitApp