2010-03-25 23 views

उत्तर

5

सीडीएट (स्ट्रिंगडेट) के साथ संयोजन के साथ IsDate (stringDate) का उपयोग करें।

यह निर्धारित करने के लिए कि क्या दिनांक दिनांक या समय में परिवर्तित किया जा सकता है, IsDate() फ़ंक्शन का उपयोग करें।

सीडीएटी() तारीख अक्षर और समय शाब्दिकों के साथ-साथ कुछ संख्याएं स्वीकार्य तिथियों की सीमा के भीतर आती हैं। किसी संख्या को किसी तारीख में परिवर्तित करते समय, संपूर्ण संख्या भाग को एक तिथि में परिवर्तित कर दिया जाता है। संख्या का कोई भी अंश भाग मध्यरात्रि से शुरू होने वाले दिन के समय में परिवर्तित हो जाता है।

सीडीएटी आपके सिस्टम की लोकेल सेटिंग के अनुसार दिनांक स्वरूपों को पहचानता है। दिन, महीने और वर्ष का सही क्रम निर्धारित नहीं किया जा सकता है अगर यह किसी मान्यता प्राप्त दिनांक सेटिंग के अलावा प्रारूप में प्रदान किया गया हो। इसके अतिरिक्त, एक लंबी तिथि प्रारूप को पहचाना नहीं जाता है यदि इसमें दिन-प्रति-सप्ताह की स्ट्रिंग भी शामिल है।

निम्न उदाहरण एक स्ट्रिंग को किसी तारीख में बदलने के लिए सीडीएटी फ़ंक्शन का उपयोग करता है।

MyDate = "October 19, 1962" ' Define date. 
MyShortDate = CDate(MyDate) ' Convert to Date data type. 
MyTime = "4:35:47 PM"   ' Define time. 
MyShortTime = CDate(MyTime) ' Convert to Date data type. 
2

मेरा मानना ​​है कि चुनौती स्थानीय क्षेत्रीय सेटिंग्स से स्वतंत्र समाधान बनाना है जो कई स्थितियों में प्री-रिक है।

मुझे मिला एकमात्र तरीका डेटसेरियल() का उपयोग करना है क्योंकि ParseExact() vbs में मौजूद नहीं है।

मुझे लगता है कि कोड नीचे चाल है। समय घटक जोड़ने के लिए एक आसान तरीका होना चाहिए लेकिन मुझे यह नहीं मिला। बेशक यह सटीक कोड केवल एक इनपुट प्रारूप को कवर करता है, लेकिन मुझे अभी इसकी आवश्यकता है।

fixedDate = fixmydate("27-01-2016 18:00:00") 


Function fixmydate(mydate) 
    sday = cint(Mid(mydate,1,2)) 
    smonth = cint(Mid(mydate,4,2)) 
    syear = cint(Mid(mydate,7,4)) 

    shour = cint(Mid(mydate,12,2)) 
    sminute = cint(Mid(mydate,15,2)) 
    ssecond = cint(Mid(mydate,18,2)) 

    sdate = DateSerial(syear,smonth,sday) 
    sdate = dateadd("h",shour,sdate) 
    sdate = dateadd("n",sminute,sdate) 
    sdate = dateadd("s",ssecond,sdate) 


    fixmydate = sdate 

End Function