işlem yapılan ay 30 veya 31 günden fazla ise birsonraki aya gün ilave etme

[bulentcigali]

iyi günler ,
çıkış tarihi 28.07.2009 sabah km 10
giriş tarihi 05.08.2009 akşam km 17 gibi bir ekran girdim var

çıkış tarihi ve sabah km girildikten sonra araç 05.08.2009 tarihinde 17 km olarak giriş yapıyor.
temmuz ayından ağustos ayına geçildiği için sabah km olan 10 ve akşam km si olan 17 ağustos ayının 5.gününe yazdırmam gerekiyor.ancak yazdıramadım .(yani 4 gün temmuzdan 5 gün de ağustostan alacak).fakat aynı ay içerisinde olduğu zaman sorun yok.
açıklamalı örnek ektedir.teşekkür ederim

 

[halit3]

bu kadu denermisiniz.
Private Sub CommandButton2_Click()
sat = ComboBox1.ListIndex + 3
yer = Val(CDate(TextBox3.Text) - CDate(TextBox1.Text))
'MsgBox yer
For i = 0 To yer
deg = CDate(TextBox1.Text) + i
'MsgBox deg
Tarih = Val(Mid(deg, 4, 2))
'MsgBox Tarih
If Tarih = 1 Then
say1 = say1 + 1
End If
If Tarih = 2 Then
say2 = say2 + 1
End If
If Tarih = 3 Then
say3 = say3 + 1
End If
If Tarih = 4 Then
say4 = say4 + 1
End If
If Tarih = 5 Then
say5 = say5 + 1
End If
If Tarih = 6 Then
say6 = say6 + 1
End If
If Tarih = 7 Then
say7 = say7 + 1
End If
If Tarih = 8 Then
say8 = say8 + 1
End If
If Tarih = 9 Then
say9 = say9 + 1
End If
If Tarih = 10 Then
say10 = say10 + 1
End If
If Tarih = 11 Then
say11 = say11 + 1
End If
If Tarih = 12 Then
say12 = say12 + 1
End If
Next

Cells(sat, 3).Value = say1
Cells(sat, 4).Value = say2
Cells(sat, 5).Value = say3
Cells(sat, 6).Value = say4
Cells(sat, 7).Value = say5
Cells(sat, 8).Value = say6
Cells(sat, 9).Value = say7
Cells(sat, 10).Value = say8
Cells(sat, 11).Value = say9
Cells(sat, 12).Value = say10
Cells(sat, 13).Value = say11
Cells(sat, 14).Value = say12
End Sub

 

[bulentcigali]

teşekkür ederim halit3 kodu deneyeceğim