0 Rabu, (12/12/2012)

---

Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!

---

Kemarin udah Buat function menghitung selisi waktu. . . 
Hari ini saya membuat function Menghitung biaya dari selisi waktu 
di bawah ini contoh functionnya. . .

-----------------------------------------------------------------

Function HitungBiaya(selisih As Double, kendaraan As String) As Double
Dim wa, ws, TS, ta, hasil As Double
Dim rst As ADODB.Recordset
    Set rst = con.Execute("select * from kendaraan where kd_kendaraan = " & kendaraan & " ")
    If Not rst.EOF Then
        wa = rst.Fields!waktu_awal
        ws = rst.Fields!waktu_selanjutnya
        TS = rst.Fields!tarif_selanjutnya
        ta = rst.Fields!tarif_awal

'MsgBox selisih
hasil = Round((selisih - wa) / ws) * TS + ta
'MsgBox hasil
HitungBiaya = hasil
End If
End Function
-----------------------------------------------------------------

Semoga Berhasil. .  .
GOOD LUCK. . . .