[решено] Прошло лет, месяцев, дней [Версия для КПК]

-TRM-

14-01-2021, 18:26

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

Iska

14-01-2021, 19:26

Ну, например:
#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)