İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

İki tarix və ya vaxt arasında günlər və ya saat hesablamaq üçün necə Word sənədində?

Normal olaraq, Excel iş səhifəsində iki tarix arasında gün sayını tez və asanlıqla hesablaya bilərik, ancaq bir Word sənədində verilən iki tarix arasındakı gün sayını almağa çalışdınızmı?

VBA koduyla Word sənədində iki tarix arasındakı fərqi hesablayın

Word sənədində iki dəfə VBA kodu ilə fərqi hesablayın


VBA koduyla Word sənədində iki tarix arasındakı fərqi hesablayın

İki verilən tarixlər arasında gün sayını hesablamaq üçün aşağıdakı VBA kodu bir xeyir edə bilər, xahiş edirik bunu edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Və sonra basın Taxmaq > Modules, kodu aşağıda açıq blank moduluna kopyalayın və yapışdırın:

VBA kodu: İki tarix arasında fərqləri hesablayın

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ə sonra, mətbuat F5 ardıcıl informasiya qutularında bu kodu çalıştırmak üçün açar, istifadə etmək istədiyiniz başlanğıc tarixi və bitiş tarixini daxil edin, ekran görüntüsünə baxın:

doc 1 günlərini hesablayın

4. Sonra basın OK düyməsini basın və istədiyiniz nəticə əldə edəcəksiniz, ekran görüntüsünə baxın:

doc 2 günlərini hesablayın


Word sənədində iki dəfə VBA kodu ilə fərqi hesablayın

Verilən iki dəfə arasındakı fərqi hesablamağa kömək edə biləcək başqa bir VBA kodunu buradan edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Və sonra basın Taxmaq > Modules, kodu aşağıda açıq blank moduluna kopyalayın və yapışdırın:

VBA kodu: İki dəfə arasındakı fərqi hesablayın

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ə sonra, mətbuat F5 ardıcıl informasiya qutularında bu kodu çalıştırmak üçün açar, fərqi hesablamaq üçün istifadə etmək istədiyiniz başlanğıc vaxtı və sonu daxil edin, ekran görünüşünə baxın:

doc 3 günlərini hesablayın

4. Sonra basın OK düyməsini basın və iki dəfə verilmiş vaxt arasındakı fərqi hesablanmış və göstərilən ekran görüntüsü kimi göstərilmişdir:

doc 4 günlərini hesablayın



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
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.