... InStr(Cgoc1, kti) If vt1 <> 0 Then kq = kq & Mid(Cma1, 1 + ((vt1 - 1) \ 6) * 2, 2) xd = xd & Mid(Cma1, 25 + ((4 + vt1) Mod 6) * 2, 2) Else vt2 = InStr(Cgoc2, kti) If vt2 <> ... 4.94 06 5 6458 4 12 47E- 324 to 1. 79 769 313 4 8 62 32E 308 . Chi m 8 bytes bộ nhớ. Currency Kiểu tiền tệ. Bản chất là kiểu số, độ lớn 8 bytes, c giá trị trong khoảng - 922 ,337, 20 3 ,68 5,477.5 808 to 922 ,337, 20 3 ,68 5,477.5 807 . ... "aaabacadaeafagahaiajakalamanaoapaqarasatauavawaxayazbabbbcbdbebfbgbhbibjbkblbmbnbobpbqbrbsbtbubvbwbxbybzcccbcccdcecfcgchcicjckclcmcn" kq = "" xd = "" For i = 1 To Len(Ckt) kti = Mid(Ckt, i, 1) vt1 = InStr(Cgoc1,...