Thủ Thuật Access

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

Xác định số thứ trong một khoảng thời gian

Posted by Noname on 30.06.2010

Có một bạn hỏi Muốn xác định số ngày thứ (nhật, 2, 3,4…) trong một khoảng thời gian thì làm thế nào?
Trả lời:
Bạn có thể vào khung soạn code, nhập đoạn code sau vào:

Function demngay(Startdate As Date, Enddate As Date, dayinweek As Integer) As Integer
Dim songay As Integer ‘ so ngay trong khoang tg do
Dim s As Date ‘ngay xem xet
Dim ngay As Integer ‘so ngay can tim luy ke
songay = Enddate – Startdate
ngay = 0
s = Startdate
For i = 0 To songay
        If Weekday(s) = dayinweek Then
         ngay = ngay + 1
        End If
        s = s + 1
Next i
demngay = ngay
End Function

Chú ý: tham số day inweek
1:chủ nhật
2:thứ 2
3 thứ 3
4: thứ tư
5: thứ 5
6: thứ 6
7: Thứ 7

Bây giờ bạn có thể gọi từ 1 nút nhấn với tham số truyền từ 2 textbox txtTungay, txtDenngay và 1 combobox tùy biến thứ muốn tìm: cbbThu

Private Sub Command6_Click()
Dim t As Integer
t = demngay(Me.txtTungay, txtDenngay, cbbThu)
MsgBox ” Tu ngay ” & txtTungay & ” den ngay ” & txtDenngay & ” Co ” & t & ” ngay thu ” & cbbThu
End Sub

Các bạn xem demo Taixuong

____________________________________________________________________________________
Thảo luận thêm: http://thuthuataccess.co.cc/forum

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: