Tgl2 Otomatis terisi.
NoUrut Otomatis terisi.
Masa Keja Otomatis terisi.
Hasilnya sbb:
NoReg History tgl NoUrut tgl2 MasaKerja
T-881 Kabag Pembibitan padi 21-May-2003 1 09-Apr-2006 2 tahun
11 bulan
T-881 Staf penaburan pupuk 09-Apr-2006 2 01-Jan-2008 1 tahun
9 bulan
T-881 Kasubbag pengairan 01-Jan-2008 3 27-Feb-2008 1 bulan
T-889 Kabag penanaman padi 01-Dec-2005 1 09-Apr-2006 4 bulan
T-889 Kabag pemupukan padi 01-Apr-2006 2 01-Jan-2008 1 tahun
9 bulan
T-889 Kabag penyiangan padi 01-Apr-2007 3 27-Feb-2008 10 bulan
Buat Query bernama Query3, dengan string SQL sbb:
Query3:
SELECT TblHistory.*, DCount([tgl],"Query3","tgl<=#" & [tgl] & "# AND
NoReg='" & [NoReg] & "'") AS NoUrut,
IIf(Len(Format(DLookUp("[tgl]","Query3","[NoUrut]=" &
[NoUrut]+1),"dd-mmm-yyyy"))=0,Format(Date(),"dd-mmm-yyyy"),Format(DLookUp("[tgl]","Query3","[NoUrut]="
& [NoUrut]+1),"dd-mmm-yyyy")) AS tgl2, fTahunBulan([tgl],[tgl2]) AS
MasaKerja
FROM TblHistory
ORDER BY TblHistory.NoReg, TblHistory.tgl;
letakkan fungsi ini di module umum:
Function fTahunBulan(ByVal tgl1 As Date, ByVal tgl2 As Date) As String
On Error GoTo err_f
intMonth = DateDiff("m", tgl1, tgl2)
Select Case intMonth
Case 0
intDay = DateDiff("d", tgl1, tgl2)
fTahunBulan = intDay & " hari"
Case 1 To 12
fTahunBulan = intMonth & " bulan"
Case Else
intTahun = intMonth \ 12
intSisa = intMonth Mod 12
fTahunBulan = intTahun & " tahun " & intSisa & " bulan"
End Select
exit_f:
Exit Function
err_f:
Debug.Print Err.Description
Resume exit_f
End Function
--- In [email protected], "andikprabowo"
<[EMAIL PROTECTED]> wrote:
>
> Hello para senior acces dan kawan sekalian, moga sehat selalu.
>
> Andi mau tanya untuk menghitung lamanya bertugas melihat dari tabel
> history, contoh :
>
> NoReg History tgl
> T-889 Kabag penanaman padi 01-12-2005
> T-889 Kabag pemupukan padi 01-04-2007
> T-889 Kabag penyiangan padi 01-04-2007
> T-881 Kabag Pembibitan padi 21-05-2003
> T-881 Staf penaburan pupuk 09-04-2006
> T-881 Kasubbag pengairan 01-01-2008
>
> gimana ngitung lamanya bertugas untuk noreg T-889 Sewaktu menjadi
> kabag penanaman padi berapa tahun berapa bulan?
> lanjut, lamanya bertugas untuk noreg T-889 Sewaktu menjadi
> kabag pemupukan padi berapa tahun berapa bulan?
>
> mohon saran? terimakasih.
>
