Бұл мақалада біз сізге Word макростары арқылы 2 нақты күн немесе уақыт арасындағы айырмашылықты алудың 2 жылдам және тиімді әдісін ұсынғымыз келеді.
2 нақты күн немесе уақыт арасында қалған күндерді немесе уақытты есептеу қиын емес. Сіз математиканы өзіңіз жасай аласыз немесе күн немесе уақыт ұзақтығы калькуляторын ала аласыз. Мұнда біз сізге Word бағдарламасында күн немесе уақыт айырмашылығын алуға мүмкіндік беретін 2 макро жолды көрсеткіміз келеді. Төменде егжей-тегжейлі қадамдар берілген:
Күннің айырмашылығын алыңыз
- Ең алдымен, Open Word бағдарламасын пайдаланыңыз.
- Содан кейін белсендірілген болса, «Әзірлеуші» қойындысын басыңыз.
- Содан кейін VBA редакторын ашу үшін «Visual Basic» түймесін басыңыз. сілтеме жасай аласыз Сөздік құжатқа фондық музыканы қалай енгізу керек таспаға «Әзірлеуші» қосу үшін. Немесе оның орнына «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» түймесін басыңыз.
- Содан кейін екі күн арасындағы айырмашылықты көрсететін хабар терезесі пайда болады.
Нәтижені құжатқа енгізу қажет болса, код жолын өзгерту арқылы макросты сәл өңдеуге болады «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» енгізіңіз.
- Содан кейін «Аяқтау уақыты» тілқатысу терезесіне аяқталу уақытын енгізіп, «OK» түймесін басыңыз. Нәтижені шығатын хабар жолағында тексеруге болады.
Файлды жоғалту қаупін азайту
Кейде Word бағдарламасы күтпеген жерден жұмысын тоқтатып, файлдарымызға үлкен қауіп төндіреді. Сондықтан файлдарды зақымдау мүмкіндігін азайту үшін біз сізге жүйелі түрде сақтық көшірме жасауды ұсынамыз. Сондай-ақ, алыңыз Word файлдарын қалпына келтіру өнімі бұзылған файлдарды жөндеу қажет болғанда қажет.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel xls деректерді жөндеу құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com