how to write this in PHP [closed]

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 :(