[Bài tập vui]: Tìm ra mươi ngày 13 rơi vào thứ sáu gần hôm nay nhất! (2 người xem)

  • Thread starter Thread starter SA_DQ
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)
SA_DQ đã viết:
Mình thử viết hàm mảng tự tạo & có nội dung sau:
PHP: 
...
For J = 1 To 10000
If Day(J + Dat) = 13 And Weekday(J + Dat) = 6 Then
...
Nhấp chuột vào đây để mở rộng...
Một tháng chỉ có một ngày 13. Chỉ cần lấy một lần ngày 13, sau có cứ +/- tháng (hàm DateAdd)
 
Lúc đầu mình cũng định đi theo hướng như vậy, nhưng 1 vài trường hợp cụ thể thì không thỏa yêu cầu & sẽ bị ai đó khó tính cự nự:

STTNgàyDel ta
112/13/19-45=T6N13(DATE(2020,1,27))
203/13/20
46​
309/13/19-136
411/13/20
291​
507/13/18-563
608/13/21
564​
704/13/18-654
810/13/17-836
905/13/22
837​
1001/13/23
1082​

Chúc các bạn có mùa xuân vui vẻ & hạnh phúc!
 
VetMini đã viết:
Một tháng chỉ có một ngày 13. Chỉ cần lấy một lần ngày 13, sau có cứ +/- tháng (hàm DateAdd)
Nhấp chuột vào đây để mở rộng...
Em góp vui với hàm tự tạo dựa theo ý tưởng của thầy VetMini với hàm tự tạo của thầy SA_DQ :D

PHP: 
Function T6N13_2(Dat As Date, Count As Long)
    ReDim Arr(1 To Count, 1 To 3)
    Dim i As Long, j As Long, Year_Dat As Long
    Dim W As Long
    i = Month(Dat)
    j = Month(Dat)
    Year_Dat = Year(Dat)
    Do Until W = Count
        If (Weekday(DateSerial(Year_Dat, i, 13))) = 6 Then
            W = W + 1
            Arr(W, 1) = W
            Arr(W, 2) = Format(DateSerial(Year_Dat, i, 13))
            Arr(W, 3) = DateDiff("d", Dat, DateSerial(Year_Dat, i, 13))
        End If
        If W = Count Then Exit Do
        If (Weekday(DateSerial(Year_Dat, j, 13))) = 6 Then
            W = W + 1
            Arr(W, 1) = W
            Arr(W, 2) = Format(DateSerial(Year_Dat, j, 13))
            Arr(W, 3) = DateDiff("d", Dat, DateSerial(Year_Dat, j, 13))
        End If
        i = i + 1: j = j - 1
    Loop
    T6N13_2 = Arr()
End Function
 
Theo thống kê thì chỉ có tháng 2 thì mệnh đề
i = i + 1:
mới vậy thôi, còn các tháng khác ta có thể
i = i + 2:
Thậm chí 1 số tháng ta có thể
i = i + 3:

Xin các bạn cho ý kiến nhận xét của mình tiếp về vấn đề này (?)
 
SA_DQ đã viết:
Lúc đầu mình cũng định đi theo hướng như vậy, nhưng 1 vài trường hợp cụ thể thì không thỏa yêu cầu & sẽ bị ai đó khó tính cự nự:
Nhấp chuột vào đây để mở rộng...
Nếu vậy thì chỉ cần xét số nào kiểm tra trước, số nào kiểm tra sau thôi, đỡ hơn là kiểm tra từng ngày.
Mã: 
Function T6N13(Dat As Date)
    Dim Arr(1 To 10, 1 To 3)
    Dim a As Long, z As Long, i As Date, k As Long, d As Long, m As Long, y As Long
    d = Day(Dat):   m = Month(Dat): y = Year(Dat)
    If d < 13 Then a = -1
    z = a + 1
    Do Until k = 10
        If Dat - DateSerial(y, m + a, 13) < DateSerial(y, m + z, 13) - Dat Then
            i = DateSerial(y, m + a, 13):   a = a - 1
        Else
            i = DateSerial(y, m + z, 13):   z = z + 1
        End If
        If Weekday(i) = 6 Then
            k = k + 1:      Arr(k, 2) = Format(i, "dd/mm/yyyy")
            Arr(k, 1) = k:  Arr(k, 3) = i - Dat
        End If
    Loop
    T6N13 = Arr
End Function
 
Xài bộ lọc và vài hàm đơn giản cho nhàn! Tính từ 1900 đến 4637 luôn! :D

