Tôi đã có vài trao đổi với Nguyễn Hồng Quang
Vì liên quan tới dự án hỗ trợ code cho thành viên hiện đang được tiến hành, hôm nay tôi muốn thảo luận với các bạn về một việc khác, đó là tìm ngày đầu tiên của tuần, tìm vị trí của tuần trong năm.
Đây không phải là thử thách, cũng không phải là việc tôi không làm được,chỉ đơn thuần là trao đổi với các bạn mà thôi.
Tôi rất vui nếu chúng ta cùng nhau đặt ra các vấn đề có thể có, rồi cùng nhau giải quyết. Topic tương tác như vậy sẽ dẫn tới nhiều vấn đề được gợi mở và giải quyết.
Vậy cho phép tôi được bắt đầu.
INPUT: tháng/ngày/năm
OUPUT: Trả về vị trí tuần trong năm chứa ngày đó.
kết quả các bạn được là 3.
Tức là ngày 13 tháng 1 năm 2020 nằm ở tuần thứ 3 trong năm.
Vấn đề:
Input: tuần thứ 3 trong năm (Tuần được định nghĩa là ngày đầu tiên trong tuần là thứ 2, kết thúc vào CN)
Ouput: Ra ngày đầu tiên của tuần thứ 3. Ngày 13 tháng 1 năm 2020
Bạn cần đăng nhập để thấy link
. Những trao đổi đó dựa vào kinh nghiệm
Bạn cần đăng nhập để thấy link
.Vì liên quan tới dự án hỗ trợ code cho thành viên hiện đang được tiến hành, hôm nay tôi muốn thảo luận với các bạn về một việc khác, đó là tìm ngày đầu tiên của tuần, tìm vị trí của tuần trong năm.
Đây không phải là thử thách, cũng không phải là việc tôi không làm được,chỉ đơn thuần là trao đổi với các bạn mà thôi.
Tôi rất vui nếu chúng ta cùng nhau đặt ra các vấn đề có thể có, rồi cùng nhau giải quyết. Topic tương tác như vậy sẽ dẫn tới nhiều vấn đề được gợi mở và giải quyết.
Vậy cho phép tôi được bắt đầu.
INPUT: tháng/ngày/năm
OUPUT: Trả về vị trí tuần trong năm chứa ngày đó.
Mã:
Sub test()
Dim d1 As String
Dim d As Date
d1 = "1/14/2020"
d1 = Format(d1, "mm/dd/yyyy")
d = CDate(d1)
MsgBox Application.WeekNum(d)
End Sub
Tức là ngày 13 tháng 1 năm 2020 nằm ở tuần thứ 3 trong năm.
Vấn đề:
Input: tuần thứ 3 trong năm (Tuần được định nghĩa là ngày đầu tiên trong tuần là thứ 2, kết thúc vào CN)
Ouput: Ra ngày đầu tiên của tuần thứ 3. Ngày 13 tháng 1 năm 2020