Hãy tính xem từ năm 1900 đến nay có bao nhiêu ngày thuộc dạng THỨ SÁU NGÀY 13

2 Responses

1. hands says:

   16/01/2023 at 3:39 pm

   Tính từ đầu năm đến cuối năm tôi đã đi làm được bao nhiều ngày (nghỉ CN và lễ, không tính nghỉ đột xuất)
   Dễ hơn rất nhiều
   Ẹc… Ẹc…

   Vậy cứ thống nhất vậy nhé.
   Từ 19/08/2010 – 31/12/2010 mình sẽ làm việc bao nhiêu ngày. Ngày lễ gồm có: 2/9 và ngày nghỉ là CN. Và liệt kê những ngày thứ hai gán vào A1->An của 1 sheet. Dòng vòng lặp thông thường.

   Các anh xem góp ý cho Em nhé!

   Sub lamviec()
   Dim i As Integer, j As Integer, k As Integer, dk As Boolean
     Dim ngayle As Integer, ngaynghi As Integer, ngaylam As Long
     ngayle = 1: ngaynghi = 0
      For i = 8 To 12
          dk = i Mod 8
          k = IIf(dk, 1, 19)
          For j = k To 31
              With [COLOR=Red]ActiveCell[/COLOR]
                  If Weekday(DateSerial(2010, i, j)) = 1 Then
                     ngaynghi = ngaynghi + 1
                     .Value = DateSerial(2010, i, j)
                     .Offset(1, 0).Select
                  End If
              End With
          Next j
      Next i
          ngaylam = DateSerial(2010, 12, 31) - DateSerial(2010, 8, 19) - ngayle - ngaynghi
          MsgBox "Tong ngay lam viec la: " & ngaylam
   End Sub

   Điều kiện đưa vào bắt đầu cells(1,1) Em chưa biết, nên dùng Activecell thì nó mới chạy, mong các Anh giúp.

   Reply
2. hands says:

   16/01/2023 at 3:41 pm

   Mình xin xúi 1 cách làm tầm bậy, như sau

   (*) Tính tổng số ngày;

   (*) Tạo 1 vòng lặp từ ngày đầu tiên đến 7 ngày sau đó để tìm ra ngày CN đầu tiên

   (*) Tạo vòng lặp từ ngày CN đầu tiên cho đến ngày cuối bước nhảy là 7 để đếm hết các ngày CN

   (*) Kiểm thêm ngày Quốc khánh là thứ máy trong tuần

   (*) Đáp án là tổng đại số các ngày trên;

   Khà, khà,. . . .

   Em sửa lại đoạn code theo hướng dẫn của Bác HYen17 như sau:

   Sub Tinhngay()
   Dim tongngay As Long, nghi As Integer, le As Integer
   Dim i As Long, j As Date
   Cells.Clear
   tongngay = DateSerial(2010, 12, 31) - DateSerial(2010, 8, 19)
   le = 1: nghi = 0
   For i = 19 To 26
       If Weekday(DateSerial(2010, 8, i)) = 1 Then
          For j = DateSerial(2010, 8, i) To DateSerial(2010, 12, 31) Step 7
           With ActiveCell
                .Value = j
                nghi = nghi + ActiveCell.Count
                .Offset(1, 0).Select
           End With
           Next
       End If
   Next
   If Weekday(DateSerial(2010, 9, 2)) <> 1 Then ActiveCell = DateSerial(2010, 9, 2)
   MsgBox "Tong ngay lam viec la: " & tongngay - le - nghi
   End Sub

   Các Anh xem và góp ý cho Em nhé!

   Muốn nhận được góp í thì đây, xin mời

   (*) Sau lại nhốt chung vòng lặp sau vô trong vòng lặp trước vậy?

   Nếu gặp ngay ngày CN từ đầu, có fải bạn fí fạm 6 lần lặp không cần thiết không nào?
   Nên thoát khỏi nó ngay khi gặp ngày CN chứ; Tuy thêm 1 dòng lệnh, nhưng thưởng giảm đi được khoảng gần nữa đọan đường trong vòng lặp thứ nhật đó bạn.

   Em sửa lại đoạn code theo góp ý của Bác ChanhTQ@ như sau:

   Sub Tinhngay()
   Dim tongngay As Long, nghi As Integer, le As Integer
   Dim i As Long, j As Date
   Cells.ClearContents
   tongngay = DateSerial(2010, 12, 31) - DateSerial(2010, 8, 19): le = 1
     For i = 19 To 25
       If Weekday(DateSerial(2010, 8, i)) = 1 Then Exit For
     Next
     For j = DateSerial(2010, 8, i) To DateSerial(2010, 12, 31) Step 7
       With [COLOR=Red]ActiveCell[/COLOR]
           .NumberFormat = "dd/mm/yyyy"
           .Value = j
           nghi = nghi + ActiveCell.Count
           .Offset(1, 0).Select
       End With
     Next
   If Weekday(DateSerial(2010, 9, 2)) <> 1 Then ActiveCell = DateSerial(2010, 9, 2)
   MsgBox "Tong ngay lam viec la: " & tongngay - le - nghi
   End Sub

   Tuy nhiên chỗ ActiveCell muốn nó nằm ở cột A thì làm sao nhỉ? Không lẽ phải thêm 1 vòng lặp nữa?

   Một cách để cho kết quả từ A1:
   _ Tạo một biến, thí dụ : Dim K as Integer
   _ With ActiveCell thay bằng With .Offset(K) hoặc With Cells(K + 1, 1)
   _ Thay .Offset(1, 0).Select bằng K= K + 1
   Đây là code liệt kê tất cả những ngày đi làm ra cột A, từ đầu năm 2010 đến cuối năm 2010 (không tính chủ nhât)

   Sub Tinhngay()
   Dim i As Long, j As Long
   With Range("A:A")
   .ClearContents
   .NumberFormat = "dd/mm/yyyy"
   For i = DateSerial(2010, 1, 1) To DateSerial(2010, 12, 31)
   If Weekday(i, 1) > 1 Then
   j = j + 1
   .Cells(j, 1) = i
   End If
   Next
   End With
   End SubCode này chưa tính đến nghỉ lễ —> Bạn cứ cải tiến nhé

   (Nhìn qua nhìn lại chỉ thấy có mỗi bạn MinhCong —> cái vụ VBA này xem ra ít người khoái nhỉ?)

   Reply