В тази статия искаме да ви представим 2 бързи и ефективни начина да получите разликата между 2 конкретни дати или часове чрез макроси на Word.
Не е трудно да се изчислят дните или времето между 2 конкретни дати или часове. Можете да направите математика сами или да получите калкулатор за продължителност на дата или час. И тук искаме да ви демонстрираме двата макро начина, които ви позволяват да получите датата или часовата разлика в Word. Следват подробните стъпки:
Вземете разликата в датата
- Първо и най-важно, отворете Word.
- След това щракнете върху раздела „Програмист“, ако вече е активиран.
- След това щракнете върху „Visual Basic“, за да отворите редактора на VBA. Можете да се обърнете към Как да вмъкнете фонова музика във вашия Word документ за да добавите „Developer“ към лентата. Или вместо това можете да натиснете „Alt + F11“, ако предпочитате да не го правите.
- Сега щракнете върху „Normal“ и след това „Insert“.
- В менюто на списъка изберете „Модул“.
- След това щракнете двукратно върху новия модул, за да влезете в областта за редактиране.
- Поставете следните кодове:
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
- Щракнете върху „Run“, за да стартирате кодовете.
- Сега ще видите диалогов прозорец „Начална дата“. Въведете началната дата в текстовото поле и щракнете върху „OK“.
- Следва диалоговият прозорец „Крайна дата“. По същия начин въведете крайната дата и щракнете върху „OK“.
- След това ще се появи съобщение, показващо разликата между двете дати.
В случай, че трябва да вмъкнете резултата във вашия документ, можете да редактирате макроса малко, като промените кодовия ред “MsgBox („Остават ” & lDaysLeft & ” дни от ” & dtStartDate & ” до ” & dtEndDate & vbCrLf)"Да"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 може да спре да работи изведнъж, оставяйки файловете ни в голяма опасност. Ето защо, за да намалим шанса за повреда на файлове, ви предлагаме да правите редовни архиви. Също така вземете a Продукт за възстановяване на Word файл е необходимо, когато се окажете в нужда от поправяне на счупени файлове.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Инструмент за поправка на данни в Excel xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com