1.
Dim
d1
As
Date
=
"18/08/2007"
2.
d2
"19/09/2007"
3.
MsgBox(DateDiff(DateInterval.Day, d1, d2))
4.
'ผลลัพธ์ จะได้ 32 วัน
d3 as integer = DateDiff(DateInterval.Day, d1, d2)
if d3 > 30 then
msg(
"หมดอายุ"
)
end if
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง