son günü görmene gerek yok Kod: MsgBox Date + 50 dersen otomatik olarak 50 gün sonrasını hesaplayıp sana tarihini verir.

dostum boyle bır ontemde kullanabılırsın. forma kod kopyala Private Function cHesap Dim Aylar(1 To 12) As String Aylar(1) = "29" Aylar(2) = "30" Aylar(3) = "31" Aylar(4) = "30" Aylar(5) = "30" Aylar(6) = "29" Aylar(7) = "30" Aylar(8) = "31" Aylar(9) = "30" Aylar(10) = "31" Aylar(11) = "29" Aylar(12) = "31" MsgBox "Bu ay " & Aylar & " çekiyor." & vbCrLf & "Ayın bitimine " & Aylar - Day & " gün var." End Function Private Sub Form_Load Call cHesap(3) End Sub

lastday hakkında bir kod istiyorum yani misal haziran ayındayız ve en son 30 haziran var sonrasında 1 temmuz. Haziranın 30 unu yani son günü nasıl görebilirim nasıl texte yansıta bilirim. Teşekkürler Form load a text1 = day dediğim zaman o günü veriyos ise ne dersem son günü yani 30 u görür. -

beim istediğim şöyle ama son günü görmem gerek çünkü misal şubat bi 28 oluyor bi 29 diğer ayların kimisi 30 oluyor kimisi 31 bu yüden o ay kaçında bitiyor onu diyordum bu söylediğini biliyorum zaten. Benim hesap yapmam değil son günü görmem gerek. paradox-