टाइमर विवरण
मध्यरात्रि के बाद से बीत चुके सेकंड की संख्या का प्रतिनिधित्व करने वाला एकल मान देता है।
सरल टाइमर उदाहरण
यहाँ एक साधारण टाइमर उदाहरण है:
| 123 | उप टाइमर_उदाहरण ()संदेशबॉक्स टाइमरअंत उप |
टाइमर सिंटैक्स
VBA संपादक में, Timer फ़ंक्शन के लिए सिंटैक्स।
| 1 | घड़ी |
टाइमर फ़ंक्शन में कोई तर्क नहीं है:
एक्सेल वीबीए टाइमर फंक्शन के उदाहरण
निम्नलिखित कोड उदाहरण का उपयोग करते हुए, कृपया sec1 और sec2 की तुलना करने का प्रयास करें।
फिर, हम आसानी से Timer function का अर्थ जान सकते हैं।
| 123456789101112131415161718192021222324252627 | उप टाइमर_उदाहरण1 ()मंद sec1 एकल के रूप मेंमंद सेकंड2 जितना लंबा होsec1 = टाइमरsec2 = GetSecondsFromMidnightMsgBox "sec1 =" और sec1 और vbCrLf और _"सेक २ =" और सेकंड २अंत उपफ़ंक्शन GetSecondsFromMidnight () लंबे समय तकदिनांक के रूप में मंद डीटीडिम एच अस इंटीजरडिम एम अस इंटीजरडिम एस अस इंटीजरडीटी = अबएच = घंटा (डीटी)एम = मिनट (डीटी)एस = दूसरा (डीटी)मिनट = एच * 60 + एमसेकंड = मिनट * ६० + sGetSecondsFromMidnight = secsअंत समारोह |
टाइमर फ़ंक्शन का उपयोग करके, हम यह माप सकते हैं कि VBA कोड के एक भाग को चलाने में कितना समय लगेगा।
| 1234567891011121314151617 | उप टाइमर_Example2 ()डिम स्टार्टसेक सिंगल के रूप मेंडिम एंडसेक सिंगल के रूप मेंडिम आई ऐज़ लॉन्गस्टार्टसेक = टाइमर' टेस्ट करने के लिए वीबीए कोड की शुरुआतमैं = 1 से 500000 . के लिएDoEventsअगला मैं' परीक्षण करने के लिए वीबीए कोड का अंतएंडसेक = टाइमरMsgBox "यह ले लिया" और CStr (endSec - startSec) और "s।"अंत उप |
