এই নিবন্ধে, আমরা আপনাকে ওয়ার্ড ম্যাক্রোর মাধ্যমে 2 নির্দিষ্ট তারিখ বা সময়ের মধ্যে পার্থক্য পেতে 2 দ্রুত এবং দক্ষ উপায় উপস্থাপন করতে চাই।
2 টি কংক্রিটের তারিখ বা সময়ের মধ্যে থাকা দিন বা সময় গণনা করা কোনও অসুবিধা নয়। আপনি নিজেই গণিত করতে পারেন বা তারিখ বা সময়কাল ক্যালকুলেটর পেতে পারেন। এবং এখানে আমরা আপনাকে 2 ম্যাক্রো উপায়গুলি প্রদর্শন করতে চাই যা আপনাকে ওয়ার্ডে তারিখ বা সময়ের পার্থক্য পেতে সক্ষম করে। নিম্নলিখিত বিস্তারিত পদক্ষেপগুলি নীচে:
তারিখের পার্থক্য পান
- সর্বপ্রথম, Word খুলুন।
- তারপরে "বিকাশকারী" ট্যাবটি ইতিমধ্যে চালু থাকলে ক্লিক করুন।
- এরপরে, ভিবিএ সম্পাদক খোলার জন্য "ভিজ্যুয়াল বেসিক" ক্লিক করুন। আপনি উল্লেখ করতে পারেন কীভাবে আপনার ওয়ার্ড ডকুমেন্টে পটভূমি সংগীত sertোকানো যায় ফিতাটিতে "বিকাশকারী" যুক্ত করতে। অথবা আপনি যদি না চান তবে তার পরিবর্তে আপনি “Alt + F11” টিপতে পারেন।
- এখন "সাধারণ" এবং তারপরে "sertোকান" ক্লিক করুন।
- তালিকার মেনুতে, "মডিউল" নির্বাচন করুন।
- এরপরে, সম্পাদনা ক্ষেত্রটি প্রবেশ করতে নতুন মডিউলটিতে ডাবল ক্লিক করুন।
- নিম্নলিখিত কোডগুলি আটকান:
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- কোডগুলি চালাতে "রান" ক্লিক করুন।
- এখন আপনি একটি “শুরুর তারিখ” ডায়ালগ বক্স দেখতে পাবেন। টেক্সট বক্সে শুরুর তারিখটি লিখুন এবং “ওকে” ক্লিক করুন।
- এর পরে রয়েছে "শেষ তারিখ" ডায়ালগ বক্স। একইভাবে, শেষ তারিখটি ইনপুট করুন এবং "ঠিক আছে" ক্লিক করুন।
- তারপরে একটি বার্তা বাক্স পপ আপ হবে, এটি 2 তারিখের মধ্যে পার্থক্য নির্দেশ করবে।
আপনার ডকুমেন্টে আপনাকে ফলাফলটি সন্নিবেশ করতে হবে, আপনি কোড লাইন পরিবর্তন করে ম্যাক্রোটি কিছুটা সম্পাদনা করতে পারেন “MsgBox (“” & dtStartDate & ” থেকে ” & dtEndDate & vbCrLf পর্যন্ত ” & lDaysLeft & ” দিন বাকি আছে)"থেকে"Selection.Text = “” & dtStartDate & ” থেকে ” & dtEndDate & vbCrLf পর্যন্ত ” & lDaysLeft & ” দিন বাকি আছে।”".
সময়ের পার্থক্য পান
- প্রথমে উপরের প্রথম 6 টি ধাপ পুনরাবৃত্তি করুন।
- তার পরিবর্তে এই কোডগুলি পেস্ট করুন:
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- মনে রাখবেন “রান” চাপুন।
- “শুরুর সময়” বক্সে শুরুর সময় লিখুন, যেমন “18:00:00”।
- তারপরে "শেষ সময়" সংলাপ বাক্সে শেষ সময়টি টাইপ করুন এবং "ঠিক আছে" ক্লিক করুন। এবং আপনি বার্তা বাক্সে আসা ফলাফল চেক করতে পারেন।
ফাইল ক্ষতির ঝুঁকি হ্রাস করুন
এখন এবং তারপরে ওয়ার্ড নীল থেকে কাজ করা বন্ধ করে দিতে পারে, আমাদের ফাইলগুলি খুব বিপদে ফেলেছে। অতএব, ফাইলগুলির ক্ষতি হওয়ার সম্ভাবনা হ্রাস করার জন্য আমরা আপনাকে নিয়মিত ব্যাকআপ নেওয়ার পরামর্শ দিই। এছাড়াও, একটি পান শব্দ ফাইল পুনরুদ্ধার পণ্য যখন আপনি নিজেকে ভাঙা ফাইলগুলি ফিক্স করার প্রয়োজনে সন্ধান করেন তখন প্রয়োজনীয়।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল এক্সএলএস ডেটা মেরামতের সরঞ্জাম এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com