I have this function code from VB6 and want to write to PHP
Function itung_part()
rcrddet.MoveFirst
total = 0
before = 0
road = 0
visit = 0
If rcrddet!Status = "Pending" Then
pengali = 1
Select Case rcrddet!visit
Case 0
kali_before = 1
kali_road = 0
kali_visit = 0
Case 1
kali_before = 0
kali_road = 1
kali_visit = 0
Case 2
kali_before = 0
kali_road = 1
kali_visit = 0
Case 3
kali_before = 0
kali_road = 0
kali_visit = 1
End Select
Else
pengali = 0
kali_before = 0
kali_road = 0
kali_visit = 0
End If
awal = Format(rcrddet!DATE1, "mm/dd/yyyy") & " " & rcrddet!TIME1
rcrddet.MoveNext
Do Until rcrddet.EOF
akhir = Format(rcrddet!DATE1, "mm/dd/yyyy") & " " & rcrddet!TIME1
interval = DateDiff("n", awal, akhir)
total = total + (pengali * interval)
before = before + (kali_before * interval)
road = road + (kali_road * interval)
visit = visit + (kali_visit * interval)
awal = akhir
If rcrddet!Status = "Pending" Then
pengali = 1
Select Case rcrddet!visit
Case 0
kali_before = 1
kali_road = 0
kali_visit = 0
Case 1
kali_before = 0
kali_road = 1
kali_visit = 0
Case 2
kali_before = 0
kali_road = 1
kali_visit = 0
Case 3
kali_before = 0
kali_road = 0
kali_visit = 1
End Select
Else
pengali = 0
kali_before = 0
kali_road = 0
kali_visit = 0
End If
rcrddet.MoveNext
Loop
rcrddet.MoveLast
End Function
where rcrddet is strDB = "Select * From DETAIL WHERE (NO_LOG ='" & Nolog & "') ORDER BY DATE1, TIME1"
how to write this function to PHP? make me confuse :(
Comments
Post a Comment