View attachment 265615
 
Bần đạo tu trên núi lâu quá không biết bằng hữu đàm đạo chuyện này. Thôi thì góp vui vậy. Lưu ý dùng excel phiên bản tầng thứ 9 cửu âm chân kinh 365 mới được.
Cho trước 1 ngày cột mốc nào đó (ví dụ hôm nay), Cho trước số lần tìm Thứ Sáu ngày 13 (ví dụ 10 ngày),

Danh sách các ngày thứ sáu 13 trở về trước (trước ngày cột mốc):
=LET(MyDay,$B$1-SEQUENCE(5000),MDate1,TEXT(MyDay,"DDD"),MDate2,TEXT(MyDay,"DD"),mRange,FILTER(MyDay,(MDate1="Fri")*(MDate2="13"),"Not Found"),mOrder,SEQUENCE(COUNTA(mRange)),FILTER(mRange,mOrder<=$B$2,"Not Found"))
Nhấp chuột vào đây để mở rộng...

Danh sách các ngày thứ sáu 13 trở về sau (sau ngày cột mốc):
=LET(MyDay,$B$1+SEQUENCE(5000),MDate1,TEXT(MyDay,"DDD"),MDate2,TEXT(MyDay,"DD"),mRange,FILTER(MyDay,(MDate1="Fri")*(MDate2="13"),"Not Found"),mOrder,SEQUENCE(COUNTA(mRange)),FILTER(mRange,mOrder<=$B$2,"Not Found"))
Nhấp chuột vào đây để mở rộng...

Nối 2 danh sách bên trên lại thành 1 danh sách gom bỏ vô trong 1 cột (Kiểu như "append data"):
=LET(Array1,OFFSET($A4,,,$B$2),Array2,OFFSET($B4,,,$B$2),ColToAppend,CHOOSE({1,2},Array1,Array2),FILTER(INDEX(ColToAppend,MOD(SEQUENCE(ROWS(ColToAppend)*COLUMNS(ColToAppend),,0),ROWS(ColToAppend))+1,SEQUENCE(ROWS(ColToAppend)*COLUMNS(ColToAppend),,0,1/ROWS(ColToAppend))+1),NOT(ISERROR(INDEX(ColToAppend,MOD(SEQUENCE(ROWS(ColToAppend)*COLUMNS(ColToAppend),,0),ROWS(ColToAppend))+1,SEQUENCE(ROWS(ColToAppend)*COLUMNS(ColToAppend),,0,1/ROWS(ColToAppend))+1)))))
Nhấp chuột vào đây để mở rộng...

test.jpg
 

File đính kèm

Lần chỉnh sửa cuối:
SA_DQ đã viết:
Sẽ có 3 xị rượu cho ai giải đúng & sớm nhất bằng công thức!

Chúc các bạn vui vẻ & mạnh khỏe nhân dịp xuân về!
Nhấp chuột vào đây để mở rộng...
Dạo này có tuổi nên HÀM yếu lắm rồi bác, mà vẫn xin 3 xị rượu nhé bác Sa, hẹn 1 ngày gần nhất ở SG.
 
Châu Bá Thông đã viết:
Nối 2 danh sách bên trên lại thành 1 danh sách gom bỏ vô trong 1 cột (Kiểu như "append data"):
Nhấp chuột vào đây để mở rộng...
Nếu đã có 2 danh sách ở A4 và B4 thì nối lại như sau:

