[Maza Faka]

TERMINAL
Попробуй так:

Код:

#include <Date.au3>

Dim $Date

RegWrite("HKCU\Software\Data", "Key", "REG_SZ", @MDAY)
$Date = RegRead("HKCU\Software\Data", "Key")

$Date = _DateAdd("D", -1, _NowCalcDate())

$Date = StringRegExpReplace($Date, "^.*/", "")

MsgBox(0, "", StringFormat("%02i", $Date))