成绩的字符到数值.prg

田径运动会管理系统RAR 用VFP编写

*!*	FUNCTION chartodata
*!*	PARAMETERS xmdm,cj_disp
s=0
f=0
m=0
cj=ALLTRIM(cj_disp)
IF LEFT(ALLTRIM(xmdm),1)='J'
changdu=LEN(cj)    &&***去除字符串前后的空格
IF changdu<=5
   cjz=VAL(cj)      &&注意这时的成绩录入时要写室外整~！
ELSE 
   IF changdu<=8
      IF changdu=7
      f=VAL(LEFT(cj,1))
      ENDIF
      IF changdu=8
      f=VAL(LEFT(cj,2))
      ENDIF
      m=VAL(RIGHT(cj,5))
    ELSE
      IF changdu=10
      s=VAL(LEFT(cj,1))
      f=VAL(SUBSTR(cj,3,4))
      m=VAL(RIGHT(cj,5))
      endif
      IF changdu>10
      MESSAGEBOX('这个成绩处理不了，超过了10位数了！)
      ENDIF
    ENDIF
    cjz=s*3600+f*60+m
ENDIF
ELSE
IF LEFT(ALLTRIM(xmdm),1)='T'.or.LEFT(ALLTRIM(xmdm),1)='Q'
  cjz=VAL(cj)
ENDIF
ENDIF
*!*	RETURN cjz
?cjz