VB Master,
teman-teman, tolong dong...saya mau menghitung hari libur.
saya sudah buat table hari libur.....
isinya tablenya seperti ini :
nama table : Thrlbr
field : tglhrlbr > sebagai unix
field : keterangan
item nya :
ex :
tglhrlbr Ket :
12/04/2008 Hr raya....A
15/05/2008 Hr raya....B
16/05/2008 Hr raya....C
17/08/2008 Hr kemerdekaan RI
codingnya seperti ini :
Dim rstglmsk As ADODB.Recordset
Dim sqltglmsk As String
Dim rsSla As ADODB.Recordset
Dim sqlsla As String
Dim rslbr As ADODB.Recordset
Dim sqllbr As String
Dim tgl As String
Dim jenis As String
Dim status As String
Dim IDPerbaikan As String
Dim lsMsk As ListItem
Dim ctr As Long
FrmListOpen.Enabled = True
FrmMenu.Enabled = False
Dim ssla As String
Dim totsla As String
'Dim slalbr As String
Dim snn As String
Set rstglmsk = New ADODB.Recordset
sqltglmsk = "select * from tBrgmsk"
rstglmsk.Open sqltglmsk, cnn, adOpenKeyset, adLockReadOnly
rstglmsk.Find "NoID = '" & T1.Text & "'"
If Not rstglmsk.EOF Then
hr = Format(rstglmsk!TglMsk, "dddd")
If hr = "sunday" Then
ltglsli.Caption = DT3.Value
ltglmsk.Caption = Format(rstglmsk!TglMsk, "dd/MM/yyyy")
snn = "Senin"
Set rsSla = New ADODB.Recordset
sqlsla = "select SLA from tSlasoft where hari = '" & snn & "'"
rsSla.Open sqlsla, cnn, adOpenKeyset, adLockReadOnly
If Not rsSla.EOF Then
jumtgl.Caption = rstglmsk.Fields("tglmsk").Value +
rsSla.Fields("SLA").Value
Set rslbr = cnn.Execute("select count(*) as slalbr from thrlbr
where Tglhrlbr > '" & ltglmsk.Caption & "' and Tglhrlbr < '" & ltglsli.Caption
& "'")
totsla = jumtgl.Caption + slalbr
If totsla >= ltglsli.Caption Then
LSLA.Caption = 1
ElseIf totsla < ltglsli.Caption Then
LSLA.Caption = 0
End If
End If
End If
If hr = "Tuesday" Then
ltglsli.Caption = DT3.Value
ltglmsk.Caption = Format(rstglmsk!TglMsk, "dd/MM/yyyy")
snn = "Selasa"
Set rsSla = New ADODB.Recordset
sqlsla = "select SLA from tSlasoft where hari = '" & snn & "'"
rsSla.Open sqlsla, cnn, adOpenKeyset, adLockReadOnly
If Not rsSla.EOF Then
jumtgl.Caption = rstglmsk.Fields("tglmsk").Value +
rsSla.Fields("SLA").Value
totsla = jumtgl.Caption
If totsla >= ltglsli.Caption Then
LSLA.Caption = 1
ElseIf totsla < ltglsli.Caption Then
LSLA.Caption = 0
End If
End If
End If
If hr = "Wednesday" Then
ltglsli.Caption = DT3.Value
ltglmsk.Caption = Format(rstglmsk!TglMsk, "dd/MM/yyyy")
snn = "Rabu"
Set rsSla = New ADODB.Recordset
sqlsla = "select SLA from tSlasoft where hari = '" & snn & "'"
rsSla.Open sqlsla, cnn, adOpenKeyset, adLockReadOnly
If Not rsSla.EOF Then
jumtgl.Caption = rstglmsk.Fields("tglmsk").Value +
rsSla.Fields("SLA").Value
totsla = jumtgl.Caption
If totsla >= ltglsli.Caption Then
LSLA.Caption = 1
ElseIf totsla < ltglsli.Caption Then
LSLA.Caption = 0
End If
End If
End If
If hr = "Thursday" Then
ltglsli.Caption = DT3.Value
ltglmsk.Caption = Format(rstglmsk!TglMsk, "dd/MM/yyyy")
snn = "Kamis"
Set rsSla = New ADODB.Recordset
sqlsla = "select SLA from tSlasoft where hari = '" & snn & "'"
rsSla.Open sqlsla, cnn, adOpenKeyset, adLockReadOnly
If Not rsSla.EOF Then
jumtgl.Caption = rstglmsk.Fields("tglmsk").Value +
rsSla.Fields("SLA").Value
totsla = jumtgl.Caption
If totsla >= ltglsli.Caption Then
LSLA.Caption = 1
ElseIf totsla < ltglsli.Caption Then
LSLA.Caption = 0
End If
End If
End If
If hr = "Friday" Then
ltglsli.Caption = DT3.Value
ltglmsk.Caption = Format(rstglmsk!TglMsk, "dd/MM/yyyy")
snn = "Jumat"
Set rsSla = New ADODB.Recordset
sqlsla = "select SLA from tSlasoft where hari = '" & snn & "'"
rsSla.Open sqlsla, cnn, adOpenKeyset, adLockReadOnly
If Not rsSla.EOF Then
jumtgl.Caption = rstglmsk.Fields("tglmsk").Value +
rsSla.Fields("SLA").Value
totsla = jumtgl.Caption
If totsla >= ltglsli.Caption Then
LSLA.Caption = 1
ElseIf totsla < ltglsli.Caption Then
LSLA.Caption = 0
End If
End If
End If
End If
untuk menghitung sabtu dan minggu saya sudah mendapatkannya
misalkan hari senin SLA = 2 hari,
hari selasa SLA = 2 hari,
hari rabu SLA = 2 hari,
hari kamis SLA = 4 hari, karena ketemu sabtu & minggu
hari jum'at SLA = 4 hari, karena ketemu sabtu & minggu
ini sudah selesai.....dengan coding diatas.
yang saya belum dapatkan nilainya....dibawah ini....????
kalo ketemu hari Nasional tersebut yang ada di table, saya ingin menjumlahkan
jika hari jum'at tgl, ex : 12/05/2008 harusnya SLA jatuh pada tgl 16 (12 + 4)
tapi karena tgl tersebut ada tanggal merahnya (tanggal 15 & 16) saya ingin
menambah SLA + 2 supaya menjadi tgl 18/05/2008.
gimana caranya ya, pliz temen2 tolong bantu saya ya....pliz...plizz....banget.
salam,
ari susan
between 0000-00-00 and 9999-99-99
[Non-text portions of this message have been removed]
