*** DTTMOut && เปลี่ยนวันที่คืนห้อง
***	m.OutDate เป็นวันที่คืนห้อง
***	m.OutTime เป็นเวลาของ SysPara.dttm4guest (12:00)
Private cfCurTime,cntDateEnd
cntDateEnd = m.OutDate && วันคืนห้อง
cfCurTime   = Substr(Time(),1,5) && เวลาปัจจุบัน
Do Case
	Case .F. && Between(cfCurTime,'00:00','02:59')
		m.OutTime='12:00:00'
	Case .F. && Between(cfCurTime,'03:00','05:59')
		m.OutTime='15:00:00'
	Case .F. && Between(cfCurTime,'06:00','11:59')  && นับเป็น 12 ชั่วโมง
		m.OutTime=cfCurTime+':00'
	Case .F. && Between(cfCurTime,'12:00','23:59')
		m.OutTime='12:00:00'
Endcase 
Return 

