Girilen Bir Tarihten Yıl Kısmını Bir Artırmak

[ahmed_ummu]

Günaydın arkadaşlar.

Bi konuda yardım rica edeceğim. Elimdeki örneklerden birkaç deneme yaptım ama yapmak istediğimi yapamadım.

Textbox1'e "31.12.2021" tarihi giriliyor. Bu herhangi bir tarihte olabilir. Textbox2'ye "15.01.2022" yazmasını istiyorum. Yani bir sonraki ayı ve günü de 15 olacak
Eğer tetbox1'de örnek "19.01.2022" tarihi girilirse Textbox2'ye "15.02.2022" yazmasını istiyorum. Yardımcı olursanız çok sevinirim.

 

[ahmed_ummu]

Konu başlığını yanlış yazmışım. Kusura bakmayı. Girilen tarihin yılını bir artırmak yazmışım, ay kısmı bir artırılacak.

 

[AdemCan]

Merhaba örnek olarak

TextBox2.Value = Format("15." & Month(DateAdd("m", 1, TextBox1.Value)) & "." & Year(DateAdd("m", 1, TextBox1.Value)), "dd.mm.yyyy")

bu satır ile girilen tarihin ayına 1 ekler ve bir sonraki ayın 15. olarak yazar.

 

[ahmed_ummu]

Merhaba örnek olarak

TextBox2.Value = Format("15." & Month(DateAdd("m", 1, TextBox1.Value)) & "." & Year(DateAdd("m", 1, TextBox1.Value)), "dd.mm.yyyy")

bu satır ile girilen tarihin ayına 1 ekler ve bir sonraki ayın 15. olarak yazar.

Çok teşekkürler faye_efsane düzeldi.

Açtığım konu ile alakası yok ama bişey daha sorabilir miyim. Aşağıdaki kod da ne gibi bir yanlışlık var. Sonucu vermiyor. Bunun için de yardımcı olursanız sevinirim.

combobox6 nın değeri 1 veya 2 ve combobox11 in değeri Öğretmen veya Müdür veya Müdür Yardımcısı ise Textbox5 in değeri 120.56 olacak
combobox6 nın değeri 3 veya 4 ve combobox11 in değeri Öğretmen veya Müdür veya Müdür Yardımcısı ise Textbox5 in değeri 115.56 olacak
combobox6 nın değeri 5'e eşit ve 5 den büyük, 9'a eşit ve 9 dan küçük ve combobox11 in değeri Öğretmen veya Müdür veya Müdür Yardımcısı ise Textbox5 in değeri 105.56 olacak


Select Case ComboBox6.Value And ComboBox11.Value
Case Is = ComboBox6.Value = 1 Or ComboBox6.Value = 2 And ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI"
TextBox5.Value = 120.56

Case Is = ComboBox6.Value = 3 Or ComboBox6.Value = 4 And ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI"
TextBox5.Value = 115.56

Case Is = ComboBox6.Value >= 5 <= 9 And ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI"
TextBox5.Value = 105.56
End Select

 

[Korhan Ayhan]

Girilen tarihe göre bir sonraki ayın 15. gününe ulaşmak için alternatif;

TextBox2 = Format(WorksheetFunction.EoMonth(TextBox1, 0) + 15, "dd.mm.yyyy")

 

[ahmed_ummu]

Girilen tarihe göre bir sonraki ayın 15. gününe ulaşmak için alternatif;

TextBox2 = Format(WorksheetFunction.EoMonth(TextBox1, 0) + 15, "dd.mm.yyyy")

Teşekkürler Korhan bey.

 

[AdemCan]

İlgili kodları Select Case ile değilde If ile kullanmak isterseniz, alternatif kodlar.

If ComboBox6.Value <= 2 And _
(ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI") Then
    
    TextBox5.Value = 120.56

ElseIf ComboBox6.Value = 3 Or ComboBox6.Value = 4 And _
(ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI") Then
    
    TextBox5.Value = 115.56

ElseIf ComboBox6.Value >= 5 And ComboBox6.Value <= 9 And _
(ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI") Then
    TextBox5.Value = 105.56
Else
    
    TextBox5.Value = 0
End If

 

[ahmed_ummu]

İlgili kodları Select Case ile değilde If ile kullanmak isterseniz, alternatif kodlar.

If ComboBox6.Value <= 2 And _
(ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI") Then
   
    TextBox5.Value = 120.56

ElseIf ComboBox6.Value = 3 Or ComboBox6.Value = 4 And _
(ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI") Then
   
    TextBox5.Value = 115.56

ElseIf ComboBox6.Value >= 5 And ComboBox6.Value <= 9 And _
(ComboBox11.Value = "ÖĞRETMEN" Or ComboBox11.Value = "MÜDÜR" Or ComboBox11.Value = "MÜDÜR YARDIMCISI") Then
    TextBox5.Value = 105.56
Else
   
    TextBox5.Value = 0
End If

Çok teşekkürler düzeldi.

 

[AdemCan]

Rica ederim.