DIM FAM_I_O as string
IF instr (1,FIO,"-",3)<>0 then
' тута будут оглы
FAM_I_O = left(FIO,instr (1,FIO," ",3)) & mid(instr (1,FIO," ",3))
else
' тута без оглов
FAM_I_O = left(FIO,instr (1,FIO," ",3)) & mid(instr (1,FIO," ",3)+1,1) & mid(instr (instr (1,FIO," ",3)+1,FIO," ",3)+1,1)
end if
|