if (substr($this_dat,0,4) eq substr($that_date,0,4) {