Arkadaşlar elimde bulunan bir projede hesaplamalarımı her ayın başından sonuna yapıyordum ancak mevzuat değişikliği nedeni ile 15 inden 15'ine yapılması gerekiyor. Örneğin;
Başlama Tarihi: 01/01/2020
Bitiş Tarihi: 14/02/2020
şeklinde olmalı. Şubat ayında ise
Başlama: 15/02/2020
Bitiş: 14/03/2020
şeklinde olacak. Ben düzenleme yaptım aslında oldu ama teknik bir hata yaptıysam bu ilerde sorun çıkarabilir. bu yüzden teyit amaçlı bu konuyu açtım.
ESKİ HESAPLAMA:
YENİ HESAPLAMA:
Başlama Tarihi: 01/01/2020
Bitiş Tarihi: 14/02/2020
şeklinde olmalı. Şubat ayında ise
Başlama: 15/02/2020
Bitiş: 14/03/2020
şeklinde olacak. Ben düzenleme yaptım aslında oldu ama teknik bir hata yaptıysam bu ilerde sorun çıkarabilir. bu yüzden teyit amaçlı bu konuyu açtım.
ESKİ HESAPLAMA:
Visual Basic
- Private Sub temizle()
- Dim inta As Integer, intJ As Integer, deger As String
-
- intMonth = Me.ay2
- intYear = Me.yıl
-
- For inta = 1 To 31
- deger = Format(inta, "00")
-
- Next inta
- intFirst = 1
- intLastDay = Day(DateAdd("m", 1, DateSerial(Me.yıl, Me.ay2, 1)) - 1)
- intLast = intFirst + intLastDay - 1
- intJ = 1
- For inta = intFirst To intLast
- deger = Format(inta, "00")
-
- Me("gun" & deger).Value = ""
- Me.gun01.SetFocus
-
- Next inta
- End Sub
YENİ HESAPLAMA:
Visual Basic
- Private Sub temizle()
- Dim inta As Integer, intJ As Integer, deger As String
-
- intmonth = Format(DatePart("m", Etiket01), "00")
- intyear = DatePart("yyyy", Etiket01)
-
- For inta = 1 To 31
- deger = Format(inta, "00")
-
- Next inta
- intFirst = 1
- intLastDay = Day(DateAdd("m", 2, DateSerial(intyear, intmonth, 31)))
- intLast = intFirst + intLastDay - 1
- intJ = 1
- For inta = intFirst To intLast
- deger = Format(inta, "00")
-
- Me("gun" & deger).Value = ""
- gun01.SetFocus
-
- Next inta
- End Sub
