| 1234567891011121314151617181920212223242526272829303132333435 |
- $PBExportHeader$f_tb_emscode.srf
- global type f_tb_emscode from function_object
- end type
- forward prototypes
- global function string f_tb_emscode (string p1, string p2, string p3)
- end prototypes
- global function string f_tb_emscode (string p1, string p2, string p3);String rslt = ''
- rslt = p1 + p2
- Long tmp = 0
- tmp += Long(Mid(rslt,3,1)) * 8
- tmp += Long(Mid(rslt,4,1)) * 6
- tmp += Long(Mid(rslt,5,1)) * 4
- tmp += Long(Mid(rslt,6,1)) * 2
- tmp += Long(Mid(rslt,7,1)) * 3
- tmp += Long(Mid(rslt,8,1)) * 5
- tmp += Long(Mid(rslt,9,1)) * 9
- tmp += Long(Mid(rslt,10,1)) * 7
- tmp = 11 - Mod(tmp, 11)
- IF tmp = 10 THEN
- tmp = 0
- ELSEIF tmp = 11 THEN
- tmp = 5
- END IF
- rslt += string(tmp) + p3
- RETURN rslt
- end function
|
