Bu yazıda, size Word makroları aracılığıyla 2 belirli tarih veya saat arasındaki farkı almanın 2 hızlı ve etkili yolunu sunmak istiyoruz.
2 somut tarih veya saat arasında kalan günleri veya zamanı hesaplamak hiç de zor değil. Matematiği kendiniz yapabilir veya bir tarih veya saat süresi hesaplayıcısı alabilirsiniz. Ve burada size Word'de tarih veya saat farkını almanızı sağlayan 2 makro yolu göstermek istiyoruz. Aşağıda ayrıntılı adımlar verilmiştir:
Tarih Farkını Alın
- Öncelikle Word'ü açın.
- Ardından, zaten etkinleştirilmişse “Geliştirici” sekmesine tıklayın.
- Ardından, VBA düzenleyicisini açmak için “Visual Basic”e tıklayın. başvurabilirsiniz Word Belgenize Fon Müziği Nasıl Eklenir? Şeride "Geliştirici" eklemek için. Veya istemiyorsanız bunun yerine "Alt + F11" tuşlarına da basabilirsiniz.
- Şimdi “Normal” e ve ardından “Ekle” ye tıklayın.
- Liste menüsünde “Modül” seçeneğini seçin.
- Ardından, düzenleme alanına girmek için yeni modüle çift tıklayın.
- Aşağıdaki kodları yapıştırın:
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
- Kodları çalıştırmak için "Çalıştır" ı tıklayın.
- Şimdi "Başlangıç Tarihi" iletişim kutusunu göreceksiniz. Başlangıç tarihini metin kutusuna girin ve "Tamam"ı tıklayın.
- Ardından “Bitiş Tarihi” iletişim kutusu var. Benzer şekilde, bitiş tarihini girin ve “Tamam”a tıklayın.
- Ardından, 2 tarih arasındaki farkı gösteren bir mesaj kutusu açılacaktır.
Sonucu belgenize eklemeniz gerekirse, "kod satırını" değiştirerek makroyu biraz düzenleyebilirsiniz.MsgBox (“Başlangıç tarihinden bitiş tarihine kadar ” & dtStartDate & ” gün kaldı.” & dtEndDate & vbCrLf)"Kime"Selection.Text = “Başlangıç tarihinden bitiş tarihine kadar ” & dtStartDate & ” gün kaldı.” & dtEndDate & vbCrLf anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
Saat Farkını Alın
- Önce yukarıdaki ilk 6 adımı tekrarlayın.
- Ardından bunun yerine şu kodları yapıştırın:
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
- "Çalıştır" düğmesine basmayı unutmayın.
- “Başlangıç Saati” kutusuna, “18:00:00” gibi bir başlangıç saati girin.
- Ardından “Bitiş Zamanı” iletişim kutusuna bitiş zamanını yazın ve “Tamam” ı tıklayın. Ve çıkan mesaj kutusundan sonucu kontrol edebilirsiniz.
Dosya Kaybı Riskini Azaltın
Ara sıra, Word birdenbire çalışmayı durdurabilir ve dosyalarımızı büyük bir tehlikeye atabilir. Bu nedenle, dosyaların zarar görme olasılığını azaltmak için düzenli yedeklemeler yapmanızı öneririz. Ayrıca, bir Word dosyası kurtarma ürünü kendinizi bozuk dosyaları düzeltme ihtiyacı içinde bulduğunuzda gereklidir.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel xls veri onarım aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com