ამ სტატიაში გვინდა წარმოგიდგინოთ 2 სწრაფი და ეფექტური გზა, რათა მიიღოთ განსხვავება 2 კონკრეტულ თარიღს ან დროს შორის Word მაკროების საშუალებით.
2 კონკრეტულ თარიღს ან დროს შორის დარჩენილი დღეების ან დროის გამოთვლა არ არის რთული. თქვენ შეგიძლიათ გააკეთოთ მათემატიკა დამოუკიდებლად, ან მიიღოთ თარიღის ან დროის ხანგრძლივობის კალკულატორი. და აქ გვინდა გაჩვენოთ 2 მაკრო გზა, რომელიც საშუალებას გაძლევთ მიიღოთ თარიღის ან დროის სხვაობა Word-ში. ქვემოთ მოცემულია დეტალური ნაბიჯები:
მიიღეთ თარიღის სხვაობა
- პირველ რიგში, გახსენით Word.
- შემდეგ დააჭირეთ "დეველოპერი" ჩანართს, თუ ის უკვე გააქტიურებულია.
- შემდეგი, დააჭირეთ "Visual Basic" VBA რედაქტორის გასახსნელად. შეგიძლიათ მიმართოთ როგორ ჩასვათ ფონის მუსიკა თქვენს Word დოკუმენტში „დეველოპერი“ რიბონში დასამატებლად. ან შეგიძლიათ ასევე დააჭიროთ „Alt+ F11“-ს, თუ არ გსურთ.
- ახლა დააჭირეთ "ნორმალური" და შემდეგ "ჩასმა".
- სიის მენიუში აირჩიეთ "მოდული".
- შემდეგი, ორჯერ დააწკაპუნეთ ახალ მოდულზე, რათა შეხვიდეთ რედაქტირების ზონაში.
- ჩასვით შემდეგი კოდები:
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
- კოდების გასაშვებად დააჭირეთ "გაშვებას".
- ახლა თქვენ დაინახავთ დიალოგურ ფანჯარას „დაწყების თარიღი“. შეიყვანეთ დაწყების თარიღი ტექსტურ ველში და დააჭირეთ ღილაკს „კარგი“.
- შემდეგ არის დიალოგური ფანჯარა "დამთავრების თარიღი". ანალოგიურად, შეიყვანეთ დასრულების თარიღი და დააჭირეთ "OK".
- შემდეგ გამოჩნდება შეტყობინების ყუთი, რომელიც მიუთითებს განსხვავებას 2 თარიღს შორის.
თუ თქვენ გჭირდებათ შედეგის ჩასმა თქვენს დოკუმენტში, შეგიძლიათ მაკრო ცოტათი შეცვალოთ კოდის ხაზის შეცვლით.MsgBox („დარჩენილია“ & lDaysLeft & ” დღეები ” & dtStartDate & ” -დან ” & dtEndDate & vbCrLf-მდე)"To"Selection.Text = “დარჩენილია” & lDaysLeft & ” დღეები ” & dtStartDate & ” -დან ” & dtEndDate & vbCrLf-მდე".
მიიღეთ დროის სხვაობა
- ჯერ გაიმეორეთ ზემოთ მოცემული პირველი 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
- დაიმახსოვრე დააჭირე "Run".
- „დაწყების დროის“ ველში შეიყვანეთ დაწყების დრო, მაგალითად, „18:00:00“.
- შემდეგ ჩაწერეთ დასრულების დრო დიალოგურ ფანჯარაში "დასრულების დრო" და დააჭირეთ "OK". და თქვენ შეგიძლიათ შეამოწმოთ შედეგი მომავალი შეტყობინების ყუთში.
შეამცირეთ ფაილის დაკარგვის რისკი
ახლა და შემდეგ, Word-ს შეუძლია შეწყვიტოს მუშაობა, რაც ჩვენს ფაილებს დიდი საფრთხის წინაშე აყენებს. ამიტომ, ფაილების დაზიანების ალბათობის შესამცირებლად, გირჩევთ გააკეთოთ რეგულარულად სარეზერვო ასლები. ასევე, მიიღეთ ა Word ფაილის აღდგენის პროდუქტი აუცილებელია, როდესაც აღმოჩნდებით გატეხილი ფაილების გამოსწორების საჭიროებაზე.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel xls მონაცემთა შეკეთების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად