Tarih sorunu

[KarıncaZ]

Merhaba arkadaşlar.
Ekteki dosyada, Veriler Sayfasındaki işlemleri Koşullar Sayfasındaki kriterlere göre CSV_formatı sayfasına aktarıyor.

Sorunum şu CSV_Formatı sayfasına Fiş Tarihi kısmına , eğer Evrak tarihinin günü 10 dan küçük ve eşitse Fiş tarihinin gününe 10 , Evrak tarihinin günü 11 ile 20 arasındaysa Fiş tarihine 20 , Evrak tarihi 21 ile 30 arasında ise Fiş Tarihine 30 , Evrak tarihi 31 ise Evrak tarihinin gününü 31 olarak alacak ay ve yıl bilgileri aynı olacak.

11 ile 20 , 21 ile 30 ve 31 olduğu zaman sorunsuz olarak işlemi yapıyor, ancak 1 ile 10 arasında olunca doğru verileri yazmıyor.

Örnek :

Fiş Tarihi Açıklama Yatan Çıkan
02.08.2010 YİÇİ KK Sat.BSMV/ 0,07
15.08.2010 YİÇİ KK Sat.Kom./ 1,32
22.08.2010 ** **** **15 ,KART ÖDEMESİ 310,37

Veriler yukardaki gibi olursa,

birinci işlem için CSV_Hazırlama sayfasındaki Fiş Tarihine 10.08.2010 Evrak Tarihine 02.08.2010 yazması gerekiyor. Ancak Fiş tarihine 08.10.2010 yazıyor.

ikinci işlem için CSV_Hazırlama sayfasındaki Fiş Tarihine 20.08.2010 Evrak Tarihine 15.08.2010 yazması gerekiyor. Bu veriyi doğru yazıyor.

üçüncü işlem için CSV_Hazırlama sayfasındaki Fiş Tarihine 30.08.2010 Evrak Tarihine 22.08.2010 yazması gerekiyor. Bu veriyi doğru yazıyor.

İlk 10 günlükte sıkıntı çıkartıyor doğru verileri yazmıyor. Umarım anlata bilmişimdir, ekteki dosyada uygulamam mevcut.

Yardımlarınız için şimdiden teşekkürler.

 

[mancubus]

sizin kodun düzeltilmiş hali 2. kod.
ben olsaydım nasıl yapardım ise 1. kod

Select Case gn
    Case 1 To 10
        S3.Cells(S3DS + 1, 2) = yl & "/" & ay & "/" & 10
        S3.Cells(S3DS + 2, 2) = yl & "/" & ay & "/" & 10
    Case 11 To 20
        S3.Cells(S3DS + 1, 2) = yl & "/" & ay & "/" & 20
        S3.Cells(S3DS + 2, 2) = yl & "/" & ay & "/" & 20
    Case 21 To 30
        S3.Cells(S3DS + 1, 2) = yl & "/" & ay & "/" & 30
        S3.Cells(S3DS + 2, 2) = yl & "/" & ay & "/" & 30
    Case Else
        S3.Cells(S3DS + 1, 2) = yl & "/" & ay & "/" & 31
        S3.Cells(S3DS + 2, 2) = yl & "/" & ay & "/" & 31
End Select

If gn >= 0 And gn <= 10 Then
S3.Cells(S3DS + 1, 2).Value = yl & "/" & ay & "/" & 10
S3.Cells(S3DS + 2, 2).Value = yl & "/" & ay & "/" & 10
End If

If gn >= 11 And gn <= 20 Then
S3.Cells(S3DS + 1, 2).Value = yl & "/" & ay & "/" & 20
S3.Cells(S3DS + 2, 2).Value = yl & "/" & ay & "/" & 20
End If

If gn >= 21 And gn <= 30 Then
S3.Cells(S3DS + 1, 2).Value = yl & "/" & ay & "/" & 30
S3.Cells(S3DS + 2, 2).Value = yl & "/" & ay & "/" & 30
End If

If gn = 31 Then
S3.Cells(S3DS + 1, 2).Value = yl & "/" & ay & "/" & 31
S3.Cells(S3DS + 2, 2).Value = yl & "/" & ay & "/" & 31
End If

 

[KarıncaZ]

Teşekkür ederim ,
Tarihi yyyy/mm/dd olarak yazdırmak sonra istediğimiz formata dönüştürmek gerekiyormuş. İngilizceden dolayı mı , nedenini tam anlayamadım ama sorunum çözüldü çok teşekkürler.

Ayrıca vermiş olduğunuz kodlar içinde çok teşekkürler.