Tùy chọn
Tìm ngày có thứ đầu tiên trong tháng
- Tìm ngày có thứ đầu tiên trong tháng
-
Tìm ngày có thứ đầu tiên trong tháng
Noname > 27-08-10, 12:56 AM
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]](http://i39.photobucket.com/albums/e193/duytuan2002/Access/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)