VBA డేట్‌పార్ట్ ఫంక్షన్ | తేదీ యొక్క పేర్కొన్న భాగాన్ని తిరిగి ఎలా ఇవ్వాలి?
ఎక్సెల్ VBA డేట్‌పార్ట్ ఫంక్షన్
VBA లో డేట్‌పార్ట్ ఇచ్చిన తేదీకి ఒక భాగాన్ని వాదనగా గుర్తించడానికి ఉపయోగిస్తారు, తేదీ భాగం రోజులు లేదా నెలలు లేదా సంవత్సరం కావచ్చు లేదా గంట నిమిషాలు మరియు సెకన్లు కావచ్చు, ఈ ఫంక్షన్ యొక్క వాక్యనిర్మాణం చాలా స్పష్టంగా తెలుస్తుంది మరియు ఇది ఇలా ఉంటుంది అనుసరిస్తుంది, డేట్‌పార్ట్ (ఇంటర్వెల్, ఆర్గ్యుమెంట్‌గా తేదీ).
సింటాక్స్
డేట్‌పార్ట్ ఫంక్షన్ యొక్క వాక్యనిర్మాణం క్రింద ఇవ్వబడింది:
- విరామం: విరామ వాదనలో పంపించాల్సిన డేటా స్ట్రింగ్ రకం, అంటే ఈ వాదన దానిలో ఏదైనా చెల్లుబాటు అయ్యే విలువలను కలిగి ఉంటుంది. విరామం సంవత్సరం, నెల, త్రైమాసికం, రోజు, వారం, గంట, నిమిషం, రెండవది కావచ్చు.
- తేదీ: అంచనా వేయవలసిన తేదీ విలువ.
- మొదటి రోజు వీక్: ఇది ఐచ్ఛిక పరామితి. ఇది వారంలోని మొదటి రోజును వివరిస్తుంది, దీనిని కూడా విస్మరించవచ్చు. ఈ పరామితిని విస్మరించినట్లయితే ఇది స్వయంచాలకంగా వారానికి మొదటి రోజుగా ఆదివారం పడుతుంది. మీరు దానిని మార్చాలనుకుంటే ఈ పరామితిని ఉపయోగించవచ్చు. ఈ వాదనలో vbUseSystem 0 ఉండవచ్చు.
NLS API సెట్టింగ్‌ని ఉపయోగించండి
vbSunday (డిఫాల్ట్), vbMonday, vbT Tuesday, vbWed Wednesday, vbThursday vbFriday, vbSaturday.
- firstweekofyear: అదేవిధంగా టాప్ పరామితి, ఇది కూడా ఐచ్ఛిక పరామితి. ఇది సంవత్సరం మొదటి వారాన్ని వివరిస్తుంది. ఈ పరామితిని కూడా విస్మరించవచ్చు. ఈ పరామితిని విస్మరిస్తే, జనవరి 1 వ సంవత్సరం మొదటి వారంగా umes హిస్తుంది. మీరు దానిని మార్చాలనుకుంటే, ఈ పరామితిని ఉపయోగించవచ్చు.
ఈ వాదన కింది విలువలను కలిగి ఉండవచ్చు.
vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.
అన్ని పారామితులను ఇచ్చిన తరువాత, డేట్‌పార్ట్ () మొత్తం తేదీ లేదా సంవత్సరం లేదా నెల లేదా త్రైమాసికం వంటి సంఖ్యా విలువను తిరిగి ఇస్తుంది. అందువల్ల ఈ ఫంక్షన్ యొక్క తిరిగి వచ్చే రకం సంఖ్యా విలువ అవుతుంది.
VBA లో డేట్‌పార్ట్ ఫంక్షన్‌ను ఎలా ఉపయోగించాలి?
మీరు ఈ VBA డేట్‌పార్ట్ ఎక్సెల్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA డేట్‌పార్ట్ ఎక్సెల్ మూసఉదాహరణ # 1
మొదటి ఉదాహరణ పూర్తి తేదీ మరియు ఆ నెల త్రైమాసికం కూడా ప్రదర్శించడం.
దీన్ని సాధించడానికి మనం విజువల్ బేసిక్‌లో కొంత కోడ్ రాయాలి, ఆ గోటో డెవలపర్ టాబ్ కోసం, ఆపై విజువల్ బేసిక్‌పై క్లిక్ చేసి, ఆపై ఒక విండో తెరవబడుతుంది.
ఆ విండోలో క్రింద చూపిన విధంగా కోడ్ రాయండి.
కోడ్:
ఉప తేదీ_డేట్‌పార్ట్ () డిమ్ మైడేట్ వేరియంట్ మైడేట్ = # 12/25/2019 # MsgBox మైడేట్ MsgBox డేట్‌పార్ట్ ("q", మైడేట్) 'క్వార్టర్ ఎండ్ సబ్‌ను ప్రదర్శిస్తుంది 
ఈ ఉదాహరణలో, తేదీని మరియు తేదీలో కొంత భాగాన్ని ప్రదర్శించడానికి మేము డేట్‌పార్ట్ ఫంక్షన్‌ను ఉపయోగించాము. సంవత్సరంలో ఏ త్రైమాసికంలో వచ్చే తేదీ ఇది ప్రదర్శిస్తుంది.
మేము కోడ్‌ను డీబగ్ చేస్తే, కోడ్ “Msgbox mydate” ను అమలు చేసినప్పుడు మొదటిసారి తేదీ పూర్తి తేదీగా ప్రదర్శించబడుతుంది ఎందుకంటే యాదృచ్ఛిక తేదీ “mydate” వేరియబుల్‌కు కేటాయించబడుతుంది.
తరువాత, ఆ తేదీ సంవత్సరంలో ఏ త్రైమాసికం వస్తుందో మేము ప్రదర్శిస్తున్నాము.
మీరు కోడ్‌ను మాన్యువల్‌గా రన్ చేసినప్పుడు లేదా సత్వరమార్గం కీ F5 ను ఉపయోగిస్తున్నప్పుడు సరే క్లిక్ చేసిన తర్వాత చూపిన విధంగా తేదీ ప్రదర్శించబడుతుంది. తరువాత, తేదీ యొక్క త్రైమాసికం ప్రదర్శించబడుతుంది ఇది స్క్రీన్ షాట్ క్రింద చూపబడుతుంది.
అదేవిధంగా, క్వార్టర్, తేదీ లేదా నెల లేదా సంవత్సరం మాత్రమే ప్రదర్శించబడుతుంది.
ఉదాహరణ # 2
ఈ ఉదాహరణలో, నేను రన్ సమయంలో మానవీయంగా తేదీని నమోదు చేస్తాను.
కోడ్:
ఉప తేదీ 1_డేట్‌పార్ట్ () డిమ్ టుడే డేట్‌గా తేదీగా ప్రకటించండి వేరియబుల్స్. Dim Msg TodayDate = InputBox ("తేదీని నమోదు చేయండి:") Msg = "క్వార్టర్:" & డేట్‌పార్ట్ ("q", టుడే డేట్) MsgBox Msg ఎండ్ సబ్ 
ఇక్కడ ఈ ఉదాహరణలో, మేము రన్ టైమ్‌లో మాన్యువల్‌గా తేదీని పొందడానికి ప్రయత్నిస్తున్నాము. “TodayDate = InputBox (“ తేదీని నమోదు చేయండి: ”)” కోడ్ ఈ తేదీని తేదీని మానవీయంగా నమోదు చేయవచ్చని సూచిస్తుంది,
తేదీని మానవీయంగా నమోదు చేసిన తరువాత అది క్వార్టర్ ఆఫ్ డేట్ ను సందేశ పెట్టెలో ప్రదర్శిస్తుంది. ఇది క్రింద స్క్రీన్ షాట్ లో చూపబడుతుంది.
జూన్ నెల 2 వ త్రైమాసికంలో ఉన్నందున, పై స్క్రీన్ షాట్‌లో చూపిన విధంగా ఇది 2 వ త్రైమాసికాన్ని ప్రదర్శిస్తుంది.
ఉదాహరణ # 3
ఈ ఉదాహరణలో, అన్ని విలువలు కణాలలో నింపబడతాయి.
కోడ్:
ప్రైవేట్ సబ్ వర్క్‌బుక్_ ఓపెన్ () డిమ్ డమ్మీ డేట్‌గా తేదీ డమ్మీడేట్ = యాక్టివ్‌షీట్.సెల్స్ (2, 2) యాక్టివ్‌షీట్.సెల్స్ (2, 2) .వాల్యూ = డే (డమ్మీడేట్) యాక్టివ్‌షీట్.సెల్స్ (3, 2) .వాల్యూ = గంట (డమ్మీడేట్) .సెల్స్ (4, 2) .వాల్యూ = నిమిషం (డమ్మీడేట్) యాక్టివ్‌షీట్.సెల్స్ (5, 2) .వాల్యూ = నెల (డమ్మీడేట్) యాక్టివ్‌షీట్.సెల్స్ (6, 2) .వాల్యూ = వారపు రోజు (డమ్మీడేట్) ఎండ్ సబ్
తేదీలు ఎక్సెల్ షీట్‌లోని కణాలలో నింపబడతాయి, దాని కోసం కోడ్ యాక్టివ్ షీట్.సెల్స్‌గా వ్రాయబడుతుంది. ఈ కోడ్ ద్వారా ఉన్న తేదీ సంవత్సరం నెల కావచ్చు లేదా ఇచ్చిన కణాలలో తేదీని చేర్చవచ్చు.
ఉదాహరణకు, పై స్క్రీన్‌షాట్‌లో,
ఎక్సెల్ షీట్ యొక్క కణాలలో (2, 2) రోజును చేర్చాలి. అందువల్ల కోడ్ “యాక్టివ్‌షీట్.సెల్స్ (2, 2) .వాల్యూ = డే (డమ్మీడేట్)“ అని వ్రాయబడింది.
F5 కీని ఉపయోగించి లేదా మానవీయంగా కోడ్‌ను అమలు చేయండి మరియు ఫలితం క్రింద చూపిన విధంగా ఉంటుంది.
ఇది అప్రమేయంగా నేటి తేదీని తీసుకుంటుంది మరియు ఇది 30 in (2,6) సెల్‌లో ప్రదర్శించబడుతుంది.
అదేవిధంగా మిగతా అన్ని డేటాకు కూడా ఇది నింపవచ్చు.
డేట్‌పార్ట్ ఫంక్షన్ యొక్క ఉపయోగం
- డేట్ పార్ట్ ఫంక్షన్ పేరు సూచించినట్లుగా తేదీ యొక్క భాగాన్ని ప్రదర్శించడానికి ఉపయోగించవచ్చు, అనగా, తేదీ యొక్క రోజు లేదా నెల లేదా సంవత్సరం మాత్రమే ప్రదర్శించాల్సిన అవసరం ఉంటే, అప్పుడు ఈ ఫంక్షన్ ఉపయోగించబడుతుంది.
- ఈ ఫంక్షన్ తేదీ, నెల మరియు సంవత్సరాన్ని ఒక నిర్దిష్ట తేదీ నుండి వేరు చేస్తుంది.
- ఈ ఫంక్షన్‌ను ఉపయోగించడం ద్వారా తేదీ వేరు చేయబడడమే కాదు, మనం క్వార్టర్, డే, గంట, నిమిషం మరియు సెకను కూడా పొందవచ్చు.
గుర్తుంచుకోవలసిన విషయాలు
- ఈ ఫంక్షన్‌ను VBA ఫంక్షన్‌గా మాత్రమే ఉపయోగించవచ్చు. సాధారణ ఎక్సెల్ లో, ఇది ఉపయోగించబడదు.
- ఈ ఫంక్షన్‌లో విలువగా ఇవ్వబడిన తేదీలను mm-dd-yyyy ఫార్మాట్ లేదా DD-MM-YYYY ఫార్మాట్ వంటి ఏ ఫార్మాట్‌లోనైనా ఇవ్వవచ్చు.
- ఈ ఫంక్షన్ తేదీ, నెల, సంవత్సరం లేదా సమయం వంటి గంట, నిమిషం, సెకన్లు వంటి అన్ని విలువలను విడిగా వేరు చేస్తుంది.
- మైక్రోసాఫ్ట్ ఎక్సెల్ యొక్క VBA లో తేదీ మరియు సమయ విధుల క్రింద ఇది నిర్వహించబడుతుంది.
