มีคนถามไว้ที่ 
http://pantip.inet.co.th/tech/developer/topic/DD1034358.html 
 
จะให้ Access ทำวันเดือนปีเป็นวันที่เท่าไหรของปีทำอย่างงัยดีครับ 
คือผมต้องการให้ Access มองวันเดือนปีเป็นวันที่เท่าไหรของปีทำอย่างไรดีครับเช่นว่า 
20 เมษายน 2545 เป็นวันที่ 109 ของปี 2545 เป็นตันครับ ทำอย่างไรดีครับ 
 
จากคุณ:  Kei [31 ส.ค. 2545 - 11:38:08] 
 
ใน Access จะมีฟังก์ชัน DatePart() ซึ่งสามารถหาว่าวันใดๆ เป็นวันที่เท่าไรของปีให้เราได้เลย 
 
ใช้ดังนี้ 
? datepart("y",#20/apr/2002#) 
110 
 
ในเว็บดังกล่าว มีคนตอบเป็นฟังก์ชันไว้ด้วยครับ ผมเลยนำมาปรับใหม่ให้ใช้ได้ง่ายขึ้นดังนี้ 
 
Function DayInYear(dte As Date) As Integer 
Dim dteFirst As Date 
Dim TotalDate As Integer 
 
dteFirst = DateSerial(Year(dte), 1, 1) 
TotalDate = 0 
Do While dteFirst <= dte 
    TotalDate = TotalDate + 1 
    dteFirst = DateAdd("d", 1, dteFirst) 
Loop 
DayInYear = TotalDate 
End Function 
 
หรือถ้าจะใช้ฟังก์ชันของ Access เองก็ทำได้ดังนี้ 
 
Function MyDayInYear(dte As Date) As Integer 
    MyDayInYear = DatePart("y", dte) 
End Function