Cómo utilizar la programación VBA de Excel para implementar la siguiente lógica de procesamiento (encontrar edad)
for(int I = 1;i<= n;i++){
cadena str = Rango(Ai);
Año de nacimiento de la cadena;
if( str.length()==18){
AñoNacimiento = str.substring(6, 4);
}
else if(str. length( )= = 15){
año de nacimiento = " 19 "+str subcadena(6, 2);
}
Rango(Bi) =Actual. año - año de nacimiento;
}
Modificar de la siguiente manera:
Marcar I como un número entero
atenuar cadena como cadena
Año de nacimiento difuso en forma de cadena
Dim N N como número entero debe conocerse de antemano aquí.
N = * * *' * * es el número N de línea al que fuiste An.
Para i=1 a N
str = range(" A " & n)
Si len(str)=18, entonces
p>Año de nacimiento = mid(str, 6, 4)
elseif len(str)=15 entonces
Año de nacimiento = "19" & mid(str, 6 , 2)
Terminará si...
Rango (" B " & ampn) = año-val (año de nacimiento)