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 Sub
Quy 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
