Em không nói VB sai ngày tháng mà chỉ muốn nói thuật toán trong đoạn code test ở bài #14, dùng nó để test thì có vẻ không được thuyết phục. Nếu anh dùng thuật toán đó để test trên công thức Excel thì kết quả cũng không có gì thay đổi.
Tôi thấy rất hợp lý, không có gì là không thuyết phục cả:
Ta biết rằng hệ thống ngày tháng của VB là rất chuẩn, vậy thay vì dùng 1 Add-In nào đó, tự ta cũng viết được vậy
Function xDateYearDIF(ByVal Date1, ByVal Date2) As Long
xDateYearDIF = Year(Date2) - Year(Date1) + (Format(Date2, "mmdd") < Format(Date1, "mmdd"))
End Function
Đúng vậy, chạy code này sẽ chỉ ra hai năm đó không nhuận:
Sub Test()
Dim dat1 As Date, dat2 As Date, i As Date, j As Long, k As Long
dat1 = DateSerial(1776, 7, 4)
dat2 = Date
For i = dat1 To dat2
If Day(i) = 28 And Month(i) = 2 And Year(i) Mod 4 = 0 Then j = 1
If Day(i) = 29 And Month(i) = 2 And Year(i) Mod 4 = 0 Then k = 1
If Day(i) = 1 And Month(i) = 3 And Year(i) Mod 4 = 0 Then
If j <> k Then MsgBox Year(i)
k = 0: j = 0
End If
Next
End SubBiết rằng năm 1776 là năm nhuận, vậy ta chỉ cần xét duy nhất tháng 2 từng 4 năm 1 lần là được rồi
Sub Test2()
Dim dat As Date, m As Long
Do
dat = DateSerial(1776, 2 + m, 28)
If Month(dat + 1) = 3 And (Year(dat) Mod 4 = 0) Then MsgBox Year(dat)
m = m + 48
Loop Until dat >= Date
End SubSub Test3()
Dim dat As Date, m As Long
Do
dat = DateSerial(100, 2 + m, 28)
If Month(dat + 1) = 3 And (Year(dat) Mod 4 = 0) Then MsgBox Year(dat)
m = m + 48
Loop Until dat >= Date
End SubBạn tính thế nào gửi lên đây xem thử có chính xác không?cháu dùng hàm INT và MOD cũng tính được bác xem thử, hôm trước cháu tính sai vì không biết năm có tận cùng là 00 mà không chia hết 400 không phải năm nhuận
Tính cũng hay lắmcháu sửa ở đầu topic , vì trả lời nhanh cháu không biết attach file
=TEXT(MOD(C3+INT((C3-1)/4)-INT((C3-1)/100)+INT((C3-1)/400)+DATE(IF(MOD(C3,100)=0,IF(MOD(C3,400)>0,1,0),IF(MOD(C3,4)=0,0,1)),C4,C5)-DATE(IF(MOD(C3,100)=0,IF(MOD(C3,400)>0,1,0),IF(MOD(C3,4)=0,0,1)),1,1)+1,7),"[$-42A]dddd")
híc! Thầy có mở lớp đào tạo Ex,hay có đệ tự nào mở lớp ngoài Hà nội không cho em xin địa chỉ em đến học với.
1- Tôi đến Link nầy nhờ Google với câu hỏi: Tính toán ngày trước 1/1/1900.