=LET(db,A4#,da,B4#,rwb,ROWS(db),rwa,ROWS(da),IF(SEQUENCE(rwb+rwa)<=rwb,INDEX(db,SEQUENCE(rwb+rwa),1),INDEX(da,SEQUENCE(rwb+rwa)-rwb,1)))
 
ptm0412 đã viết:
Nếu đã có 2 danh sách ở A4 và B4 thì nối lại như sau:

=LET(db,A4#,da,B4#,rwb,ROWS(db),rwa,ROWS(da),IF(SEQUENCE(rwb+rwa)<=rwb,INDEX(db,SEQUENCE(rwb+rwa),1),INDEX(da,SEQUENCE(rwb+rwa)-rwb,1)))
Nhấp chuột vào đây để mở rộng...
Nay bần lão được thọ giáo chiêu A4# (thay cho offset) của tiên sinh, quả thật khâm phục, khâm phục!
 
Lần chỉnh sửa cuối:
Châu Bá Thông đã viết:
Bần đạo tu trên núi lâu quá không biết bằng hữu đàm đạo chuyện này. Thôi thì góp vui vậy. Lưu ý dùng excel phiên bản tầng thứ 9 cửu âm chân kinh 365 mới được.
Cho trước 1 ngày cột mốc nào đó (ví dụ hôm nay), Cho trước số lần tìm Thứ Sáu ngày 13 (ví dụ 10 ngày),

Danh sách các ngày thứ sáu 13 trở về trước (trước ngày cột mốc):


Danh sách các ngày thứ sáu 13 trở về sau (sau ngày cột mốc):


Nối 2 danh sách bên trên lại thành 1 danh sách gom bỏ vô trong 1 cột (Kiểu như "append data"):


View attachment 265746
Nhấp chuột vào đây để mở rộng...
Vì bài này mảng là Date nên có thể dùng cách này để gom 2 mảng
Mã: 
=LET(a,A4#,b,B4#,SMALL((a,b),SEQUENCE(COUNT(a,b))))

ptm0412 đã viết:
Nếu đã có 2 danh sách ở A4 và B4 thì nối lại như sau:

=LET(db,A4#,da,B4#,rwb,ROWS(db),rwa,ROWS(da),IF(SEQUENCE(rwb+rwa)<=rwb,INDEX(db,SEQUENCE(rwb+rwa),1),INDEX(da,SEQUENCE(rwb+rwa)-rwb,1)))
Nhấp chuột vào đây để mở rộng...
Nếu đặt thêm biến nữa công thức sẽ gọn, so index thì 2 mảng không cùng cấu trúc vẫn được vì nó luôn xét từ trên xuống
Mã: 
=LET(db,A4#,da,B4#,lst,SEQUENCE(ROWS(db)+ROWS(db))-ROWS(db),IF(lst<=0,db,INDEX(da,lst)))


Góp vui dùng 365 cho bài này không tách khớp
Mã: 
=LET(td,TODAY(),n,10,l_date,td+SEQUENCE(10001)-5001,l_filter,FILTER(l_date,TEXT(l_date,"dd ddd")="13 Fri"),pst,MATCH(td,l_filter),INDEX(l_filter,SEQUENCE(n*2)-n+pst))
 
Lần chỉnh sửa cuối:
excel_lv1.5 đã viết:
Góp vui dùng 365 cho bài này không tách khớp
Mã: 
=LET(td,TODAY(),n,10,l_date,td+SEQUENCE(10001)-5001,l_filter,FILTER(l_date,TEXT(l_date,"dd ddd")="13 Fri"),pst,MATCH(td,l_filter),INDEX(l_filter,SEQUENCE(n*2)-n+pst))
Nhấp chuột vào đây để mở rộng...
Khà khà khà, đúng là ngọa hổ tàng long. Mong anh em bằng hữu có dịp đàm đạo luận kiếm, cầm tay uống rượu!
 
Thấy mấy bạn dùng hàm tôi hoảng hồn.
 
Một công thức thôi, nhập vào ô bất kỳ (chỉ dùng Excel 2007 hoặc 2010)
Mã: 
=IF(ROWS(A$1:A1)<11,AGGREGATE(14,6,(EDATE(EDATE(TODAY()-DAY(TODAY())+13,-(DAY(TODAY())<=13)),1-ROW($1:$120)))/
(WEEKDAY(EDATE(EDATE(TODAY()-DAY(TODAY())+13,-(DAY(TODAY())<=13)),1-ROW($1:$120)))=6),11-ROWS(A$1:A1)),
IF(ROWS(A$1:A1)<21,AGGREGATE(15,6,(EDATE(EDATE(TODAY()-DAY(TODAY())+13,--(DAY(TODAY())>13)),ROW($1:$120)-1))/(WEEKDAY(EDATE(EDATE(TODAY()-DAY(TODAY())+13,--(DAY(TODAY())>13)),ROW($1:$120)-1))=6),ROWS(A$1:A1)-10),""))
Kết thúc bình thường Enter.

Kéo xuống dưới thành 20 dòng.

10 dòng đầu là 10 ngày trước, 10 dòng sau là 10 ngày sau. 20 ngày theo đúng thứ tự tăng dần từ quá khứ tới tương lai.

Công thức có 2 nhánh (2 IF) để tính 10 trước và 10 ngày sau. Nếu muốn tính 10 ngày trước và 10 ngày sau riêng rẽ ở 2 cột thì "cắt" từ công thức ở trên ra.
 
Mình không biết dùng hàm mình ngồi mình đếm thủ công tầm 10 năm từ 1/1/2021 đến 31/12/2031 thì có 17 ngày thứ sáu ngày 13:

1631273379214.png
Bài đã được tự động gộp:

SA_DQ đã viết:
Cách của bạn chỉ tìm 1 trong mười ngày đó mà thôi;
Đề bài là tìm cả mười ngày thứ sáu 13 gần nhất trong 1 lúc cơ!

Mình thử viết hàm mảng tự tạo & có nội dung sau:
PHP: 
Function T6N13(Optional Dat As Date)
 ReDim Arr(1 To 10, 1 To 3)
 Dim J As Long, W As Integer
 
 If Dat < 9 Then Dat = Date
 If Day(Dat) = 13 Then Dat = Dat - 1
 For J = 1 To 10000
 If Day(J + Dat) = 13 And Weekday(J + Dat) = 6 Then
    W = W + 1:                  Arr(W, 2) = Format(J + Dat, "MM/DD/yy")
    Arr(W, 3) = J:              Arr(W, 1) = W
 End If
 If W = 10 Then Exit For
 If Day(Dat - J) = 13 And Weekday(Dat - J) = 6 Then
    W = W + 1:                  Arr(W, 2) = Format(Dat - J, "MM/DD/yy")
    Arr(W, 3) = Space(1) & -J:  Arr(W, 1) = W
 End If
 If W = 10 Then Exit For
 Next J
 T6N13 = Arr()
End Function
Nhấp chuột vào đây để mở rộng...
Mình viết code thấy nó ngắn gọn sao các bác viết dài thòn vậy ta?

PHP: 
Sub Test()
    Dim arrDate()
    Dim n As Long
    Dim d As Date, dteFromDate As Date, dteToDate As Date
    dteFromDate = Date
    dteToDate = DateSerial(2031, 12, 31)
    For d = dteFromDate To dteToDate
        If Weekday(d) = 6 And Day(d) = 13 Then
            n = n + 1
            ReDim Preserve arrDate(1 To n)
            arrDate(n) = d
            If n = 10 Then Exit For
        End If
    Next
    Range("F5").Resize(n).Value = WorksheetFunction.Transpose(arrDate)
End Sub
 
Lần chỉnh sửa cuối:
Hoàng Trọng Nghĩa đã viết:
Mình không biết dùng hàm mình ngồi mình đếm thủ công tầm 10 năm từ 1/1/2021 đến 31/12/2031 thì có 17 ngày thứ sáu ngày 13:

View attachment 265791
Nhấp chuột vào đây để mở rộng...
Có năm có 1, có năm có 2, 3 thứ 6 ngày 13. Trong công thức ở bài #35 tôi lấy trung bìng là 1 năm 1 lần thứ 6 ngày 13. Vì thế để xét 10 lần thứ 6 ngày 13 thì tôi xét 10 năm, tức 120 tháng. Vì thế có con số 120 - ROW($1:$120)
 
Hoàng Trọng Nghĩa đã viết:
Mình viết code thấy nó ngắn gọn sao các bác viết dài thòn vậy ta?

PHP: 
Sub Test()
    Dim arrDate()
    Dim n As Long
    Dim d As Date, dteFromDate As Date, dteToDate As Date
    dteFromDate = Date
    dteToDate = DateSerial(2031, 12, 31)
    For d = dteFromDate To dteToDate
        If Weekday(d) = 6 And Day(d) = 13 Then
            n = n + 1
            ReDim Preserve arrDate(1 To n)
            arrDate(n) = d
            If n = 10 Then Exit For
        End If
    Next
    Range("F5").Resize(n).Value = WorksheetFunction.Transpose(arrDate)
End Sub
Nhấp chuột vào đây để mở rộng...
Từ hiện tại phải dò theo 2 hướng chứ bạn?
 
Maika8008 đã viết:
Từ hiện tại phải dò theo 2 hướng chứ bạn?
Nhấp chuột vào đây để mở rộng...
Hướng nào và hướng nào?

Còn dùng hàm còn ngắn gọn hơn nữa!
PHP: 
Function FindFriday13th(ByVal intCount As Integer) As Variant
    Dim arrDate(), d As Date, n As Long
    d = Date
    Do
        If Weekday(d) = 6 And Day(d) = 13 Then
            n = n + 1
            ReDim Preserve arrDate(1 To n)
            arrDate(n) = d
            If n = intCount Then Exit Do
        End If
        d = d + 1
    Loop
    FindFriday13th = WorksheetFunction.Transpose(arrDate)
End Function

Nếu như trong bài đếm số lượng 10 ngày gần đây nhất thì công thức: =FindFriday13th(10)
 
Hoàng Trọng Nghĩa đã viết:
Hướng nào và hướng nào?

Còn dùng hàm còn ngắn gọn hơn nữa!
PHP: 
Function FindFriday13th(ByVal intCount As Integer) As Variant
    Dim arrDate(), d As Date, n As Long
    d = Date
    Do
        If Weekday(d) = 6 And Day(d) = 13 Then
            n = n + 1
            ReDim Preserve arrDate(1 To n)
            arrDate(n) = d
            If n = intCount Then Exit Do
        End If
        d = d + 1
    Loop
    FindFriday13th = WorksheetFunction.Transpose(arrDate)
End Function

Nếu như trong bài đếm số lượng 10 ngày gần đây nhất thì công thức: =FindFriday13th(10)
Nhấp chuột vào đây để mở rộng...
Thì chủ thớt đã nói rồi đó chi. Gần nhất 10 ngày là phải tính 5 ngày từ hiện tại đến tương lai + 5 ngày từ hiện tại đến quá khứ.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

mrjun80
XIin giúp hàm tìm kiếm theo 1 đoạn số thứ tự của bảng (1 người xem)
    • Buồn
Trả lời
0
Đọc
41
mrjun80
mrjun80
M
Đọc số sang chữ bằng tiếng Anh
Trả lời
4
Đọc
134
maitb
M
D
  • Question Question
Em bị lỗi thế này các bác giúp em với ạ
Trả lời
11
Đọc
274
ptm0412
ptm0412
Momominh
Tìm kiếm dữ liệu từ các sheet
Trả lời
5
Đọc
172
Momominh
Momominh
D
Công thức tính thuế thu nhập cá nhân cho nhân viên thử việc (1 người xem)
Trả lời
0
Đọc
95
Dinh Hong Nhung
D
Nguyễn Duy Tuân
  • Dán lên cao
Sử dụng AI trong Excel với Add-in A-Tools AI v10
    • Thích
    • Cảm ơn
Trả lời
5
Đọc
682
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Linhtrantxtn
Xin hỗ trợ: công thức excel lấy giá trị từ sheet 1 qua sheet 2 có điều kiện
Trả lời
1
Đọc
108
HieuCD
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
17 18 19
Trả lời
360
Đọc
39K
thehung79
T
Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
54
Đọc
6K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
soingaytho
liệt kê ra danh sách những đơn lặp lại (1 người xem)
Trả lời
5
Đọc
175
soingaytho
soingaytho
GPE-Trợ Lý
[HCM] ĐĂNG KÝ THAM DỰ SINH NHẬT GIAIPHAPEXCEL LẦN THỨ 19 NGÀY 06/07/2025
    • Thích
Trả lời
1
Đọc
141
GPE-Trợ Lý
GPE-Trợ Lý
Y
Lấy dữ liệu từ nhiều sheet khác nhau. (1 người xem)
Trả lời
17
Đọc
320
thuytrangbp28
T
GPE-Trợ Lý
ĐĂNG KÍ THAM DỰ SINH NHẬT GPE TẠI HN - SỰ KIỆN TALKSHOW ĐẶC BIỆT (1 người xem)
    • Thích
Trả lời
10
Đọc
584
Quyền99
Quyền99
K
Tìm kiếm và trả về giá trị
Trả lời
5
Đọc
174
Duy Tùng 9x
Duy Tùng 9x
T
Help! Cách phân phòng và xe cho CBNV đi du lịch
    • Thích
Trả lời
2
Đọc
973
thuytrangbp28
T
K
Cách lọc và hiển thị dữ liệu
Trả lời
2
Đọc
121
DeTong
D
GPE-Trợ Lý
[GPE] TALKSHOW 12: PYTHON TRONG EXCEL
    • Thích
    • Yêu thích
Trả lời
1
Đọc
7K
GPE-Trợ Lý
GPE-Trợ Lý
Mr. Duck
Sắp xếp danh sách theo cột số bao gồm cả ký tự số và ký tự chữ kèm theo
Trả lời
7
Đọc
187
thuytrangbp28
T
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định (1 người xem)
2
Trả lời
33
Đọc
1K
Emyeuexcel
Emyeuexcel
H
Phân lịch trực tháng
Trả lời
0
Đọc
87
hieu0408
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Sinh nhật lần 19 GPE

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom