$DoW = $gdate % 7;