เมื่อวานมีคนถามคำถามนี้ไว้ที่
http://pantip.inet.co.th/tech/software/topic/SP767376.html

"อยากทราบ code ของการคำนวณ วันที่ ใน MS-Access97 รายละเอียด....
อยากทราบ code ของการคำนวณ วันที่ ใน MS-Access97 รายละเอียด....
คือว่ามีการคำนวณจากวันที่ที่กรอกนะคะเช่น
เป็นการใสวันที่ผลิต และอยากให้คำนวณและใสวันที่หมดอายุให้เลย โดยมีข้อกำหนดที่ว่า ดังนี้
1. ถ้าผลิตวันที่ 1 - 10 ของเดือน วันหมดอายุคือ วันที่ 5 ของเดือน และ ปีถัดไป
2. ถ้าผลิตวันที่ 11 - 20 วันหมดอายุ คือ 15
3. ถ้าผลิตสันที่ 21 - 31 วันหมดอายุ คือ 25
เช่น ผลิต 01/09/2544 หมดอายุคือ 5/09/02

ถ้าท่านใดทราบหรือพอจะให้คำแนะนำได้ขอให้ช่วยบอกด้วยนะคะ ขอบคุณค่ะ

จากคุณ : NNN [1 ต.ค. 2544 - 15:20:06] "

ผมเลยลองเขียนโค้ดนี้ขึ้นมา
Function Xpire(dteDate As Date)
Dim dteXDate As Date, intDate As Integer
intDate = DatePart("d", dteDate)
Select Case intDate
Case 1 To 10
dteXDate = DateSerial(Year(dteDate) + 1, Month(dteDate), 5)
Case 11 To 20
dteXDate = DateSerial(Year(dteDate) + 1, Month(dteDate), 15)
Case Else
dteXDate = DateSerial(Year(dteDate) + 1, Month(dteDate), 25)
End Select
Xpire = dteXDate
End Function

ลองนำไปใช้ดูครับ ถ้ามีปัญหากรุณาแจ้งเข้ามาด้วย