Hì hì, hoan hô bạn
@befaint, vậy là có người chịu khó tìm tòi, đọc code và so sánh 2 code rồi đó.
Như cu anh tui đã nói ban đầu, code và thuật toán của người ta,
tui giữ nguyên 100%, không đụng, change gì cả, cả mấy cái dấu >= <=. Mục đích minh họa là cùng 1 code, cùng 1 thuật toán, nếu cách khai báo biến, cách dùng hàm đúng thì sẽ cải thiện đáng kể tốc độ, mà hoàn toàn không phải làm gì cao xa cả.
Thực tế đa dạng, nên sẽ còn gặp nhiều. Các bạn có nhớ bài toán đọc file text 600 ngàn dòng của bạn nào đó không ? Bạn ấy đã nói là trên máy bạn ấy chạy mất 60s. Nhưng tiếc là bạn ấy không úp data và code được. Nên thua. Nếu optimize theo cách dùng khai báo biến đúng, dùng hàm đúng thì may lắm xuống được 1/2, còn 30s thôi. Trong VBA có những cái ngưỡng giới hạn phải chấp nhận, không thể vượt qua được nếu dùng thuần và đúng VBA. Nên tôi mới nghĩ giải pháp dùng DLL viết = C hay Delphi, memory mapping file đó và parse trực tiếp trên map file, không phải read all lên bộ nhớ, trả về Variant array, thì mới hy vọng cải tiến tốc độ xuống ngưỡng 1/3 hay dưới được.
Quay lại vấn đề bạn
@befaint phát hiện, đúng đấy
@befaint. Thật ra là lúc đầu code mình comment nhiều lắm, nhưng sau đó nghĩ lại, thôi xóa hết đi,để các bạn vọc, đo và tìm ra, nó mới thú.
Về vấn đề Long, Double, có các chú ý sau:
1. Tại sao không dùng Double mà dùng Long: Hì hì, dùng Long thì VBA xử lý trên nó phải nhanh hơn xử lý số thực rồi chứ.
2. Thế dùng Long bị ép từ kiểu Date về có đúng không. Hì hì, đúng chứ, vì các bạn không xem kỹ document của VBA. Date trong VBA lưu thành số Double 8 byte, phần nguyên chứa ngày, phần lẽ chứa time. Mà ở đây mình chỉ quan tâm tới ngày, nên lấy phần nguyên, đưa qua biến Long thôi.
3. Thế tại sao không dùng hàm CDbl hay hàm CLng. Dùng làm chi, dùng thì VBA phải truyền vào stack biến variant rồi gọi hàm convert, trả về gán vào Long. Còn viết thằng l = data(xxx, xxx) thì VBA tự chuyển kiểu cho mình luôn, đỡ tốn time cho lời gọi.
4. Thế nếu data(xxx, xxx) không phải kiểu Date thì sao. Thì văng hết chứ sao, Long, Double, CLng, CDbl gì văng hết
5. Thế tại sao đưa biến Long ra ngoài, trên lệnh If. Vì tránh nó bị tính, convert 2 lần từ trong lệnh If. Các bạn có nhớ topic về VBA không nối tắt logic chứ ? Và VBA compiler nó đâu đủ thông minh để cache giá trị đã tính từ lần 1 dùng cho lần 2 đâu.
VBA thì biểu sao nó làm vậy à, chính xác 100% như những gì các bạn viết ra thôi.
6. Mới nhớ ra, bổ sung thêm: Thế dùng hàm VBA Val được không. Nếu dữ liệu sai Val không chết. OK, nhưng cuối cùng Val lại chậm hơn hết, vì tham số của Val là Val(String): Double. Nên VBA phải convert data(xxx, xxx) từ Variant sang string, call Val, convert ngược double lại thành Long.
Nên châm, bỏ
Còn rất nhiều cái nho nhỏ trong đó nữa, mà mình đã xóa hết comment. Các bạn phải chịu khó dùng beginTiming và EndTiming đặt vào từng đoạn để xem thời gian chạy cho từng đoạn đó hết bao nhiêu, chiếm bao nhiêu % trong tổng thời gian cả hàm. Một cái thay đổi, thêm bớt nhỏ chạy mất bao nhiêu, nhanh hơn hay chậm hơn, được bao nhiêu %. Nhưng đừng đặt vào bên trong vòng For nhé, click OK mệt nghĩ luôn đó.
Vòng For nhìn tưởng chậm nhất, nhưng không phải, nó chỉ chiếm gần 1/3 thôi. Trong vòng for đó, 2 cái chạy chậm nhất là ông nội VBA InStr và vòng While tìm Pos. Mình có thể viết lại nhanh hơn nhiều, nhưng không được vì phải dùng đúng code của người ta, không thì người ta la làng lên là đổi thuật toán. Như InStr thay bằng StrStrI API của shlwapi.dll chẳng hạn, While thì thay bằng Split, nhanh hơn nhiều.
Ngoài các cách chính thống, còn nhiều cách "tà đạo" nữa để giảm xuống nữa, 1/3 thôi, nhưng sẽ làm rắc rối code, bạn OT xinh đẹp sẽ không hiểu và fix được nếu bug khi dị dạng dữ liệu hay phát sinh thêm yêu cầu. Nên mình giữ nguyên và đã nói bạn OT giữ nguyên, cứ dùng code cũ. Code optimize xem để biết chơi thôi, kkk
Chỉ có 2 điểm thay đổi
rất rất nhỏ thôi mà cải thiện tốc độ đáng kể nhất, các bạn cố tìm ra nhé.
(
