Syntax ini berfungsi untuk perhitunggan aritmatik,
dimana kita akan menghitung selisih dari DTPicker1 dan DTPicker2 (tanggalan).
Ketiklah Syntax sebagai berikut :
Private Sub DTPicker2_Change()
Text6.Text = Val(DTPicker2.Value) -
Val(DTPicker1.Value)
End Sub
Tidak ada komentar:
Posting Komentar