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

Word 문서에서 두 날짜 또는 시간 사이의 일 또는 시간을 계산하는 방법은 무엇입니까?

일반적으로 Excel 워크 시트에서 두 날짜 사이의 일 수를 빠르고 쉽게 계산할 수 있지만 Word 문서에서 주어진 두 날짜 사이의 일 수를 얻으려고 시도한 적이 있습니까?

VBA 코드를 사용하여 Word 문서에서 두 날짜 간의 차이 계산

VBA 코드로 Word 문서에서 두 번의 차이 계산


VBA 코드를 사용하여 Word 문서에서 두 날짜 간의 차이 계산

주어진 두 날짜 사이의 일 수를 계산하려면 아래 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


VBA 코드로 Word 문서에서 두 번의 차이 계산

다음은 주어진 두 시간의 차이를 계산하는 데 도움이되는 또 다른 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


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (0)
아직 평가가 없습니다. 가장 먼저 평가하세요!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치