Kıdem veya Yaş Hesaplama - Türkçe Forum

01-03-08, 13:01

Kıdem veya Yaşınızı Gününe Kadar Hesaplayın

Kağıt üstünde iki tarih arası farkı 30 gün hesasına göre nasıl hesaplıyorsak fonksiyonumuz aynı mantıkla hesaplar

Private Function kidem(Başlangıç_Tarihi, Son_Tarih)
Dim c As Date
Dim d As Date
On Error Resume Next
a = Başlangıç_Tarihi
b = Son_Tarih
c = Başlangıç_Tarihi
d = Son_Tarih

a1 = Int(Left$(a, 2))
a2 = Int(Mid(a, 4, 2))
a3 = Int(Right$(a, 4))

b1 = Int(Left$(b, 2))
b2 = Int(Mid$(b, 4, 2))
b3 = Int(Right$(b, 4))
If c > d Then GoTo SON

If b1 > a1 Then
Gun = (b1 - a1)
ElseIf b1 = a1 Then
Gun = 0
Else
b2 = (b2 - 1)
Gun = ((b1 + 30) - a1)
End If

If b2 > a2 Then
ay = (b2 - a2)
ElseIf b2 = a2 Then
ay = 0
Else
b3 = (b3 - 1)
ay = ((b2 + 12) - a2)
End If
yıl = b3 - a3
If yıl >= 0 Then yıl = Format(yıl, "00"): Yıl1 = (yıl & " Yıl, ") Else Yıl1 = ""
If ay >= 0 Then ay = Format(ay, "00"): Ay1 = (ay & " Ay, ") Else Ay1 = ""
If Gun >= 0 Then Gun = Format(Gun, "00"): Gun1 = (Gun & " Gün ") Else Gun1 = ""
If Yıl1 = "" And Ay1 = "" And Gun1 = "" Then Kidem1 = 0 Else Kidem1 = Yıl1 & Ay1 & Gun1
SON:
kidem = Kidem1
End Function

**ejder54** · 07-08-08, 01:21

Annadıysam Arap Olayım

**steaL** · 07-08-08, 17:54

Alıntı:

DeJiN´isimli üyeden Alıntı

Kıdem veya Yaşınızı Gününe Kadar Hesaplayın

Kağıt üstünde iki tarih arası farkı 30 gün hesasına göre nasıl hesaplıyorsak fonksiyonumuz aynı mantıkla hesaplar

Private Function kidem(Başlangıç_Tarihi, Son_Tarih)
Dim c As Date
Dim d As Date
On Error Resume Next
a = Başlangıç_Tarihi
b = Son_Tarih
c = Başlangıç_Tarihi
d = Son_Tarih

a1 = Int(Left$(a, 2))
a2 = Int(Mid(a, 4, 2))
a3 = Int(Right$(a, 4))

b1 = Int(Left$(b, 2))
b2 = Int(Mid$(b, 4, 2))
b3 = Int(Right$(b, 4))
If c > d Then GoTo SON

If b1 > a1 Then
Gun = (b1 - a1)
ElseIf b1 = a1 Then
Gun = 0
Else
b2 = (b2 - 1)
Gun = ((b1 + 30) - a1)
End If

If b2 > a2 Then
ay = (b2 - a2)
ElseIf b2 = a2 Then
ay = 0
Else
b3 = (b3 - 1)
ay = ((b2 + 12) - a2)
End If
yıl = b3 - a3
If yıl >= 0 Then yıl = Format(yıl, "00"): Yıl1 = (yıl & " Yıl, ") Else Yıl1 = ""
If ay >= 0 Then ay = Format(ay, "00"): Ay1 = (ay & " Ay, ") Else Ay1 = ""
If Gun >= 0 Then Gun = Format(Gun, "00"): Gun1 = (Gun & " Gün ") Else Gun1 = ""
If Yıl1 = "" And Ay1 = "" And Gun1 = "" Then Kidem1 = 0 Else Kidem1 = Yıl1 & Ay1 & Gun1
SON:
kidem = Kidem1
End Function

