Đá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
Lightbulb [Hỏi] Ghi lại mọi thay đổi diễn ra trong access toidjtjmtoi 2 228 19-09-17, 11:06 AM
Bài mới nhất: toidjtjmtoi
  Hướng Dẫn Xin cách xổ list kết quả khi đánh chữ trong form datasheet tien1505 10 556 02-07-17, 01:23 PM
Bài mới nhất: tranthanhan1962
  [Help] Giá trị trùng trong report vulhu06 0 254 28-03-17, 02:42 PM
Bài mới nhất: vulhu06
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 14,642 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 969 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut

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ơ