$Hr = 60;
$NWDay = 29*$Hr+72; // = 1812
$NWMon = 40 * $NWDay; // = 72480
$NWYear = 11 * $NWMon; // = 797280
$OWDay = 24*60;

$DeltaOldWorld_days = intval ( ( mktime($CurrentHrs, $CurrentMins, 0,$CurrentMon,$CurrentDay,$CurrentYear) - mktime(0, 0, 0,1,6,1973) ) / (60*60*24), 1) ; // получаем из секунд дни

$Delta = $DeltaOldWorld_days * $OWDay + ($CurrentHrs - 1) * $Hr + $CurrentMins - 24;

$NewWorldYear = div( $Delta, $NWYear ) + 1;

$DeltaYear = mod( $Delta, $NWYear );

$NewWorldMon = div($DeltaYear, $NWMon) + 1;

$DeltaMon = mod($DeltaYear, $NWMon);

$NewWorldDay = div($DeltaMon, $NWDay) + 1;

$DeltaDay = mod($DeltaMon, $NWDay);

$NewWorldHrs = div($DeltaDay, $Hr);

$NewWorldMins = mod($DeltaDay, $Hr);

$NewDayOfWeek = mod( (1+$NewWorldDay+40*($NewWorldMon-1)+440*($NewWorldYear-1)),7);

DeltaOldWorldDays = 19/08/2003 - 6/1/1973 = 11182
Delta = 11182 * 1440 + (0-1)*60 + (0-24) = 16101996

NewWorldYear = 16101996 div 797280 + 1 = 21
DeltaYear = 16101996 mod 797280 = 156396

NewWorldMon = 156396 div 72480 + 1 = 3
DeltaMon = 156396 mod 72480 = 11436

NewWorldDay = 11436 div 1812 + 1 = 7
DeltaDay = 11436 mod 1812 = 564

NewWorldHrs = 564 div 60 = 9
NewWorldMins = 564 mod 60 = 24

DeltaOldWorldDays = 19/08/2003 - 6/1/1973 = 11182
Delta = 11182 * 1440 + (13-1)*60 + (0-24) = 16102776

NewWorldYear = 16102716 div 797280 + 1 = 21
DeltaYear = 16102716 mod 797280 = 157176

NewWorldMon = 157176 div 72480 + 1 = 3
DeltaMon = 157176 mod 72480 = 12216

NewWorldDay = 12216 div 1812 + 1 = 7
DeltaDay = 12216 mod 1812 = 1344

NewWorldHrs = 1344 div 60 = 22
NewWorldMins = 1344 mod 60 = 24