Vba: วิธีคำนวณวันระหว่างวันที่สองวัน

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้ใน VBA เพื่อคำนวณจำนวนวันระหว่างวันที่สองวัน:

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

ตัวอย่างนี้จะคำนวณจำนวนวันระหว่างวันที่ในเซลล์ที่เกี่ยวข้องในช่วง A2:A7 และ B2:B7 และส่งกลับผลลัพธ์ในช่วง C2:C7

โปรดทราบว่าอาร์กิวเมนต์ “D” ในฟังก์ชัน DateDiff ระบุว่าเราต้องการคำนวณผลต่างของวันที่ในรูปของวัน

โปรดดู หน้าเอกสารประกอบของ VBA สำหรับรายการหน่วยทั้งหมดที่คุณสามารถใช้ได้สำหรับวันที่แตกต่าง

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: คำนวณวันระหว่างวันที่ใน VBA

สมมติว่าเรามีสองคอลัมน์ต่อไปนี้พร้อมวันที่ใน Excel:

สมมติว่าเราต้องการคำนวณจำนวนวันที่ระหว่างวันที่เริ่มต้นและวันที่สิ้นสุดในแต่ละแถวและแสดงผลลัพธ์ในคอลัมน์ C

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

จำนวนวันที่ระหว่างวันที่เริ่มต้นและวันที่สิ้นสุดแต่ละวันจะแสดงอยู่ในคอลัมน์ C

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีเปรียบเทียบวันที่ใน VBA
วิธีกรองคอลัมน์โดยใช้ VBA
วิธีจัดเรียงค่าตามตัวอักษรใน VBA