Excel VBA Dim Long không hoạt động, Lỗi thời gian chạy '6'

CHÀO

Khi tôi chạy đoạn mã này, tôi nhận được lỗi thời gian chạy số 6.

Sub test2()
Dim j1 As Long
j1 = 2019 * 365
End Sub

j1 bằng 736.300, nằm trong giới hạn dài hạn là 2.147.483.647.

Có vấn đề gì vậy? Tôi đã thử đóng và khởi động lại Excel nhưng vẫn không khắc phục được sự cố.

Microsoft Office Professional Plus 2016

Phiên bản Excel 1906 (Bản dựng 11727.20244)

Windows 10 Home 64 bit.

Trả lời:
Chào Richard

Hãy thử phiên bản Sub này:

Sub test2()
Dim j1 As Long
j1 = CLng(2019) * 365
End Sub