simple date calculator

[nacerbaaziz]

it recomended to use the builten function

_DateDiff

 

 

 

hello autoit team
i made a simple function to help me get the difference between to date
i liked to share it with you
the paramatrs of this function
is firstdate and lastedate
the two params is as the following
year/month/day hours:minuts:seconds
here is the function
 

expandcollapse popup

#include <date.au3>
func _dateBetween($s_firstDate, $s_lastDate = default)
if not (StringRegExp($s_firstDate, "((\d{4})\/(\d{2})\/(\d{2})\s(\d{2})\:(\d{2})\:(\d{2}))", 0) = 1) then Return SetError(1, 0, 0)
if $s_lastDate = default then $s_lastDate = @year & "/" & @mon & "/" & @mday & " " & @hour & ":" & @min & ":" & @sec
if not (StringRegExp($s_lastDate, "((\d{4})\/(\d{2})\/(\d{2})\s(\d{2})\:(\d{2})\:(\d{2}))", 0) = 1) then Return SetError(2, 0, 0)

local $a_FirstSplitDate = StringSplit(StringRegExpReplace($s_firstDate, "((.*)\s(.*))", "$2"), "/", 2)
local $a_FirstSplitTime = StringSplit(StringRegExpReplace($s_firstDate, "((.*)\s(.*))", "$3"), ":", 2)

local $a_lastSplitDate = StringSplit(StringRegExpReplace($s_lastDate, "((.*)\s(.*))", "$2"), "/", 2)
local $a_LastSplitTime = StringSplit(StringRegExpReplace($s_lastDate, "((.*)\s(.*))", "$3"), ":", 2)
local $i_firstDateValue =  _DateToDayValue($a_FirstSplitDate[0], $a_FirstSplitDate[1], $a_FirstSplitDate[2])
local $i_LastDateValue =  _DateToDayValue($a_LastSplitDate[0], $a_LastSplitDate[1], $a_LastSplitDate[2])
if $i_firstDateValue > $i_LastDateValue then Return SetError(3, 0, 0)

local $i_totalDays = $i_LastDateValue-$i_firstDateValue
if not ($i_totalDays = 0) then
if $a_FirstSplitTime[0] <= $a_lastSplitTime[0] then
$i_totalDays += 1
$a_lastSplitTime[0] -= $a_FirstSplitTime[0]
elseIf $a_FirstSplitTime[0] > $a_lastSplitTime[0] then
if $i_totalDays > 0 then 
$i_totalDays -= 1
$a_FirstSplitTime[0] -= $a_lastSplitTime[0]
endIf
endIf
endIf

local $i_totalYears = 0
if $i_totalDays >= 365 then
While $i_totalDays >= 365
$i_totalYears += 1
$i_totalDays -= 365
Wend
endIf

local $i_TotalMonths = 0
if $i_totalDays >= 30 then
While $i_totalDays >= 30
$i_totalMonths += 1
$i_totalDays -= 30
Wend
endIf

local $i_totalWeeks = 0
if $i_totalDays >= 7 then
While $i_totalDays >= 7
$i_totalWeeks += 1
$i_totalDays -= 7
Wend
endIf

$i_totalSeconds = ((($a_FirstSplitTime[0]*60)*60)+($a_FirstSplitTime[1]*60)+($a_FirstSplitTime[2]))-((($a_lastSplitTime[0]*60)*60)+($a_lastSplitTime[1]*60)+($a_LastSplitTime[2]))
local $minus = ""
if $i_totalSeconds  < 0 then 
$minus = "-"
$i_totalSeconds = StringReplace($i_totalSeconds, "-", "")
endIf
local $i_totalHours = 0
if $i_totalSeconds >= 3600 then
While $i_totalSeconds >= 3600
$i_totalHours += 1
$i_totalSeconds -= 3600
Wend
endIf

local $i_totalminuts = 0
if $i_totalSeconds >= 60 then
While $i_totalSeconds >= 60
$i_totalminuts += 1
$i_totalSeconds -= 60
Wend
endIf
local $a_arrayReturn[7]
$a_arrayReturn[0] = $i_totalYears
$a_arrayReturn[1] = $i_totalMonths
$a_arrayReturn[2] = $i_totalWeeks
$a_arrayReturn[3] = $i_totalDays
$a_arrayReturn[4] = $minus & $i_totalHours
$a_arrayReturn[5] = $minus & $i_totalminuts
$a_arrayReturn[6] = $minus & $i_totalSeconds
return $a_arrayReturn
endFunc

 

here is an example

 

 

$a_calc = _dateBetween("2015/02/12 23:00:05", "2030/02/12 23:25:50")
msgBox(64, "result", StringFormat("the difference is : %i years and %i months and %i weeks and %i days and %i hours and %i minuts and %i seconds", $a_calc[0], $a_calc[1], $a_calc[2], $a_calc[3], $a_calc[4], $a_calc[5], $a_calc[6]))

 

am waiting for your comments

with my greetings

Edited October 22, 2020 by nacerbaaziz

[JLogan3o13]

What does this buy you that the built-in _DateDiff does not?

[jchd]

Also not all months are 30 days, not all years are 365 days, + what @JLogan3o13 just wrote.

[nacerbaaziz]

sorry i does not take care to the built function

because i did not found it in the example files

am sorry.

thanks for let me know

[JLogan3o13]

That would be the benefit of actually reading the help file