Note: The other languages of the website are Google-translated. Back to English

วิธีคำนวณวันหรือชั่วโมงระหว่างวันที่หรือเวลาสองวันในเอกสาร Word

โดยปกติเราสามารถคำนวณจำนวนวันระหว่างวันที่สองวันในแผ่นงาน Excel ได้อย่างรวดเร็วและง่ายดาย แต่คุณเคยพยายามหาจำนวนวันระหว่างวันที่สองวันที่กำหนดในเอกสาร Word หรือไม่?

คำนวณความแตกต่างระหว่างวันที่สองวันในเอกสาร Word ด้วยรหัส VBA

คำนวณความแตกต่างระหว่างสองครั้งในเอกสาร Word ด้วยรหัส VBA


คำนวณความแตกต่างระหว่างวันที่สองวันในเอกสาร Word ด้วยรหัส VBA

ในการคำนวณจำนวนวันระหว่างวันที่สองวันที่ระบุรหัส VBA ด้านล่างสามารถช่วยคุณได้โปรดดำเนินการดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลเปล่าที่เปิดอยู่:

รหัส VBA: คำนวณความแตกต่างระหว่างวันที่สองวัน

Sub CalculateDateDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xDay As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
   If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
        MsgBox "please input current date", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xDay = DateDiff("d", xStartDate, xEndDate)
    MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้ในกล่องโต้ตอบติดต่อกันป้อนวันที่เริ่มต้นและวันที่สิ้นสุดที่คุณต้องการใช้ดูภาพหน้าจอ:

doc คำนวณวันที่ 1

4. จากนั้นคลิก OK และคุณจะได้ผลลัพธ์ที่คุณต้องการดูภาพหน้าจอ:

doc คำนวณวันที่ 2


คำนวณความแตกต่างระหว่างสองครั้งในเอกสาร Word ด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลเปล่าที่เปิดอยู่:

รหัส VBA: คำนวณความแตกต่างระหว่างสองครั้ง

Sub CalculateTimeDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xTime As Long
    Dim xHour As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
    Debug.Print Str(xStartDate)
    If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
    Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
        MsgBox "please input the time", vbInformation, "KuTools for Excel"
        Exit Sub
    ElseIf xStartDate > xEndDate Then
        MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xTime = DateDiff("s", xStartDate, xEndDate)
    xHour = xTime \ 3600
    xTime = xTime - xHour * 3600
    MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
            & " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้ในกล่องโต้ตอบที่ติดต่อกันป้อนเวลาเริ่มต้นและเวลาสิ้นสุดที่คุณต้องการใช้เพื่อคำนวณความแตกต่างดูภาพหน้าจอ:

doc คำนวณวันที่ 3

4. จากนั้นคลิก OK และมีการคำนวณความแตกต่างของเวลาระหว่างเวลาที่กำหนดสองครั้งและแสดงเป็นภาพหน้าจอต่อไปนี้

doc คำนวณวันที่ 4


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