Thủ Thuật Access

Thế Giới Thủ Thuật với Access

Tìm ngày có thứ đầu tiên trong tháng

Posted by Noname on 04.01.2010

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!


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

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)

mời xem demo

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: