alias confirmdate {
return $iif($regex($1-,/(?:1/[0-2]\d|1/3[0-1]|2/[0-2]\d|3/[0-2]\d|3/3[0-1]|4/[0-2]\d|4/30|5/[0-2]\d|5/3[0-1]|6/[0-2]\d|6/30|7/[0-2]\d|7/3[0-1]|8/[0-2]\d|8/3[0-1]|9/[0-2]\d|9/30|10/[0-2]\d|10/3[0-1]|11/[0-2]\d|11/30|12/[0-2]\d|12/3[0-1])/\d{4} (?:1[0-2]|\d)\:[0-6]{2}\:[0-6]{2} (?:PM|AM)/) == 1,$true,$false)
}