* 程序功能：中文时间(十九时五分二十六秒)转换为数字时间(19:05:26)
* 注：该程序稍加修改可用于中文日期转换为数字日期
lcStr="零,00;一,01;二,02;三,03;四,04;五,05;六,06;七,07;八,08;九,09;十,10;";
+"十一,11;十二,12;十三,13;十四,14;十五,15;十六,16;十七,17;十八,18;十九,19;二十,20;";
+"二十一,21;二十二,22;二十三,23;二十四,24;二十五,25;二十六,26;二十七,27;二十八,28;二十九,29;三十,30;";
+"三十一,31;三十二,32;三十三,33;三十四,34;三十五,35;三十六,36;三十七,37;三十八,38;三十九,39;四十,40;";
+"四十一,41;四十二,42;四十三,43;四十四,44;四十五,45;四十六,46;四十七,47;四十八,48;四十九,49;五十,50;";
+"五十一,51;五十二,52;五十三,53;五十四,54;五十五,55;五十六,56;五十七,57;五十八,58;五十九,59"
=ALines(Atime,Strtran(lcStr,";",Chr(13)+Chr(10)))
*List Memory like Atime
cStr="十九时二十五分二十六秒"
*- VFP6.0 -*
=ALines(Atime1,Chrtranc(cStr,"时分秒",chr(13)+chr(10)))
*- VFP9.0 -*
*=ALines(Atime1,cStr,"时","分","秒")
lcTime=""
For lnI=1 to Alen(Atime1)
    If Ascan(Atime,Atime1[lnI])>0
        lnJ=Ascan(Atime,Atime1[lnI])
        =ALines(Atime_a,Atime[lnJ],",")
        lcTime=lcTime+Iif(Empty(lcTime),"",":")+Atime_a[2]
    EndIf 
EndFor 
MessageBox(lcTime,0,"中文时间转换为数字时间")