Kıdem Yılı

[iplikci_80]

Arkadaşlar sarı boyalı hücredeki =ETARİHLİ($G3;BUGÜN();"y")&" "&"Yıl"&"") formülü ile kıdem yılını hesaplamaya çalışıyorum. Ben burada formülü kod olarak yazma hususunda yardımlarınızı rica ediyorum.

 

[iplikci_80]

Arkadaşlar yardımlarınızı bekliyorum.

 

[iplikci_80]

Arkadaşlar aşağıdaki kod ile yapma çalışıyorum fakat hem kodu daha sade hale getirmek hemde kıdem yılı 0 ise boş kalacak şekilde düzletme hususunda yardımlarınızı rica ediyorum.


Function KıdemGün(ByVal Bas As Date, Bit As Date) As String
Bit = Bit + 1
t1 = Bas
Do
If DateAdd("m", 1, t1) > Bit Then Exit Do
t1 = DateAdd("m", 1, t1)
AY = AY + 1
Loop
Yıl = Int(AY / 12)
KıdemGün = Yıl & " Yıl "
End Function

 

[iplikci_80]

Arkadaşlar yardımlarınızı bekliyorum.

 

[iplikci_80]

Arkadaşlar yardımlarınızı bekliyorum.

 

[askm]

Function KıdemGün(ByVal Bas As Date, Bit As Date) As String
Bit = Bit + 1
t1 = Bas
Do
If DateAdd("m", 1, t1) > Bit Then Exit Do
t1 = DateAdd("m", 1, t1)
AY = AY + 1
Loop
Yıl = Int(AY / 12)
If Yıl > 0 Then
    KıdemGün = Yıl & " Yıl "
End If
End Function

 

[iplikci_80]

Sayın askm teşekkürler.

 

[askm]

Rica ederim. Kolay gelsin.