Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Cách tính ngày hoặc giờ giữa hai ngày hoặc giờ Trong tài liệu Word?

Thông thường, chúng ta có thể tính số ngày giữa hai ngày trong trang tính Excel một cách nhanh chóng và dễ dàng, nhưng, bạn đã bao giờ thử lấy số ngày giữa hai ngày nhất định trong tài liệu Word chưa?

Tính toán chênh lệch giữa hai ngày trong tài liệu Word với mã VBA

Tính toán chênh lệch giữa hai thời điểm trong tài liệu Word với mã VBA


Tính toán chênh lệch giữa hai ngày trong tài liệu Word với mã VBA

Để tính số ngày giữa hai ngày nhất định, mã VBA dưới đây có thể giúp bạn, vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở:

Mã VBA: Tính toán chênh lệch giữa hai ngày

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. Và sau đó, nhấn F5 để chạy mã này, trong các hộp thoại liên tiếp, hãy nhập ngày bắt đầu và ngày kết thúc mà bạn muốn sử dụng, xem ảnh chụp màn hình:

doc tính toán ngày 1

4. Sau đó nhấn vào OK và bạn sẽ nhận được kết quả mong muốn, hãy xem ảnh chụp màn hình:

doc tính toán ngày 2


Tính toán chênh lệch giữa hai thời điểm trong tài liệu Word với mã VBA

Đây là một mã VBA khác có thể giúp bạn tính toán sự khác biệt giữa hai thời điểm nhất định, vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở:

Mã VBA: Tính toán chênh lệch giữa hai thời điểm

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. Và sau đó, nhấn F5 để chạy mã này, trong các hộp thoại liên tiếp, hãy nhập thời gian bắt đầu và thời gian kết thúc mà bạn muốn sử dụng để tính toán chênh lệch, xem ảnh chụp màn hình:

doc tính toán ngày 3

4. Sau đó nhấn vào OK và chênh lệch thời gian giữa hai thời điểm nhất định đã được tính toán và hiển thị như sau:

doc tính toán ngày 4


Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.