_isdi.prg

来自「门诊收费管理系统」· PRG 代码 · 共 25 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: _ISDI.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER _STRING
 LOCAL I , _RETU
 _RETU = .T.
 IF TYPE('m._string') = 'N'
    RETURN .T.
 ENDIF 
 IF TYPE('m._string') = 'U'
    RETURN .F.
 ENDIF 
 _STRING = _TYPE(M._STRING,'C')
 _STRING = ALLTRIM(M._STRING)
 FOR I = 1 TO LEN(_STRING)
    IF  .NOT. BETWEEN(ASC(SUBSTR(_STRING,M.I,1)),48,57)
       _RETU = .F.
       EXIT 
    ENDIF 
 ENDFOR 
 RETURN _RETU
*