Trong bài viết này, chúng tôi muốn giới thiệu cho bạn 2 cách nhanh chóng và hiệu quả để có được sự khác biệt giữa 2 ngày hoặc giờ cụ thể thông qua macro Word.
Để tính ngày hoặc thời gian còn lại giữa 2 ngày hoặc giờ cụ thể không khó. Bạn có thể tự mình làm toán hoặc lấy máy tính thời lượng ngày hoặc giờ. Và ở đây, chúng tôi muốn giới thiệu cho bạn 2 cách vĩ mô cho phép bạn lấy chênh lệch ngày hoặc giờ trong Word. Sau đây là các bước chi tiết:
Nhận chênh lệch ngày
- Trước hết, hãy mở Word.
- Sau đó nhấp vào tab "Nhà phát triển" nếu nó đã được kích hoạt.
- Tiếp theo, nhấp vào “Visual Basic” để mở trình chỉnh sửa VBA. bạn có thể tham khảo Cách chèn nhạc nền vào tài liệu Word của bạn để thêm “Nhà phát triển” vào Dải băng. Hoặc bạn cũng có thể nhấn “Alt + F11” nếu không muốn.
- Bây giờ hãy nhấp vào “Bình thường” và sau đó “Chèn”.
- Trên menu danh sách, chọn “Mô-đun”.
- Tiếp theo, nhấp đúp vào mô-đun mới để vào khu vực chỉnh sửa.
- Dán các mã sau:
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- Nhấp vào "Chạy" để chạy mã.
- Bây giờ bạn sẽ thấy hộp thoại “Ngày bắt đầu”. Nhập ngày bắt đầu vào ô văn bản và nhấn “OK”.
- Tiếp theo là hộp thoại “Ngày kết thúc”. Tương tự, nhập ngày kết thúc và nhấp vào “OK”.
- Sau đó, một hộp thông báo sẽ bật lên, cho biết sự khác biệt giữa 2 ngày.
Trong trường hợp bạn cần chèn kết quả vào tài liệu của mình, bạn có thể chỉnh sửa macro một chút bằng cách thay đổi dòng mã “MsgBox (“Còn ” & lDaysLeft & ” ngày nữa từ ” & dtStartDate & ” đến ” & dtEndDate & vbCrLf)"To"Selection.Text = “Còn ” & lDaysLeft & ” ngày nữa từ ” & dtStartDate & ” đến ” & dtEndDate & vbCrLf".
Nhận sự khác biệt về thời gian
- Đầu tiên lặp lại 6 bước đầu tiên ở trên.
- Sau đó, dán các mã này để thay thế:
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- Nhớ nhấn “Run”.
- Trong ô “Thời gian bắt đầu”, hãy nhập thời gian bắt đầu, ví dụ như “18:00:00”.
- Sau đó nhập thời gian kết thúc vào hộp thoại “End Time” và nhấp vào “OK”. Và bạn có thể kiểm tra kết quả trong hộp thông báo sắp tới.
Giảm thiểu nguy cơ mất tập tin
Thỉnh thoảng, Word có thể ngừng hoạt động đột ngột, khiến các tệp của chúng ta gặp nguy hiểm lớn. Do đó, để giảm khả năng tệp bị hỏng, chúng tôi khuyên bạn nên sao lưu thường xuyên. Ngoài ra, nhận được một Sản phẩm khôi phục tệp Word là cần thiết khi bạn thấy mình cần sửa các tệp bị hỏng.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm Công cụ sửa chữa dữ liệu Excel xls và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm