ถามไว้ที่ 
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=AxxessXP&Number=117482&page=0&view=&sb=&o=&fpart=1&vc=1&PHPSESSID= 
 
เขาต้องการที่จะให้แปลงเป็นฟังก์ชันในการคำนวณการส่งของคืน โดยมีเกณฑ์ดังนี้ 
 
If TimeOut before 2pm Then 
ถ้ายืมออกก่อนบ่าย 2 โมง ให้คืนอีก 1 ชั่วโมงข้างหน้าของวันเดียวกัน 
DueTime=TimeOut + 1 hour 
DueDate=DateOut 
Else 
ถ้ายืมหลังจากบ่าย 2 โมงแล้ว 
If DayOfWeek = Friday Then 
ถ้าเป็นวันศุกร์ 
DueTime = 9am 
DueDate = next Monday 
ให้คืนวันจันทร์ เวลา 9 โมงเช้า 
Else 
DueTime = 9am 
DueDate = Tommorow 
ถ้าไม่ใช่วันศุกร์ ให้คืนวันรุ่งขึ้น ตอน 9 โมง 
End If 
End If 
 
ผมเลยได้เขียนฟังก์ชันนี้ขึ้นมาให้เขาครับ ดังนี้ 
 
Function ReturnDateTime(dtm As Date) As Date 
Dim dteDue As Date 
If Format(dtm, "hh") < 14 Then 
    dteDue = DateAdd("h", 1, dtm) 
Else 
    If Format(dtm, "ddd") = "Fri" Then 
        dteDue = DateSerial(Year(dtm), Month(dtm), Day(dtm) + 3) & " 9:00:00 am" 
    Else 
        dteDue = DateSerial(Year(dtm), Month(dtm), Day(dtm) + 1) & " 9:00:00 am" 
    End If 
End If 
ReturnDateTime = dteDue 
End Function 
 
ลองทดสอบดู 
 
? ReturnDateTime(#12/Sept/2002 2:00:00 pm#) 
 13/9/2545 9:00:00 
 
 Print ReturnDateTime(#9/12/2002#) 
 12/9/2545 1:00:00 
 
 Print ReturnDateTime(#9/13/2002 2:00:00 PM#) 
 16/9/2545 9:00:00