Ay İçerisindeki Gün Sayısını Bulma

[Tasarım]

Arkadaşlar sabahtan beri forumda arama yapıyorum ama bir türlü istediğim kodu bulamadım. Bu konuda bana yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Bana, örneğin Şubat ayının kaç gün olduğunu gösterecek makro kodu lazım.

Örnek:
Şubat 28 gün çekiyor
Mart 30 gün çekiyor
Nisan 30 gün çekiyor

vs.vs.

 

[asimavi50]

Tarihi A1'de baz alırsak formülü girebilirsiniz.

=GÜN(TARİH(YIL(A1);AY(A1)+1;0))

 

[Mahir64]

Merhaba,

Hangi ay olduğunu hücreden mi alacak?
Örneğin A1: Şubat yazdığınızda 28 mi yazacak?

Öyle isi,

=GÜN(TARİH(GÜN((1&"/"&A1&"/"&2014)+0);AY((1&"/"&A1&"/"&2014)+0)+1;0))

 

[Tasarım]

Merhaba,

Hangi ay olduğunu hücreden mi alacak?
Örneğin A1: Şubat yazdığınızda 28 mi yazacak?

Örneğin: Ben A1 satırına Range("A1")=Month(Date)
koduyla içerisinde bulunduğumuz ayı yazdırıyorum aradığım kod benim yazdığımın karşısına kaç gün çektiğini yazsa yeterli benim için.

 

[Ömer]

Merhaba,

Aşağıdaki gibi bir yapı kullanabilirsiniz.

Sub Gun()
    
    Dim ay As Byte, yil As Double
    
    ay = 2
    yil = 2014
    
    MsgBox Day(DateSerial(yil, ay + 1, 0))
    
End Sub

Not: Konu içindeyken cevaplar gelmiş. Alternatif olarak kullanabilirsiniz.

 

[Tasarım]

Merhaba,

Aşağıdaki gibi bir yapı kullanabilirsiniz.

Sub Gun()
    
    Dim ay As Byte, yil As Double
    
    ay = 2
    yil = 2014
    
    MsgBox Day(DateSerial(yil, ay + 1, 0))
    
End Sub

Not: Konu içindeyken cevaplar gelmiş. Alternatif olarak kullanabilirsiniz.

Hocam bu kod Mart ayı olunca da hala 28 gün veriyor.

 

[Mahir64]

Range("A1") = Evaluate("=DAY(DATE(YEAR(TODAY()),MONTH(TODAY())+1,0))")

--

 

[Tasarım]

Merhaba,

Aşağıdaki gibi bir yapı kullanabilirsiniz.

Sub Gun()
    
    Dim ay As Byte, yil As Double
    
    ay = 2
    yil = 2014
    
    MsgBox Day(DateSerial(yil, ay + 1, 0))
    
End Sub

Not: Konu içindeyken cevaplar gelmiş. Alternatif olarak kullanabilirsiniz.

Sub Gun()
    
    Dim ay As Byte, yil As Double
    
    ay = Month(Date)
    yil = Year(Date)
    
    MsgBox Day(DateSerial(yil, ay + 1, 0))
    
End Sub

Sizin kodu ufak bir revize ile istediğim gibi oldu sanırım

 

[Ömer]

Konuyu tam bilmediğim için örnek olması açısından Ay ve yılı sabitlemiştim. Güncel tarih için yazdığınız doğrudur.

 

[Tasarım]

Merhaba,

Aşağıdaki gibi bir yapı kullanabilirsiniz.

Sub Gun()
    
    Dim ay As Byte, yil As Double
    
    ay = 2
    yil = 2014
    
    MsgBox Day(DateSerial(yil, ay + 1, 0))
    
End Sub

Not: Konu içindeyken cevaplar gelmiş. Alternatif olarak kullanabilirsiniz.

Sub Gun()
Dim Ay As Byte, Yil As Double
Ay = Month(Date)
Yil = Year(Date)
Range("D1") = Day(DateSerial(Yil, Ay + 1, 0))
End Sub

Bu kod ziyadesiyle işimi gördü. Aklınıza, beyninize sağlık hocam.
Belki başkasına da gerekebilir diye buraya da yazıyorum. Allah razı olsun sizden.

 

[Korhan Ayhan]

Yil değişkeni Double olarak tanımlanmış. Bence gereksiz bir tanımlama olmuş. INTEGER olması yeterlidir.

Yil As Integer

 

[Tasarım]

Yil değişkeni Double olarak tanımlanmış. Bence gereksiz bir tanımlama olmuş. INTEGER olması yeterlidir.

Yil As Integer

Double olarak tanımlanması hafızada daha mı fazla yer kaplar hocam?
Eğer öyleyse Integer olarak değiştireyim. Ama sağolsun hocamın verdiği kod işi çok rahat bir şekilde gördü.

 

[Korhan Ayhan]

Linki inceleyiniz.

Değişkenler - Variables

 

[Tasarım]

Teşekkür ederim Korhan hocam