Đá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
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,286 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 486 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,695 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  Phân quyền truy cập menu trong Access Noname 21 13,300 03-02-15, 11:03 AM
Bài mới nhất: nhocnhim0009
  Phân quyền sửa Chương trình trong Access Noname 6 5,991 28-11-14, 11:43 AM
Bài mới nhất: nvthanghcm

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ơ