Skip to main content

AccessTr.neT


İzin Bitiş Ve Göreve Başlama Tarihi

İzin Bitiş Ve Göreve Başlama Tarihi

#1
Merhabalar;
Personel Statülerine göre İzin bitiş ve Göreve başlama tarihlerini hesaplatmak, Ayrıca İzin başlangıç tarihini(C17) Takvim yardımıyla seçim yapmak istiyorum.

EĞER Personel Statü Memur ve İzin Türü Yıllık İzin ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil et
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü Sözleşmeli ve İzin Türü Yıllık İzin ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil et
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü İşçi ve İzin Türü Yıllık İzin ise;
* İzin Bitiş Tarihi : Cumartesini dahil et, Pazar ve Resmi Tatillleri dahil etme
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü Toplum Yararına Program ve İzin Türü Ücretsiz İzin ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil etme
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

EĞER Personel Statü (Memur veya Sözleşmeli veya İşçi veya Geçici İşçi veya Toplum Yararına Program) İzin Türü (Yıllık İzinin haricindeiler) ise;
* İzin Bitiş Tarihi : Cumartesi, Pazar ve Resmi Tatillleri dahil et
*Göreve Başalama : İzin Bitiş tarihinden sonraki ilk iş günü (Cumartesi, Pazar ve Resmi Tatilleri çık)

Dosya ektedir.

Saygılarımla...
.zip İZİN FORMAT YENİ.zip (Dosya Boyutu: 75,89 KB | İndirme Sayısı: 38)
Cevapla
#2
Alıntı:Ayrıca İzin başlangıç tarihini(C17) Takvim yardımıyla seçim yapmak istiyorum.
RDB Tarih Seçici eklentisini indirin

Çalışma Sayfanızdaki Vba kodu ile Tarih Seçici'yi açın

Aşağıdaki kod ile Tarih Seçici'yi açıp / kapatabilirsiniz. Diğer Vba projelerindeki makroyu, Hücre menüsündeki menü öğelerini kullanmak yerine çalışma sayfanızda tarih eklemek için Takvim'i açıp kapatabilirsiniz.

Sub CallDatePickerFromOtherWorkbooks()
   Dim TestWkbk As Workbook
   Dim obj As Object

   If Val(Application.Version) >= 12 Then
       Set TestWkbk = Nothing
       On Error Resume Next
       Set TestWkbk = Workbooks("WinDatePicker.xlam")
       On Error GoTo 0
       If TestWkbk Is Nothing Then
           MsgBox "Sorry the Date Picker add-in is not open."
       Else
           Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj
       End If
   End If
End Sub
.zip WinDatePicker.zip (Dosya Boyutu: 58,07 KB | İndirme Sayısı: 32)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task