Tarih Formatının Değiştirilmesi

[kimfx]

Merhabalar,
Ben Kod içerisinde Misal
Zaman=Date
If Zaman> ("01/06/2005" then

gibi yazılan bir kodun bütün bilgisayarlarda çalışabilmesi sağlamak istiyorum Ã?rneğin bazı bilgisayarlarda tarih formatı (dd/mm/yyyy) gibi değilde (yyyy/mm/dd) gibi bu durumda kod yanlış çalışıyor veya hata veriyor. bilgisayarın veya excel kitabının tarih formatını hangi kodla ayarlayabiliriz. Cevaplarınızı bekliyorum. Hepinize şimdiden teşekkür ederim.

 

[Haluk]

    Zaman = Date
    If Zaman > CDate("06/16/2005") Then
        MsgBox "Buyuk"
    Else
        MsgBox "Kucuk"
    End If

 

[kimfx]

Sayın Raider Benim işyerimdeki bilgisayara tarihi
Zaman=Date
If Zaman> CDate("15/06/2005") then girince doğru sonuç vermiyor.

Ancak
If Zaman> CDate("2005/06/15") then diye girince doğru sonucu alıyorum. Benim yapmak istediğim ise kodun başlangıcında bu formatı kendim ayarlayıp ona göre tarih formatı yazayım. :arkadas:

 

[Haluk]

Bir de şöyle deneyin ...

Dim D As Integer, M As Integer, Y As Integer
Zaman = Date
D = 15
M = 6
Y = 2005
CheckDate = DateSerial(Y, M, D)
    If Zaman > CheckDate Then
        MsgBox "Buyuk"
    Else
        MsgBox "Kucuk"
    End If

 

[kimfx]

Maalesef Sayın Raider buda olmadı

D ile Y yi yer değiştirince sonuç hüsran
benim aradığım
hücrenin formatını değiştirirken uyguladığımız
[a1].select
selection.NumberFormat=("dd/mm/yyyy") türü birşey
bunu çalışma kitabına uygulayamıyorum.

 

[Haluk]

D ile Y 'nin yerini neden değiştiriyorsunuz anlamadım...

Benim verdiğimi aynen uyguladığınızda ne oluyor, hata mı veriyor, ne hatası veriyor ?

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi denermisiniz.

If CLng(CDate(zaman)) > CLng(CDate("15/06/2005")) Then

 

[xxrt]

formatı (dd/mm/yyyy) gibi değilde (yyyy/mm/dd) gibi bu durumda kod yanlış çalışıyor

Bende de aynı sorun oluyordu. dd/mm/yyyy formatı ile sayfaya aktardığımda
tarih 2005/01/22 çıkıyordu.
Ben bunu
dd.mm.yyyy olarak hallettim.Bilmiyorum sizde nasıl olur..

 

[kimfx]

Sayın Leventm sizin verdiğiniz kod olayı çözdü. leventm,Raider ve xxrt ilginize teşekkür ediyorum.