Theo Excel tính toán thì ngày 4 tháng 7 năm 1776 thuộc thứ năm
Thử ?weekday(2011/11/09)=6 Mà hôm nay là ngày thứ 4 anh. Vậy Kết quả này không chính xác (Lúc đầu không có dấu "", sẽ cho ra kết quả sai như trên, Nếu cho vào "" rùi thì em thấy định dạng dd/mm/yyyy vẫn ra kết quả chính xác)
Bạn thiếu dấu nháy đôi ---> Phải gõ vầy ?weekday("2011/11/09")
Tự ta tìm ra thuật toán thì mới đáng tin cậy chứ
Anh dùng code VBA tính là biết liền chứ gì
Sub Test()
Dim dat1 As Long, dat2 As Long, i As Long, tmp As Long, n As Long
dat1 = DateSerial(1776, 7, 4)
dat2 = Date
n = Weekday(dat1)
For i = dat1 To dat2
tmp = ((n - 1) Mod 7) + 1
n = n + 1
Next
MsgBox tmp = Weekday(Date)
End SubQuy luật là cứ sau 1463 ngày, tức là lấy ngày gốc cộng thêm 2, năm gốc cộng thêm 4, sẽ trùng thứ. Tức là 4/7/1776 + 1463*n = X, sau đó WEEDAY(X) sẽ ra kết quả.
Hình như cũng chưa thể tin tưởng được VBA. Em làm một thí nghiệm đơn giản như sau:
Còn thuật toán này thì em không hiểu. Excel đâu có hiểu được những ngày trước ngày 01/01/1900 đâu mà lấy 4/7/1776 để đi tính; và n là bao nhiêu, tính bằng cách nào?
=7-MOD(DATEDIF(DATE(2000+MOD(C1,4),B1,A1),DATE(2020,12,31),"yd")+1+(1900-C1-1)*365+INT((1900-C1-1)/4)-1,7)Vậy Huuthang nghĩ gì về code này:
Sub Test()
Dim dat1 As Long, dat2 As Long, i As Long, tmp As Long, n As Long
dat1 = DateSerial(1900, 1, 1)
dat2 = Date
n = Weekday(dat1)
MsgBox n
For i = dat1 To dat2
tmp = ((n - 1) Mod 7) + 1
n = n + 1
Next
MsgBox tmp = Weekday(Date)
End SubTheo tôi thì kết quả = thứ 3 là không đúng ---> Hãy tra lịch để kiểm chứng
Đó là năm 1800 và năm 1900 chăng?
Sub Test()
MsgBox DateSerial(1900, 2, 29)
End SubWeekday để kiểm tra giá trị đầu tiên thôi bạn à... Nó ra kết quả bao nhiêu ta tạm để đó, xong sẽ duyệt từ mốc ấy đến hôm nay... Từ lúc này ta tính WEEKDAY không bằng WEEKDAY mà bằng toán tử MOD ---> Đến thời điểm HÔM NAY, nếu nó cho kết quả đúng =WEEKDAY(hôm nay) thì xem như cái WEEKDAY đầu tiên là đúng
Kết quả của code đó cũng chưa thể dùng để kiểm chứng được. Vì ta đã thấy nó dựa vào hệ thống ngày tháng, vậy nên nếu hệ thống ngày tháng cuả ngôn ngữ đó sai thì kết quả của phép thử vẫn là đúng trong khi thực tế nó sai.
Trời... nếu nói vậy thì phải xem lại toàn bộ hệ thống chương trình Visual Basic rồi ---> Cái này thì tôi xin thua!
Năm 1900 không phải năm nhuận, điều này là đương nhiên khỏi phải bàn cải ---> Có tìm khắp Google cũng là câu trả lời đó mà thôi
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.
