set a [clock format [clock seconds] -format "%Y/%m/%d"]
set b [clock format [clock seconds] -format "%H:%M"]
set c [clock format [clock seconds] -format "%A"]
if {$c == "Monday"} {set c 一}
if {$c == "Tuesday"} {set c 二}
if {$c == "Wednesday"} {set c 三}
if {$c == "Thursday"} {set c 四}
if {$c == "Friday"} {set c 五}
if {$c == "Saturday"} {set c 六}
if {$c == "Sunday"} {set c 日}
MOM_output_literal ";日期:星期$c $a $b"