Kıdem veya Yaş Hesaplama - Girburaya.Net | Bedava, Film izle, Video indir, izlesene, izle

01-03-08, 12: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, 00:21

Annadıysam Arap Olayım

**steaL** · 07-08-08, 16: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, 17:01

Alıntı:

steaL´isimli üyeden Alıntı

c ilemi yasilmişbunlar ? c dersindenkaldim

neki bunlar

**steaL** · 07-08-08, 17: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, 17:10

oluyy........

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

hönk

ama yinede

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

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

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

01-03-08, 12:01	#1 (permalink)
DeJiN Mesajlar: n/a	Kıdem veya Yaş Hesaplama 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

07-08-08, 17:10	#6 (permalink)
aCeLyaa Uzman Üye Üyelik tarihi: May 2008 Mesajlar: 1.007 Tecrübe Puanı: 2 Thanks: 49 Thanked 28 Times in 27 Posts	oluyy........ __________________ ßen yaLnızca Sen yüzüme ßaktıqında qüzeLim... ..aCeLyaæLif..

07-30-08, 05:39	#7 (permalink)
Kedy Kıdemli Üye Üyelik tarihi: Jun 2008 Nerden: aLmanya Yaş: 20 Mesajlar: 754 Tecrübe Puanı: 1 Thanks: 146 Thanked 83 Times in 71 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, 05:44	#8 (permalink)
MuRi Uzman Üye Üyelik tarihi: Jun 2008 Mesajlar: 1.094 Tecrübe Puanı: 2 Thanks: 131 Thanked 32 Times in 30 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 11:21
ÖSS puan hesaplama programı	DeJiN	C ve C++	0	12-27-07 11:26
Msn Spaces’e Muzik veya klip koyma	Cansu	Msn Spaces	0	12-24-07 02:51
Ne gibi zorlamalar veya yaralanmalar böyle kopmalara fıtığa yol açabilir	Cansu	Sağlık	0	12-23-07 16:28

07-08-08, 00: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