Đánh giá chủ đề:
  • 5 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tìm ngày có thứ đầu tiên trong tháng
#1
Hỏi: Công ty tôi họp thường kỳ vào thứ 3 tuần đầu tiên của tháng. Xin giúp 1 đoạn code để tôi biết chính xác thứ 3 đầu tiên của tháng là ngày mấy!
[Hình: ngaydautien.jpg]

Đáp: bạn có thể tạo 1 function như sau:

Mã:
Public Function FirstDayofMonth(intYr As Integer, intMth As Integer, intWeekday As Integer) As Date
    Dim dteMonthStart As Date
    Dim intDayofWeek As Integer, intIncrement As Integer

    dteMonthStart = DateSerial(intYr, intMth, 1)
    intDayofWeek = Weekday(dteMonthStart)

    If intDayofWeek <= intWeekday Then
       intIncrement = intWeekday - intDayofWeek
       FirstDayofMonth = DateAdd("d", intIncrement, dteMonthStart)
    Else
       intIncrement = (7 - intDayofWeek) + intWeekday
       FirstDayofMonth = DateAdd("d", intIncrement, dteMonthStart)
    End If
    End Function

Bây giờ bạn có thể gọi function trên, truyền tham số
FirstDayofMonth(Năm xem xét, tháng xem xét, Thứ trong tuần)
Ví dụ muốn biết ngày thứ 3 của tháng 1 năm 2010 bạn gọi:
msgbox FirstDayofMonth(2010,1,3)

[Hình: ngaydautien.rar?attredirects=0&d=1]
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Khóa phím close trong Access Noname 3 2,794 26-09-18, 04:07 PM
Bài mới nhất: tranthanhan1962
  DBEngine và Workspace trong việc truyền tải dữ liệu giữa hai Database Xuân Thanh 8 627 12-08-18, 08:29 PM
Bài mới nhất: Xuân Thanh
  [Help] Giá trị trùng trong report vulhu06 1 742 14-07-18, 09:03 PM
Bài mới nhất: hoaqldd33
  [Hỏi] Câu lệnh đóng tất cả các tab đang mở trong access mrtoanbin 3 380 29-05-18, 06:20 PM
Bài mới nhất: ongke0711
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 35 18,558 16-05-18, 09:18 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối