Dim T1 As Date = CDate(Now.Date & " " & "23:31:46") Dim T2 As Date = CDate(Now.Date & " " & "01:31:46") MsgBox(DateDiff(DateInterval.Minute, T2, T1))
Dim T1 As Date = CDate(Now.Date & " " & "23:31:46") Dim T2 As Date = CDate(Now.Date & " " & "01:31:46") IF (DateInterval.Minute, T1, T2) < 0 Then T2 = T2.AddDays(1) End IF MsgBox(DateDiff(DateInterval.Minute, T1, T2))
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง