atxt = '零一二三四五六七八九十'
outcaption = ""
DO CASE 
    CASE VAL(SUBSTR(TIME(),1,2))<10
        outcaption = outcaption +SUBSTR(atxt,VAL(SUBSTR(TIME(),1,1))*2+1,2)
    CASE VAL(SUBSTR(TIME(),1,2)) < 20
        outcaption = outcaption +"十"
        outcaption = outcaption + SUBSTR(atxt,VAL(SUBSTR(TIME(),2,1))*2+1,2)
    OTHERWISE 
        outcaption = outcaption + "二十"
        outcaption = outcaption + SUBSTR(atxt,VAL(SUBSTR(TIME(),2,1))*2+1,2)
ENDCASE
outcaption = outcaption + "点"
mm = VAL(SUBSTR(TIME(),4,2))
DO CASE
    CASE mm < 10
        outcaption = outcaption + '零'
        outcaption = outcaption +SUBSTR(atxt,VAL(SUBSTR(TIME(),5,1))*2+1,2)
    CASE mm < 20
        outcaption = outcaption +"十"
        outcaption = outcaption + SUBSTR(atxt,VAL(SUBSTR(TIME(),5,1))*2+1,2)
    OTHERWISE 
        outcaption = outcaption + SUBSTR(atxt,VAL(SUBSTR(TIME(),4,1))*2+1,2)
        outcaption = outcaption + "十"
        outcaption = outcaption + SUBSTR(atxt,VAL(SUBSTR(TIME(),5,1))*2+1,2)
ENDCASE
outcaption = outcaption + '分'
?outcaption