वीबीए में समय अंतर की गणना कैसे करें (उदाहरण के साथ)

आप दो समय के बीच अंतर की गणना करने के लिए वीबीए में निम्नलिखित मूल वाक्यविन्यास का उपयोग कर सकते हैं:

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

यह विशेष मैक्रो A2:A7 और B2:B7 श्रेणियों में संगत समय के बीच अंतर की गणना करेगा और निम्नलिखित परिणाम लौटाएगा:

• C2:C7 में दिनों का समय अंतर होगा
• D2:D7 में समय का अंतर घंटों में होगा
• E2:E7 में समय का अंतर मिनटों में होगा
• F2:F7 में समय का अंतर सेकंड में होगा

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए में समय अंतर की गणना करें

मान लीजिए कि हमारे पास एक्सेल में प्रारंभ और समाप्ति समय के निम्नलिखित दो कॉलम हैं:

हम प्रत्येक प्रारंभ और समाप्ति समय के बीच समय अंतर की गणना करने और कॉलम सी से एफ तक परिणाम प्रदर्शित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

कॉलम सी से एफ विभिन्न इकाइयों में प्रारंभ और समाप्ति समय के बीच के समय के अंतर को प्रदर्शित करते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए में तारीखों की तुलना कैसे करें
वीबीए में दो तिथियों के बीच दिनों की गणना कैसे करें
VBA में स्ट्रिंग को दिनांक में कैसे परिवर्तित करें