编程逻辑处理(利达逻辑编程方法)

如何使用Excel的VBA编程实现如下的处理逻辑(求岁数)

for(inti=1;i<=n;i++){

Stringstr=Range(Ai);

StringbirthYear;

if(str.length()==18){

birthYear=str.substring(6,4);

elseif(str.length()==15){

birthYear="19"+str.substring(6,2);

Range(Bi)=currentYear-birthYear;

修改如下:

dimIasinteger

dimstrasstring

dimbirthYearasstring

dimNasinteger此处的N要事先知道

N=******是你到An的n行号

fori=1toN

str=range("A"&n)

iflen(str)=18then

birthyear=mid(str,6,4)

elseiflen(str)=15then

birthyear="19"&mid(str,6,2)

endif

range("B"&n)=year-val(birthyear)

本回答由提问者推荐

编程上的逻辑问题。

$a = [ 1, //公章 2, //账务章 3 //合同章];function select(array $b){$s = ;foreach ($b as $v){$s .= $v;}switch ($s){case 2:echo "财务部";break;case 1;case 3;case 13;echo "行政部";break;case 12;case 23;echo "财务部再到行政部";break;default;break;}}$c = [2,3];select($c);思路大概是这样的，我这个是php写的我试了下可以，不过不完善，你还要做很多其他的工作