Overtime (Jam Lebih)

xxklr = Alltrim(tmp_absen.j_klr)  && Tetapan Jam Keluar (16:30)

&& Hitung Kelebihan Jam
Do Case
&& Jika Jam Pulang >= Jam Keluar Dan Menit Keluar = 00
Case Val(Left(Alltrim(This.Value),2)) >= Val(Left(Alltrim(xxklr),2)) And Val(Right(Alltrim(xxklr),2)) = 0
    && Nilai Jam Pulang - Nilai Jam Keluar (16 - 17) atau (16 - 18) atau (16 - 15)
    xxjam = (Val(Left(Alltrim(This.Value),2)) - Val(Left(Alltrim(xxklr),2)))

    Do Case
    && Jika Nilai Jam Keluar = 0
    Case Val(Left(Alltrim(xxklr),2)) = 0
        xxjam = 0
    && Jika Nilai Jam Pulang = 0
    Case Val(Left(Alltrim(This.Value),2)) = 0
        xxjam = 0
    Endcase

    Do Case
    && Jika Nilai Menit Keluar = 0
    Case Empty(Val(Right(Alltrim(xxklr),2)))
        && MEnit = Apa adanya.
        xxmnt = Val(Right(Alltrim(This.Value),2)) && ambil apa adanya
    && Jika Nilai Menit Pulang > Nilai Kanan Menit Keluar
    Case (Val(Right(Alltrim(This.Value),2)) > Val(Right(Alltrim(xxklr),2))) && Jika Menit Pulang > Menit Jam Pulang
        && Bulat Menit Pulang - Bulat Menit Keluar
        xxmnt = (Abs(Val(Right(Alltrim(This.Value),2)) - Val(Right(Alltrim(xxklr),2)))) && dikurangi hasilnya di absolut
    && Jika Nilai Menit Pulang <= Nilai Menit Keluar
    Case (Val(Right(Alltrim(This.Value),2)) <= Val(Right(Alltrim(xxklr),2))) && Jika Jam & Menit Pulang < Jam Pulang Tetapan (Pulang Cepat)
        xxmnt = Val('00')
    Endcase

    mlbh = Right('00'+Alltrim(Str(xxjam)),2)+':'+Right('00'+Alltrim(Str(xxmnt)),2)

&& Jika Jam Pulang >= Jam Keluar Dan Menit Keluar # 00 (30 / 40 dll)
Case Val(Left(Alltrim(This.Value),2)) >= Val(Left(Alltrim(xxklr),2)) And Val(Right(Alltrim(xxklr),2)) # 0
    && Nilai Jam Pulang - Nilai Jam Keluar (16 - 17) atau (16 - 18) atau (16 - 15)
    xxjam = (Val(Left(Alltrim(This.Value),2)) - Val(Left(Alltrim(xxklr),2)))

    Do Case
    && Jika Nilai Jam Keluar = 0
    Case Val(Left(Alltrim(xxklr),2)) = 0
        xxjam = 0
    && Jika Nilai Jam Pulang = 0
    Case Val(Left(Alltrim(This.Value),2)) = 0
        xxjam = 0
    CASE xxjam = 1
        xxjam = 0
    Endcase

    Do Case
    && Jika Nilai Menit Keluar = 0
    Case Empty(Val(Right(Alltrim(xxklr),2)))
        && MEnit = Apa adanya.
        xxmnt = Val(Right(Alltrim(This.Value),2)) && ambil apa adanya
    && Jika Nilai Menit Pulang > Nilai Kanan Menit Keluar
    Case (Val(Right(Alltrim(This.Value),2)) > Val(Right(Alltrim(xxklr),2))) && Jika Menit Pulang > Menit Jam Pulang
        && Bulat Menit Pulang - Bulat Menit Keluar
        xxmnt = (Abs(Val(Right(Alltrim(This.Value),2)) - Val(Right(Alltrim(xxklr),2)))) && dikurangi hasilnya di absolut
    && Jika Nilai Menit Pulang <= Nilai Menit Keluar
    Case (Val(Right(Alltrim(This.Value),2)) <= Val(Right(Alltrim(xxklr),2))) && Jika Jam & Menit Pulang < Jam Pulang Tetapan (Pulang Cepat)
        xxmnt = Val('00')
    Endcase

    mlbh = Right('00'+Alltrim(Str(xxjam)),2)+':'+Right('00'+Alltrim(Str(xxmnt)),2)

Otherwise
    mlbh = '' && nilai jam kurang dari standar
Endcase

If mlbh # '00:00'
    Replace lbh_jam With mlbh
Else
    Replace lbh_jam With ''
Endif