Word दस्तावेज़ में दो दिनांकों या समयों के बीच दिनों या घंटों की गणना कैसे करें?
आम तौर पर, हम एक्सेल वर्कशीट में दो तिथियों के बीच दिनों की संख्या की गणना जल्दी और आसानी से कर सकते हैं, लेकिन, क्या आपने कभी किसी वर्ड दस्तावेज़ में दो दी गई तिथियों के बीच दिनों की संख्या प्राप्त करने का प्रयास किया है?
VBA कोड के साथ Word दस्तावेज़ में दो तिथियों के बीच अंतर की गणना करें
VBA कोड के साथ Word दस्तावेज़ में दो बार के बीच अंतर की गणना करें
VBA कोड के साथ Word दस्तावेज़ में दो तिथियों के बीच अंतर की गणना करें
दो दी गई तारीखों के बीच दिनों की संख्या की गणना करने के लिए, नीचे दिया गया वीबीए कोड आपकी मदद कर सकता है, कृपया इसे इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, खुले हुए रिक्त मॉड्यूल में नीचे दिए गए कोड को कॉपी और पेस्ट करें:
वीबीए कोड: दो तिथियों के बीच अंतर की गणना करें
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 इस कोड को चलाने के लिए कुंजी, लगातार संवाद बॉक्स में, प्रारंभ तिथि और समाप्ति तिथि दर्ज करें जिसे आप उपयोग करना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, और आपको वह परिणाम मिलेगा जो आप चाहते हैं, स्क्रीनशॉट देखें:
VBA कोड के साथ Word दस्तावेज़ में दो बार के बीच अंतर की गणना करें
यहां एक और वीबीए कोड है जो आपको दो दिए गए समयों के बीच अंतर की गणना करने में मदद कर सकता है, कृपया इसे इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, खुले हुए रिक्त मॉड्यूल में नीचे दिए गए कोड को कॉपी और पेस्ट करें:
वीबीए कोड: दो समय के बीच अंतर की गणना करें
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 इस कोड को चलाने के लिए कुंजी, लगातार संवाद बॉक्स में, प्रारंभ समय और समाप्ति समय दर्ज करें जिसे आप अंतर की गणना के लिए उपयोग करना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, और दो दिए गए समय के बीच के समय के अंतर की गणना की गई है और दिखाए गए स्क्रीनशॉट के अनुसार प्रदर्शित किया गया है:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...