while ($dj >= 1000) {
  $dj -= 1000;
} # while
$dj = sprintf("%02d", $dj);