FunctionCountstr (Str1 ، Str2) DIMTMP ، أنا ، ي IFSTR1 = "" Orisnull (Str1) ثم J = 0 elseifstr2 = "" orisnull (str2) ثم J = 1 آخر TMP = انقسام (Str1 ، Str2) J = 0 fori = 0toubound (TMP) IFTMP (i) <> "" therj = j+1 التالي Endif countstr = j الوظيفية
