Anybody could have made this. This is freakin' common...
Then again, if you want to combine and improve it a bit:
on $*:text:/^!(time|date)$/iS:#:{
.msg # The current $iif($regml(1) = time,$v1,date) here is $iif($regml(1) = date,$&
$time(mm/dd/yyyy) - The order is Month/Day/Year,$time(hh:nn:ss TT) - Timezone is $time(zzz))
}
A flood trigger control is needed though...