PB生成连续的数字里跳过4的算法
//====================================================================// 事件: .isfour()
//--------------------------------------------------------------------
// 描述:在连续的数字里跳过4的算法，PB8下测试通过
//--------------------------------------------------------------------
// 参数:
// value integer i
//--------------------------------------------------------------------
// 返回:integer
//--------------------------------------------------------------------
// 作者: 郝晓宗 ehxz@yeah.net 日期: 2010年06月08日
//--------------------------------------------------------------------
// Copyright (c) 2002-2018, All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
String ls_i
Int li_i,li_i1,li_i2
i++
ls_i = String(i)
li_i1 = Pos(ls_i,'4')
IF li_i1 >= 1 THEN
li_i = Len(ls_i)
li_i2 = li_i - li_i1
i = i + 10^li_i2
END IF
RETURN i
页:
[1]