#include <Date.au3>

; Сегодня в Юлианском календаре
$sJulDate = _DateToDayValue (@YEAR, @MON, @MDAY)
MsgBox(4096, "", "Сегодня в Юлианском календаре: " & $sJulDate)

; вычисление даты на 14 ранее
Dim $Y, $M, $D
$sJulDate = _DayValueToDate ($sJulDate-14, $Y, $M, $D)
MsgBox(4096, "", "14 дней ранее:" & $M & "/" & $D & "/" & $Y & "  (" & $sJulDate & ")")