360 ngày

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi quochung2005, 5 Tháng tư 2006.

3,098 lượt xem

  1. quochung2005

    quochung2005 Thành viên thân thiết

    Bài viết:
    99
    Đã được thích:
    0
    Nơi ở:
    DA NANG
    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 %
     
    #1
  2. Yeudoi

    Yeudoi Thành viên thân thiết

    Bài viết:
    88
    Đã được thích:
    0
    Nơi ở:
    Hoi An Quang Nam
    Biết được chứ bạn cho địa chỉ mình gửi mail qua cho.
     
    #2
  3. quochung2005

    quochung2005 Thành viên thân thiết

    Bài viết:
    99
    Đã được thích:
    0
    Nơi ở:
    DA NANG
    #3
  4. Đào Việt Cường

    Đào Việt Cường Moderator

    Bài viết:
    400
    Đã được thích:
    3
    Giới tính:
    Nam
    Nơi ở:
    Khánh Hòa
    Dear quochung2005,
    -------------------
    Không biết bạn đã tham khảo hàm WEEKDAY(<SerialNumber>;<Return_type>) chưa:
    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!
     
    #4
  5. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    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
     
    #5
  6. mysterious_girl

    mysterious_girl Thành viên sơ cấp

    Bài viết:
    358
    Đã được thích:
    1
    Nơi ở:
    ...close to you...
    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:
     
    #6
  7. HongViet

    HongViet Thành viên thân thiết

    Bài viết:
    286
    Đã được thích:
    10
    Nơi ở:
    Đà nẵng
    Mời các bạn xem thử giải NTN, đúng?!

    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
     
    Last edited: 26 Tháng tư 2006
    #7
  8. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    432
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Đơn giản như đang Zởn!

    /(/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;
     
    Last edited: 22 Tháng năm 2006
    #8

Chia sẻ trang này