delphi 如何按excel表 公式 转化代码写出来

Question

1、excel 表公式：=--MID($E3027,MIN(FIND({1,2,3,4,5,6,7,8,9,0},$E3027&1234567890)),2)
如：I4BX30L6I3、B25G3K0 、S30G3K 结果 ：30 、25 、30

2.excel 表公式：=--MID($E3037,MIN(FIND({"T","I","J","G","W","N"},$E3037&"TIGJWN"))+1,1)

如I4BX30L6I3 、B25G3K0 、 S30G3K 结果 ：4 、3 、3

Answer 1

http://jingyan.baidu.com/article/215817f7ee75a01edb142375.html