Dairenin boş kaldığı süre hesabı formül ya da makroyla

[assenucler]

Değerli Dostlar;


Oturduğum apartman kentsel dönüşüme girdi. 3 yıla yakın süreden bugüne değin, boş olan daireler var.

Bugün ile çıktığı tarih dikkate alınarak, D sütununda:

Örneğin, 1 yıl, 3 ay ve 15 gündür daire boştur.

bilgileri formül ya da makro ile nasıl hesaplanır?

İlgi ve yardımınız için önceden teşekkürler.

Sevgi ve saygılar.

 

[1Al2Ver]

Merhaba,

D3'e ;

=ETARİHLİ(C3;$C$1;"y") & " YIL " & ETARİHLİ(C3;$C$1;"ym") & " AY "& ETARİHLİ(C3;$C$1;"MD") & " GÜN"

YADA;

=ETARİHLİ(C3;$C$1;"y") & " YIL " & ETARİHLİ(C3;$C$1;"ym") & " AY "& ETARİHLİ(C3;$C$1;"MD") & " GÜNDÜR BOŞTUR"

 

[hoguz2]

merhaba . asagidaki kodlari bir module kaydedin

Function Tarihfarkı(KüçükTarih As Date, BüyükTarih As Date) As String
Dim years, months, days, m

years = Year(BüyükTarih) - Year(KüçükTarih)
If Month(KüçükTarih) > Month(BüyükTarih) Then
years = years - 1
End If

If Month(BüyükTarih) < Month(KüçükTarih) Then
months = 12 - Month(KüçükTarih) + Month(BüyükTarih)
Else
months = Month(BüyükTarih) - Month(KüçükTarih)
End If

If Day(BüyükTarih) < Day(KüçükTarih) Then
months = months - 1
If Month(BüyükTarih) = Month(KüçükTarih) Then
years = years - 1
months = 11
End If
End If

days = Day(BüyükTarih) - Day(KüçükTarih)
If days < 0 Then
m = CInt(Month(BüyükTarih)) - 1
If m = 0 Then m = 12
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
days = 31 + days
Case 4, 6, 9, 11
days = 30 + days
Case 2
If (Year(BüyükTarih) Mod 4 = 0 And Year(BüyükTarih) _
Mod 100 <> 0) Or Year(BüyükTarih) Mod 400 = 0 Then
days = 29 + days
Else
days = 28 + days
End If
End Select
End If
Tarihfarkı = CStr(years) + " Yıl " + CStr(months) _
+ " Ay " + CStr(days) + " Gün "
End Function

sonra excel sayfasında mesela ilk tarih a1 ikinci tarih b1 de ise sonucun cikmasini istediginiz hucreye asagidaki formulu girin =Tarihfarkı(A1;B1)

 

[assenucler]

Teşekkürler ve bir rica

Sayın 1Al2Ver,


Önce ilgi ve yanıtınız için teşekkürler. Ancak yıl ve ay "sıfır" ise, sadece ay ya da gün gözükmesi nasıl sağlanır.



Sayın hoguz2,

Makroyu uygulayınca, size döneceğim.

 

[1Al2Ver]

Sayın 1Al2Ver,

Önce ilgi ve yanıtınız için teşekkürler. Ancak yıl ve ay "sıfır" ise, sadece ay ya da gün gözükmesi nasıl sağlanır.

Merhaba,

Belki Eğer eklenerek yapılabilir, yada makro ile, bir kaç deneme yaptım ama formülü tam oturtamadım sanırım, istediğiniz sonuca ulaşamadım,

Sanırım uzman arkadaşlar çözüm bulacaklardır.

Kolay gelsin.

 

[assenucler]

Sayın 1Al2Ver,

İlginiz için tekrar teşekkürler.

Diğer üstatların değerli yardım ve katkılarını bekliyorum.

Sevgi ve saygılar.

 

[assenucler]

Sayın hoguz2,


Eklediğim son dosyaya göre, A1 ve B1 yerine hangi hücreleri yerleştirmem gerekiyor?
=Tarihfarkı(A1;B1)

 

[Ömer BARAN]

Merhaba.

Aşağıdaki formülü D3 hücresine uygulayıp aşağı doğru kopyalayın.
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]YADA[/COLOR](B3="";C3="";[COLOR="red"]EMETİNSE[/COLOR](C3);C3>=$C$1);"";
 "[COLOR="Blue"]Dairenin boş olduğu süre; [/COLOR]"&
 [COLOR="red"]EĞER[/COLOR]([COLOR="red"]ETARİHLİ[/COLOR](C3-1;$C$1;"Y") =0;"";[COLOR="red"]ETARİHLİ[/COLOR](C3-1;$C$1;"Y")& "[COLOR="blue"] Yıl [/COLOR]")&
 [COLOR="red"]EĞER[/COLOR]([COLOR="red"]ETARİHLİ[/COLOR](C3-1;$C$1;"YM")=0;"";[COLOR="red"]ETARİHLİ[/COLOR](C3-1;$C$1;"YM")& "[COLOR="blue"] Ay [/COLOR]")&
 [COLOR="red"]EĞER[/COLOR]([COLOR="red"]ETARİHLİ[/COLOR](C3-1;$C$1;"MD")=0;"";[COLOR="Red"]ETARİHLİ[/COLOR](C3-1;$C$1;"MD")& "[COLOR="blue"] Gün[/COLOR]")
 )

 

[assenucler]

Teşekkürler

Değerli Üstadım,


Zaman ayırarak ve emek vererek önerdiğiniz çözüm için, gönülden teşekkür ederim.

Selam, sevgi ve saygılar.

 

[Ömer BARAN]

Değerli Üstadım,
Zaman ayırarak ve emek vererek önerdiğiniz çözüm için, gönülden teşekkür ederim.

Estağfurullah.
Kolay gelsin.
.