Tháng 8 kỳ diệu (1 người xem)

[BNTT]

Năm nay, tháng 8 có 5 ngày Chủ Nhật, 5 ngày thứ Hai và 5 ngày thứ Ba..
Điều này, 823 năm mới có một lần!
Không biết có điều kỳ diệu nào xảy ra trong những ngày còn lại của tháng này không...

 

[honeyphuc84]

Riêng em thì em có điều kỳ diệu đầu tiên trong tháng 08 là bị...giật túi xách, mất hết giấy tờ trước ngày đi máy bay, phải nhờ bên an ninh bảo lãnh cho qua quầy checking, và sau đó 2 hôm có chú công an gọi điện thoại và mang tới tận cơ quan giao trả lại cái túi xách cho mình (tuy nhiên phải nhờ đồng nghiệp đi nhận dùm, vì lúc ấy không có ờ sì gòn, anh ta chẳng nhận 1 xu tiền ... cafe gì hết), còn y nguyên, không mất bất cứ cái gì.....
thật là kỳ diệu, bản thân em còn thắc mắc sao kỳ diệu thế.

 

[vucuong51]

"Điều này, 823 năm mới có một lần!"Tại sao bạn lại biệt được thông tin này nhỉ?

 

[gocbinhyen]

Mình thấy tháng 10 cũng có 3 tuần như thế mà

 

[ndu96081631]

Không biết có điều kỳ diệu nào xảy ra trong những ngày còn lại của tháng này không...

Tôi thấy tháng 8 nó KỲ DIỆU vì có ngày sinh nhật của.. BÀ XÃs tôi thôi
(nhiều ngày CN quá chỉ tổ... lương ít đi ---> Chẳng khoái)
Ẹc... Ẹc...

 

[OverAC]

==> từ đó 1 bài tập Excel ra đời: Hãy dùng Excel tính ra những năm có tháng 8 có 5 ngày CN, 5 ngày T2, 5 ngày T3 trong khoảng thời gian từ năm 1 đến năm 3000. ) )

 

[pmhoang]

Tháng 8 tôi được làm chứng chỉ giám sát thi công xây dựng, tháng 8 đặc biệt.

 

[ndu96081631]

==> từ đó 1 bài tập Excel ra đời: Hãy dùng Excel tính ra những năm có tháng 8 có 5 ngày CN, 5 ngày T2, 5 ngày T3 trong khoảng thời gian từ năm 1 đến năm 3000. ) )

Không nhất thiết là tháng 8 đâu! Trong các tháng 1, 3, 5, 7, 8, 10 và 12... tháng nào có ngày 1 nhằm ngày CN là thỏa điều kiện ngay!
Ví dụ tháng 3 năm 2009

Năm nay, tháng 8 có 5 ngày Chủ Nhật, 5 ngày thứ Hai và 5 ngày thứ Ba..
Điều này, 823 năm mới có một lần!
.

Tháng 8 năm 2021 và tháng 8 năm 2027 cũng thế mà ---> 823 năm gì chứ

Sub Test()
  Dim i As Long, j As Long, Arr(1 To 60000, 1 To 1), TmpDate As Date
  For i = 1900 To 3000
    TmpDate = DateSerial(i, 8, 1)
    If Weekday(TmpDate, 1) = 1 Then
      j = j + 1
      Arr(j, 1) = "'" & Format(TmpDate, "m/yyyy")
    End If
  Next
  Range("A1").Resize(j) = Arr
End Sub

 

[OverAC]

Sự thiệt là em chưa bao giờ tính toán, nhưng nghĩ như thế này: để có được tháng 8 kỳ diệu như anh Tường nêu thì chỉ cần ngày 1/8 là ngày CN là thoả yêu cầu (cái này i chang anh NDU đã nói). Em lại nghĩ thêm thế này: ngày 1/8 thì xác xuất rơi vào CN là 1/7 (coi như phân bố đều thì là như thế) thì trung bình khoảng 7 năm là chiện này lập lại 1 lần, vậy thì con số 823 kia nếu có xãy ra thì ......

 

[SA_DQ]

Hơn 200 ngày đến lúc này

Option Explicit
Sub WeeDay1()
 Const Th As String = "01030507081012"
 Dim jJ As Long, Dat As Date
 
 Dat = [Q1].Value
 For jJ = Dat To 1 Step -7
   If InStr(Th, Right("0" & CStr(Month(jJ)), 2)) > 0 And Day(jJ) = 1 And Weekday(jJ) = 1 Then
      [n65535].End(xlUp).Offset(1).Value = jJ
   End If
 Next jJ
End Sub

 

[BNTT]

Xin lỗi các bạn về cái chuyện 823 năm...
Thật tình thì do tôi không kiểm tra kết quả, mà là do một tin nhắn của một người bạn nhắn với tôi, thấy hay hay nên gửi lên đây.

 

[Pansy_flower]

Tháng 8 hết diệu kỳ với mình rồi vì mình ghét ngày 8/8!!!.

 

[bechuotcoi]

Có thể coi ngày 08/08 là ngày diệu kỳ vì bechuotcoi tổ chức thành công hội thảo, và hi vọng có nhiều điều vui hơn trong những ngày sắp tới của tháng 8 dành cho tất cả mọi người

 

[ptm0412]

Tháng 8 hết diệu kỳ với mình rồi vì mình ghét ngày 8/8!!!.

Tháng 8 vẫn diệu kỳ vì có 1 người đã chọc được cho 1 người ghét.

 

[sboy1586]

Ngày 15-8 là ngày sinh của Napoleon (1769), ngày Nhật đầu hàng đồng minh (1945), ngày độc lập của Ấn Độ (1947),..., cũng là ngày sinh của mình nữa....