a:="O一二三四五六七八九十"; riqi := @Text(Date); year:=@Left(riqi;4); month:=@Middle(riqi;5;2); day:=@Middle(riqi;8;2);