c ilemi yasilmişbunlar ? c dersindenkaldim

**aCeLyaa** · 07-08-08, 18:01

Alıntı:

steaL´isimli üyeden Alıntı

c ilemi yasilmişbunlar ? c dersindenkaldim

neki bunlar

**steaL** · 07-08-08, 18:04

Alıntı:

aCeLyaa´isimli üyeden Alıntı

neki bunlar

sen git hemsirelik yap bu bizim ilqi alanımız :d yürü

**aCeLyaa** · 07-08-08, 18:10

oluyy........

**Kedy** · 07-30-08, 06:39

hönk

ama yinede

payLa$im icin t$kLer... :P

**MuRi** · 07-30-08, 06:44

ßune yaa DeJin ßraz aßartmısın yaa

07-08-08, 18:10	#6 (permalink)
aCeLyaa Uzman Üye Üyelik tarihi: May 2008 Mesajlar: 964 Tecrübe Puanı: 1 Thanks: 54 Thanked 33 Times in 32 Posts	oluyy........ __________________ Ey qökyüzünü karanLıqa küStüren hayaL! PerdeLer araSından ßana qöz kırpan aŞk.. Ve.. Tüm ruhumu kapLayan heyeCan.. Ey! kaLßimdeki yeqane özLem.. Günaydın Sana.. ßu, ''iyiki doqdum!'' dediqim Saßah.. ßütün yanqınımın qözLerinde Söndüqü.. Ellerimin huzuru ellerinde.. Aşkımın qözyüzüne ''merhaba!'' dediqi Saßah.. Ey! hüznümün adını SevinÇ koyan aydınLıqım.. Ey! qözyaŞlarımı haSretten ayıran.. Ve.. Ey! kavuŞturan mutLuLuk ırmakLarına.. Sevqimin en Son duraqı saßahım..; ...hoşqeLdin...

07-30-08, 06:39	#7 (permalink)
Kedy Kıdemli Üye Üyelik tarihi: Jun 2008 Nerden: aLmanya Yaş: 20 Mesajlar: 595 Tecrübe Puanı: 1 Thanks: 130 Thanked 71 Times in 63 Posts	hönk ama yinede payLa$im icin t$kLer... :P __________________ KonushtuqLarimdan Cok , SustuqLarima KuLak Verin... [Linkleri Ve Forumun Tam İçeriğini Sadece kayıtlı üyelerimiz görebilir. GirBuraya.Net´in ÜCRETSİZ Üyesi oLmak için Hemen TIKLAYINIZ]

07-30-08, 06:44	#8 (permalink)
MuRi Uzman Üye Üyelik tarihi: Jun 2008 Mesajlar: 1.012 Tecrübe Puanı: 2 Thanks: 127 Thanked 28 Times in 27 Posts	ßune yaa DeJin ßraz aßartmısın yaa __________________ [Linkleri Ve Forumun Tam İçeriğini Sadece kayıtlı üyelerimiz görebilir. GirBuraya.Net´in ÜCRETSİZ Üyesi oLmak için Hemen TIKLAYINIZ]

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
Asgari Geçim İndirimi hesaplama rehberi	DeviL	Son Dakika Haber	0	12-31-07 12:21
ÖSS puan hesaplama programı	DeJiN	C ve C++	0	12-27-07 12:26
Msn Spaces’e Muzik veya klip koyma	Cansu	Msn Spaces	0	12-24-07 03:51
Ne gibi zorlamalar veya yaralanmalar böyle kopmalara fıtığa yol açabilir	Cansu	Sağlık	0	12-23-07 17:28

07-08-08, 01:21	#2 (permalink)
ejder54 Ziyaretci Üyelik tarihi: Jul 2008 Mesajlar: 1 Tecrübe Puanı: 0 Thanks: 0 Thanked 0 Times in 0 Posts	Annadıysam Arap Olayım

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder