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