dữ liệu ngày trả về quý

[bethuonganh]

Em muốn dự liệu ngày tháng được trả về theo quý
ví dụ như 12/1/2008 ----> trả về quý 1

ai bít chỉ em với ...
em sử dụng
datepart ("q",(([ngaythang]=1)and(year([ngaythang])=2008)))
mà máy cứ báo lỗi... trong access nhá mọi người
giúp em với mọi người ơi. thank

 

[Access2k]

Ðề: dữ liệu ngày trả về quý

Mục đích việc tính Quý là lấy dữ liệu tháng trong giá trị ngày tháng năm.
Bạn thử dùng hàm sau:

Public Function TinhQuy(ngay As Date)

If Month(Format(ngay, "dd/mm/yyyy")) <= 3 Then
TinhQuy = "Quy 1"
Else
If Month(Format(ngay, "dd/mm/yyyy")) <= 6 Then
TinhQuy = "Quy 2"
Else
If Month(Format(ngay, "dd/mm/yyyy")) <= 9 Then
TinhQuy = "Quy 3"
Else
TinhQuy = "Quy 4"
End If
End If
End If

End Function

Nhấn Ctrl+G thử hàm:
?TinhQuy("08/06")
Quy 2
?TinhQuy("03/10/2008")
Quy 4

Lưu ý nhập ngày theo đúng Format. Nếu format là / thì phân cách ngày tháng cũng vậy.

 

[isoomo]

Ðề: dữ liệu ngày trả về quý

Mình nghĩ là chỉ cần dùng hàm datepart thôi.
VD: ngaythang: 13/01/2008 -> quy: 1
quy = datepart("q",[ngaythang])
Bạn có thể tham khảo một số hàm thường dùng ở trang này:http://thekok.net/forum/index.php?showtopic=5375

 

[Access2k]

Ðề: dữ liệu ngày trả về quý

Đúng dùng Datepart("Q","03/10") đ[n giản hơn.

 

[muontennguoi]

Ðề: dữ liệu ngày trả về quý

Em muốn dự liệu ngày tháng được trả về theo quý
ví dụ như 12/1/2008 ----> trả về quý 1

ai bít chỉ em với ...
em sử dụng
datepart ("q", (([ngaythang]=1)and(year([ngaythang])=2008)) )
mà máy cứ báo lỗi... trong access nhá mọi người
giúp em với mọi người ơi. thank

Đoạn màu đỏ nó sẽ trả về kết quả kiểu logic. Chỗ đó phải trả về kiểu ngày tháng mới được.

Có lẽ ý của bạn là muốn kiểm tra xem [ngay tháng] có phải là quý 1/08 hay không, phải không?

 

[bethuonganh]

Ðề: dữ liệu ngày trả về quý

Có lẽ ý của bạn là muốn kiểm tra xem [ngay tháng] có phải là quý 1/08 hay không, phải không?

ùhm.. mình muốn kiểm tra ngày tháng có thuộc quý 1 của năm 2008 ....

mình dùng datepart rùi ... nhưng nó hem ra .... 41: mình hem bít sai cái gì nữa

 

[muontennguoi]

Ðề: dữ liệu ngày trả về quý

IF datepart ("q", [ngaythang])=1 and year([ngaythang])=2008 THEN
Msgbox("Đúng rồi")
ELSE
Msgbox("Hông phải")
END IF