[решено] Прошло лет, месяцев, дней - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Прошло лет, месяцев, дней (http://forum.oszone.net/showthread.php?t=347641)

Прошло лет, месяцев, дней

Приветствую, может у кого-то есть готовый скрипт?! Нужно вывести сообщение, сколько прошло лет, месяцев и дней (можно на англ.) от даты (к примеру "2019/02/03") по текущую дату.

Ну, например:

Код:

#include <Date.au3>



AutoItSetOption("MustDeclareVars", 1)





Local $dtOldDate = "1917/11/07" ; YYYY/MM/DD format

Local $dtNow     = _NowCalcDate()



Local $iCountYears  = _DateDiff('Y',                                                          $dtOldDate,   $dtNow)

Local $iCountMonths = _DateDiff('M', _DateAdd("Y", $iCountYears,                              $dtOldDate),  $dtNow)

Local $iCountDays   = _DateDiff('D', _DateAdd("M", $iCountMonths, _DateAdd("Y", $iCountYears, $dtOldDate)), $dtNow)



ConsoleWrite($iCountYears & " year(s) " & $iCountMonths & " month(s) and " & $iCountDays & " day(s) since " & _DateTimeFormat($dtOldDate, 1) & @CRLF)