360 ngày

[quochung2005]

các bạn có thể biết 1 năm có 365 ngày năm 2002 năm ngày và 365 ngày đó rơi vào ngày thứ bảy và chủ nhật là ngày mấy kô,
mình đọc trong cuốn sách bài tập EX họ có ghi
30/01/02
05/06/02
01/04/02
09/08/02
07/02/02
và ở bên cho là; nuế tất cả 5 ngày trên rơi và ngày thứ bảy và chủ nhật thì
thu thêm 2 %

 

[Yeudoi]

Biết được chứ bạn cho địa chỉ mình gửi mail qua cho.

 

[quochung2005]

Biết được chứ bạn cho địa chỉ mình gửi mail qua cho.

duonghung19812004@yahoo.com

 

[Đào Việt Cường]

Dear quochung2005,
-------------------
Không biết bạn đã tham khảo hàm WEEKDAY(<SerialNumber>;<Return_type>) chưa:

Returns the day of the week corresponding to a date. The day is given as an integer, ranging from 1 (Sunday) to 7 (Saturday), by default.

Hàm này cho phép bạn xác định số thứ tự của <SerialNumber> trong tuần. Bạn cũng có thể điều chỉnh số thứ tự ngày, dựa vào <Return_type>
Dựa vào kết quả hàm bạn có thể xác định được ngày đã cho là thứ mấy.
Chúc bạn thành công!

 

[adam_tran]

Hì, nhân đây có 1 câu đố đơn giản: Cho 1 tháng bất kỳ thuộc 1 năm bất kỳ, tính xem trong tháng đó có bao nhiêu cái thứ 7 (hay CN). Không dùng VBA

 

[mysterious_girl]

Hì, nhân đây có 1 câu đố đơn giản: Cho 1 tháng bất kỳ thuộc 1 năm bất kỳ, tính xem trong tháng đó có bao nhiêu cái thứ 7 (hay CN). Không dùng VBA

Bác Adam hay có câu đố nhỉ! Xem nào, ai sẽ là người đoạt giải tiếp theo đây?:dance2:

 

[HongViet]

Mời các bạn xem thử giải NTN, đúng?!

Hì, Cho 1 tháng bất kỳ thuộc 1 năm bất kỳ, tính xem trong tháng đó có bao nhiêu cái thứ 7 (hay CN). dùng VBA

Không dùng VBA thì khó quá; Dùng VBA cò khó gặm nữa là!
Hàm tự tạo như sau:
Function DemThuOfMonth(Dat As Date, Thu As Long) As Long
On Error goto Err_Dem
Dim NgDauThang As Date: Dim jz As Long, zj As Long
NgDauThang= Dat - Day( Dat) 'Ngày cuối tháng trước đó
jz = DateAdd("M", 1, NgDauThang) - NgDauThang ' Số ngày trong tháng đó
For zj = 1 to jz
1 NgDauThang = NgDauThang +1
2 If WeekDay(NgDauThang)= Thu then DemThuOfMonth = DemThuOfMonth + 1
Next zj
Loi_Dem : Exit Function
Err_Dem:
Select case Err
Case 9
. . .
Case 13
. . .
Case Else
Msgbox Error$(), 35, Str(Err)
End Select
Resume Loi_Dem
End Function

 

[SA_DQ]

Đơn giản như đang Zởn!

Hì, nhân đây có 1 câu đố đơn giản: Cho 1 tháng bất kỳ thuộc 1 năm bất kỳ, tính xem trong tháng đó có bao nhiêu cái CN). Không dùng VBA

/(/hưng không đơn giản chút nào:
=ROUNDUP((DAY(DATE(YEAR(A3),MONTH(A3)+1,1)-1)-CHOOSE( WEEKDAY( A3 - DAY( A3 ) + 1 ), 0, 6, 5, 4, 3, 2, 1 ))/7,0)

Xin giải thích CThức như sau:
a/ Tìm số ngày trong tháng đã nhập vô;
b/ Tìm số ngày còn lại trong tháng kể từ CN đầu tiên tháng đó;
c/ Làm tròn số phép chia số ngày này cho 7;