- Konum
- BERTUNA
-
- Üyelik Tarihi
- 2 Haz 2020
-
- Mesajlar
- 5,364
-
- MFC Puanı
- 16,500
Önce Ekran Görüntüleri ....
Kod İçeriğinin Verilmesi :
Kodun Sözel Açıklaması :
Bu Visual Basic Script (VBS) betiği, kullanıcıdan bir tarih girmesini ve isteğe bağlı olarak bir gün sayısı belirtmesini sağlar. İşte nasıl çalıştığı:
1.Tarih Girişi:
Kullanıcıdan bir tarih girmesi istenir. Örnek format: 05/12/2024.
2.İptal Durumu:
Eğer kullanıcı tarih girmeden "İptal" butonuna basarsa, program sonlanır.
3.Gün Sayısı Girişi:
Kullanıcıdan eklemek veya çıkarmak istediği gün sayısını girmesi istenir. Bu kutu boş bırakılabilir.
4.Tarih Kontrolü:
Girilen tarih geçerli değilse, kullanıcıya hata mesajı gösterilir.
5.Gün Hesaplama:
Eğer gün sayısı girilmemişse, sistem tarihi ile girilen tarih arasındaki gün farkı hesaplanır.
Kullanıcıya "Girdiğiniz tarihe xx gün kaldı" veya "Girdiğiniz tarihten yy gün geçmiş" mesajı gösterilir. Tarih de mesajın altında belirtilir.
Eğer gün sayısı girilmişse, bu gün sayısı belirtilen tarihe eklenir veya çıkarılır ve sonuç gösterilir
Bu betik, tarih hesaplamaları yapmak için basit ve kullanıcı dostu bir araçtır.
Güle güle kullanın...
Kod İçeriğinin Verilmesi :
Kod:
' Kullanıcıdan tarih al
Dim inputDate, daysToAdd, resultDate, currentDate
inputDate = InputBox("Lütfen bir tarih girin (örneğin: 05/12/2024):")
' Kullanıcı iptal butonuna basarsa
If inputDate = "" Then
MsgBox "Tarih girmediniz. Program sonlanıyor."
WScript.Quit
End If
' Kullanıcıdan gün sayısını al
daysToAdd = InputBox("Eğer gün sayısı girmek istemiyorsanız, bu kutuyu boş bırakabilirsiniz:")
' Tarihi ve gün sayısını işleme
On Error Resume Next
resultDate = CDate(inputDate)
If Err.Number <> 0 Then
MsgBox "Geçersiz tarih formatı. Lütfen 'gg/aa/yyyy' formatında bir tarih girin."
Else
' Eğer gün sayısı girilmemişse, sistem tarihine göre hesapla
If daysToAdd = "" Then
currentDate = Date
Dim daysDifference
daysDifference = DateDiff("d", currentDate, resultDate)
If daysDifference > 0 Then
MsgBox "Girdiğiniz tarihe " & daysDifference & " gün kaldı." & vbCrLf & "Tarih: " & resultDate
ElseIf daysDifference < 0 Then
MsgBox "Girdiğiniz tarihten " & Abs(daysDifference) & " gün geçmiş." & vbCrLf & "Tarih: " & resultDate
Else
MsgBox "Girdiğiniz tarih bugündür." & vbCrLf & "Tarih: " & resultDate
End If
Else
' Girilen gün sayısını ekle veya çıkar
resultDate = DateAdd("d", CInt(daysToAdd), resultDate)
MsgBox "Sonuç tarih: " & resultDate
End If
End If
On Error GoTo 0Kodun Sözel Açıklaması :
VBS Tarih Hesaplama Betiği
Bu Visual Basic Script (VBS) betiği, kullanıcıdan bir tarih girmesini ve isteğe bağlı olarak bir gün sayısı belirtmesini sağlar. İşte nasıl çalıştığı:
1.Tarih Girişi:
Kullanıcıdan bir tarih girmesi istenir. Örnek format: 05/12/2024.
2.İptal Durumu:
Eğer kullanıcı tarih girmeden "İptal" butonuna basarsa, program sonlanır.
3.Gün Sayısı Girişi:
Kullanıcıdan eklemek veya çıkarmak istediği gün sayısını girmesi istenir. Bu kutu boş bırakılabilir.
4.Tarih Kontrolü:
Girilen tarih geçerli değilse, kullanıcıya hata mesajı gösterilir.
5.Gün Hesaplama:
Eğer gün sayısı girilmemişse, sistem tarihi ile girilen tarih arasındaki gün farkı hesaplanır.
Kullanıcıya "Girdiğiniz tarihe xx gün kaldı" veya "Girdiğiniz tarihten yy gün geçmiş" mesajı gösterilir. Tarih de mesajın altında belirtilir.
Eğer gün sayısı girilmişse, bu gün sayısı belirtilen tarihe eklenir veya çıkarılır ve sonuç gösterilir
Bu betik, tarih hesaplamaları yapmak için basit ve kullanıcı dostu bir araçtır.
Güle güle kullanın...