SELECT MOVEMENTTYPE FORM PATIENT_MOVEMENT
Dim d1 As String = Mid(txtdate.Text, 1, 2) Dim m1 As String = Mid(txtdate.Text, 4, 2) Dim y1 As String = Mid(txtdate.Text, 7, 4) Dim dates As String = m1.ToString & "/" & d1.ToString & "/" & Val(y1.ToString) - 543 txtdates.Text = dates
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง