CARA MEMBUAT SELISIH TANGGAL PADA VISUAL BASIC (VB)

Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya

pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut

persiapan yang dilakukan :

Buatlah Project Baru (Standard exe)

Tambahkan :

3 Label

Label1 (Caption : Mencari Selisih Tanggal)

Label2 (Caption : Lahir :)

Label3 (Caption : Umur Anda)

1 Buah Frame ------> Caption : Masukan Tanggal Lahir

3 Buah ComboBox ----> Style : 2 - Dropdown List

1 Buah Command Button

Option Explicit

Private Sub showTanggal()

Dim i As Byte

For i = 1 To 31

Combo1.AddItem Format(i, "00")

Next i

Combo1.ListIndex = 0

End Sub

Private Sub showBulan()

Dim i As Byte

For i = 1 To 12

Combo2.AddItem Format(i, "00")

Next i

Combo2.ListIndex = 0

End Sub

Private Sub showTahun()

Dim i As Integer

For i = 1950 To Year(Now)

Combo3.AddItem i

Next i

Combo3.ListIndex = 0

End Sub

Private Sub Command1_Click()

Dim sLahir As String

sLahir = Combo1 + "/" + Combo2 + "/" + Combo3

If IsDate(sLahir) = True Then

Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)

Else

MsgBox "Tanggal nya salah coy", 48, "Info"

Combo1.SetFocus

End If

End Sub

Private Sub Form_Load()

showTanggal

showBulan

showTahun

End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _

Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer

Dim SelisihBulan As Integer

On Error GoTo pesan

SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)

Tahun = SelisihBulan \ 12

Sisa = SelisihBulan Mod 12

SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"

Exit Function

pesan:

MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"

End Function

ok sob coba deh langsung praktekkan...

terimakasih telah membaca artikel saya... :)  

Bagi yang hoby Pemroggraman komputer menggunakan Visual Basic nih.... Ada yang takut dengan virus kan.... hehe hal ini memang terbilang aneh

tapi ane hanya sekedar berniat untuk mengerjai salah satu teman ane

yang akhir-akhir ini sering sombong. Sehingga gw berusaha mencari-cari artikel mengenai

Cara Membuat Virus Komputer dengan sebuah kode script.

Cara kerja Virus ini cukup lumayan unik loh, Virus ini akan beraksi di Komputer anda dan ketika di

jalankan maka secara otomatis DVD/CD Rom yang ada pada Komputer akan terbuka dan tertutup dengan

sendirinya. Hal ini cukup membuat reda kekesalan gw terhadap teman gw yang satu ini. Bagaimana untuk

sobat sekalian? ada niat untuk mengerjai teman?. Langsung aja praktekkan. Nihh, ane kasih kode script nya.

    Set oWMP = CreateObject("WMPlayer.OCX.7")

    Set colCDROMs = oWMP.cdromCollection

    do

    if colCDROMs.Count >= 1 then

    For i = 0 to colCDROMs.Count - 1

    colCDROMs.Item(i).Eject

    Next

    For i = 0 to colCDROMs.Count - 1

    colCDROMs.Item(i).Eject

    Next

    End If

    wscript.sleep 5000

    loop

Cara penggunaannya lumayan mudah, sobat buka Notpad (Start > All Programs > Assesories > Notpad), lalu

Copy-Paste kode Script di atas pada Notpad tadi. Setelah selesai Simpan dengan Ekstensi .vbs. Bagaimana ampuh tidak! wkwkwk...

Tapi loe tahu enggak bagaimana cara menghentikan Virus ini?? Hahahaa... Hati-hati saat melakukan hal

ini karena Antivirus apapun tidak akan ada yang dapat menghentikan hal ini selain loe menekan Ctrl + Alt + Del pada

papan Keyboard setelah itu matikan proses wscripts.exe nya.

Baik, sekian dulu Postingan Blogger ane kali ini mengenai Cara Membuat Virus Komputer semoga bermanfaat

dan untuk jaga-jaga ketika sobat loe ada yang mau ngerjai. Dan jangan di salah gunakan karena dapat berakibat Cacad janin serta gangguan kehamilan, wkkwkwkw!