กระทู้เก่าบอร์ด อ.Yeadram
2,354 4
URL.หัวข้อ /
URL
หาผลต่างของนาที และ ต้องตั้งค่าฟิวด์ช่องเป็นรูปแบบ
ผมจะทำข้อมูลการคำนวณการเดินทางส่งคนไข้ของรถยนต์ ว่าใช้กี่นาที โดยเก็บข้อมูลมาลง จะมีช่อง 4 ฟิวด์ คือ
1. วันที่ออกเดินทาง ....... กำหนด เป็น รูปแบบวันที่
2 เวลาที่ออกเดินทาง ...... จะกำหนดข้อมูล ยังไง ครับ
3. วันที่ถึง จุดหมาย ...... กำหนด เป็น รูปแบบวันที่
4. เวลาที่ถึง ........... จะกำหนดข้อมูล หมือนช่องที่2
จะคำนวณ ใช้สูตร ยังไง ครับ ในกรณี
1.ถ้าออกเดินทางและถึงที่หมายวันเดียวกัน เวลา 10.20 น. ถึงที่หมาย เวลา 14.30 น
2. ถ้าเดินทาง เวล 23.45 น. และถึง ในอีกวันหนึ่ง เวลา 00.30 น.
.....
ถ้าเอาฟิวด์ ช่องที่ 1 และ ที่ 2 มารวมกัน ให้เป็น วดป. ชม.นาที แล้วเอามาลบกันจะได้ไหมครับ...
1. วันที่ออกเดินทาง ....... กำหนด เป็น รูปแบบวันที่
2 เวลาที่ออกเดินทาง ...... จะกำหนดข้อมูล ยังไง ครับ
3. วันที่ถึง จุดหมาย ...... กำหนด เป็น รูปแบบวันที่
4. เวลาที่ถึง ........... จะกำหนดข้อมูล หมือนช่องที่2
จะคำนวณ ใช้สูตร ยังไง ครับ ในกรณี
1.ถ้าออกเดินทางและถึงที่หมายวันเดียวกัน เวลา 10.20 น. ถึงที่หมาย เวลา 14.30 น
2. ถ้าเดินทาง เวล 23.45 น. และถึง ในอีกวันหนึ่ง เวลา 00.30 น.
.....
ถ้าเอาฟิวด์ ช่องที่ 1 และ ที่ 2 มารวมกัน ให้เป็น วดป. ชม.นาที แล้วเอามาลบกันจะได้ไหมครับ...
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R15149
โพสไปแล้ว ลองมาคำนวณเลข ดู >>ตอนนี้ ผมใช้วิธีนี้ไปก่อน ครับ ตั้งช่อง 2และ 4 เป็น เลข double แล้วให้มาคำนวณกัน ครับ
Private Sub TimeToHos_AfterUpdate()
If Me.[TimeAcident] > Me.[TimeToHos] Then
Me.TimeUse.Value = ((24 - (Me.[TimeAcident]) - 0.4) + Me.[TimeToHos]) * 100
Else
Me.TimeUse.Value = (Me.[TimeToHos] - Me.TimeAcident) * 100
End If
End Sub
Private Sub TimeToHos_AfterUpdate()
If Me.[TimeAcident] > Me.[TimeToHos] Then
Me.TimeUse.Value = ((24 - (Me.[TimeAcident]) - 0.4) + Me.[TimeToHos]) * 100
Else
Me.TimeUse.Value = (Me.[TimeToHos] - Me.TimeAcident) * 100
End If
End Sub
3 @R15150
ยังไม่เข้าใจถึงคำตอบที่คุณอยากได้เท่าไร แต่หากที่คุณต้องการคือค่า ชั่วโมง:นาที:วินาที ของวันเวลาเข้า-ออก แนะนำทำให้อย่างที่คุณ Un บอกไว้ คือเก็บข้อ 1-2 และ 3-4 เหลือแค่ วันเวลาออก และ วันเวลาถึง ก็พอแล้วครับ
ตัวอย่าง
วันเวลาออก = 3/2/2013 16:36:00
วันเวลาถึง = 4/2/2013 19:12:24
ใช้สูตรคำนวณดังนี้
ผลลัพธ์ = 26:36:24
ก็คือ 26 ชั่วโมง 36 นาที 24 วินาที
ประมาณนี้ครับ ไม่รู้ว่าตรงตามความต้องการหรือเปล่า ปรับใช้สูตรดูนะครับ
ตัวอย่าง
วันเวลาออก = 3/2/2013 16:36:00
วันเวลาถึง = 4/2/2013 19:12:24
ใช้สูตรคำนวณดังนี้
Dim z As Long, h As Long, n As Long, s As Long
z = DateDiff("s", [วันเวลาออก], [วันเวลาถึง])
h = z \ 3600
n = (z - (h * 3600)) \ 60
s = z - ((n * 60) + (h * 3600))
[เวลาที่ใช้] = Format(h, "00") & ":" & Format(n, "00") & ":" & Format(s, "00")
ผลลัพธ์ = 26:36:24
ก็คือ 26 ชั่วโมง 36 นาที 24 วินาที
ประมาณนี้ครับ ไม่รู้ว่าตรงตามความต้องการหรือเปล่า ปรับใช้สูตรดูนะครับ
4 @R15151
http://www.techonthenet.com/access/functions/date/datediff.php
ตัวอย่าง datediff ครับ
ตัวอย่าง datediff ครับ
Time: 0.2414s
ส่วนวิธีการเอามาลบกัน ในบอร์ดนี้มีอาจารย์ ตอบบ้างแล้วครับ ลองหาดูครับ