Modul_IV_Vis_Basic

Modul Praktek IV Vis_Basic


A.Fungsi DateAdd
Adalah fungsi yang disediakan oleh Visual Basic untuk menambah data tanggal baik menambah harin bulan atau tahun. Adapunt penulisan secara umum sebagai berikut :

Syntax : DateAdd(interval, number, date)


B.Fungsi DateDiff

Digunakan untuk mencari jarak / perbedaan antara 2 tanggal.
Syntax :
DateDIff(interval,date1,date2[, firstdayofweek[, firstweekofyear]])

C.Fungsi DatePart
Syntax

DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

Fungsi DatePart dapat digunakan untuk menentukan angka hari, bulan, tahun dari sebuah data tanggal. Misalkan kita mau mencari Hari apa tanggal 17 Juli 2006, dapat menggunakan contoh berikut:
DatePart("w", 17/07/2006, vbSunday)
W : menunjukan interval yang digunakan adalah dalam hitungan satu minggu(week)
17/07/2006 : Adalah data tanggal yang akan dicari harinya
VbSunday : Menunjukan hari pertama diseting pada hari minggu
DatePart memberikan hasil angka Numeric, hasil dari kode program diatas adalah angka 2 (dua) berarti tanggal 17 Juli 2006 jatuh pada hari senin( Minggu = 1, senin = 2, dst...).


PRAKTEK :
Rancanglah Formulir Berikut ini !!





Kode Program :

Private Sub CommandHitung_Click()
  Dim TanggalA, tanggalB As Date
  Dim UsiaTH 

  TanggalA = DTPicker1.Value
  tanggalB = DTPicker2.Value



  UsiaTH = DateDIff("yyyy", TanggalA, tanggalB)

  Textth.Text = UsiaTH


End Sub



Private Sub DTPicker1_Change()
  Dim Tanggal As Date
  Dim Angkahari
  Dim hari
  
  nhari = Array("", "Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")

    Tanggal = DTPicker1.Value
    Angkahari = DatePart("w", Tanggal, vbSunday)
    hari = nhari(Angkahari)

    Labelnamahari.Caption = hari
End Sub