işte çalışılan süreyi gösteren vba kodu

[serendal]

selam arkadaşlar ekte sorumla ilgili dosyayı gönderdim.

listboxta ismin üzerine tıklandığında textbox1 de işe giriş tarihini, textbox2 de ise işe giriş tarihinden beri çalıştığı gün sayısını gösteren bir kod arıyorum.

tabi bu program ne zaman çalıştırılırsa , o günkü tarihe göre çalıştığı gün sayısını hesaplamalı.

yardımcı olursanız sevinirim

 

[ozgretmen]

Dosya ekte...

Private Sub ListBox1_Click()
TextBox1.Value = Format(Cells(ListBox1.ListIndex + 2, 2), "dd.mm.yyyy")
If TextBox1 = "" Then MsgBox "Tarih alanları boş geçilemez.!", vbCritical, "HATA": Exit Sub
tarih = Format(Now, "dd.mm.yyyy")
tarih1 = TextBox1.Text
ilkgun = Mid(tarih, 1, 2): songun = Mid(tarih1, 1, 2)
ilkay = Mid(tarih, 4, 2): sonay = Mid(tarih1, 4, 2)
ilkyil = Mid(tarih, 7, 4): sonyil = Mid(tarih1, 7, 4)
If ilkgun < songun Then ilkgun = ilkgun + 30: ilkay = ilkay - 1
If ilkay < sonay Then ilkay = ilkay + 12: ilkyil = ilkyil - 1
yil = ilkyil - sonyil
ay = ilkay - sonay
gun = ilkgun - songun
TextBox2 = yil & " YIL " & ay & " AY " & gun & " GUN "
End Sub

 

[serendal]

tam aradığım gibi çok teşekkür ederim.

 

[ozgretmen]

tam aradığım gibi çok teşekkür ederim.

Rica ederim.İyi çalışmalar...

 

[serendal]

yardım ettiğiniz konuyu yapmakta olduğum programda kullnıyordumda
bir hata verdi

"ay" değişkeni ile ilgili.
birde textbox6 ya yazması gereken tarihi yazdıramıyorum.
bu konuda amatörüm

tekrar bir yardımda bulunarsanız sevinirim.

 

[ozgretmen]

Listbox1_Click kodunu aşğ. şekilde değiştiriniz.

Private Sub ListBox1_Click()
Dim x As Integer
x = Sheets("PERSONEL").Range("A:A").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
TextBox7.Value = ListBox1
TextBox1 = Sheets("PERSONEL").Cells(x, 3)
TextBox2 = Sheets("PERSONEL").Cells(x, 4)
TextBox3 = Sheets("PERSONEL").Cells(x, 5)
TextBox4 = Sheets("PERSONEL").Cells(x, 6)
TextBox5 = Sheets("PERSONEL").Cells(x, 7)
TextBox6 = Sheets("PERSONEL").Cells(x, 8)
tarih = Format(Now, "dd.mm.yyyy")
tarih1 = Format(TextBox6.Text, "dd.mm.yyyy")
ilkgun = Mid(tarih, 1, 2): songun = Mid(tarih1, 1, 2)
ilkay = Mid(tarih, 4, 2): sonay = Mid(tarih1, 4, 2)
ilkyil = Mid(tarih, 7, 4): sonyil = Mid(tarih1, 7, 4)
If ilkgun < songun Then ilkgun = ilkgun + 30: ilkay = ilkay - 1
If ilkay < sonay Then ilkay = ilkay + 12: ilkyil = ilkyil - 1
yil = ilkyil - sonyil
ay = ilkay - sonay
gun = ilkgun - songun
TextBox8 = yil & " YIL " & ay & " AY " & gun & " GUN "
End Sub

 

[serendal]

tekrar teşekkür eerim çok sağolun

 

[ozgretmen]

tekrar teşekkür eerim çok sağolun

Yardımcı olabildiysem ne mutlu bana...İyi çalışmalar...