MENGHITUNG MASA KERJA BERDASARKAN NO INDUK PEGAWAI (NIP) - BELAJAR VBA EXCEL

Untuk menghitung masa kerja kita akan menghitung jumlah bulan dan tahun diatara tenggang waktu

Rumusnya  :

Hitung tahun = datedif(tanggal awal ; tanggal akhir;”y”)                       

Hitung bulan = datedif(tanggal awal ; tanggal akhir;”ym”)

RUMUS :

TMT AWAL =DATE(MID($D5;9;4);MID($D5;13;2);1)   

TAHUN  =DATEDIF(E5;$E$1;"y")   

BULAN =DATEDIF(E5;$E$1;"yM")   

MENENTUKAN JUMLAH BAYAR BERDASARKAN UMUR "RUMUS MICROSOF EXCEL"

Rumus untuk menentukan umur adalah :

=DATEDIF(C3;$D$1;"y")      

rumus untuk menentukan besar iuran adalah    

=IF(D3<0;"";IF(D3< 30;6000;IF(D3<41;9000;IF(D3<51;12000;15000)))) 

demikian semoga bermanfaat !!       

Filter antara Tanggal awal dan Tanggal akhir - EXCEL VBA

Private Sub ComboBox2_Change()
ActiveSheet.Cells(1, 5).Value = ComboBox1.Value
ActiveSheet.Cells(2, 5).Value = ComboBox2.Value
Dim dari As Date
Dim i As Long, Interval As Long
With ActiveSheet
If .FilterMode Then AutoFilter = False
    dari = Format(.Range("E1").Value, "dd/mm/yyyy")
    Interval = (.Range("E2") - .Range("E1")) + 1
    i = dari
    .Range("B5").AutoFilter Field:=1, Criteria1:=">=" & i, Operator:=xlAnd, Criteria2:="<" & i + Interval
End With
End Sub


Private Sub UserForm_Initialize()
For JmlH = 6 To 50
NilaI = Range("b" & JmlH)
ComboBox1.AddItem NilaI
ComboBox2.AddItem NilaI
Next JmlH
End Sub

Belajar excel VBA - Menghitung Tahun Kelahiran

Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False

    On Error Resume Next

    Dim dtTdy As Date, dtDob As Date

    dtDob = TextBox1.Value: dtTdy = TextBox2.Value

    TextBox3.Value = DateDiff("d", dtDob, dtTdy) & "  :  Hari"

    TextBox4.Value = DateDiff("m", dtDob, dtTdy) & "  :  Bulan"

   TextBox5.Value = DateDiff("yyyy", dtDob, dtTdy) & "  :  Tahun"

    TextBox6.Value = DateDiff("q", dtDob, dtTdy) & "  :  Kwartal"

  TextBox7.Value = DateDiff("ww", dtDob, dtTdy, vbSunday) & "  :  Minggu"

    Application.ScreenUpdating = True

End Sub