Tuesday 3 March 2009

Mencari Selisih Tanggal (VB6)


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
yang kurang lebih penampakannya seperti gambar dibawah ini



kemudian ketik Coding dibawah ini pada Form

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

Mudah2an ada manfaat nya bagi rekan2 VB Beginner dan selamat mencoba jangan lupa nitip comment nya .. makasih salam ..

42 Komentar: Mencari Selisih Tanggal (VB6)


Anonymous said...

makasih mas .. info yang bagus

Terima Kasih Sob Anonymous Atas Komentarnya.
Mr. X on 3 March 2009 at 21:18 said...

wah mantab sekali...nice info.Sucses always!!!

Terima Kasih Sob Mr. X Atas Komentarnya.
Anonymous said...

wah jago tentan program neh kayaknya :)
sukses bro

Terima Kasih Sob Anonymous Atas Komentarnya.
eRGe on 4 March 2009 at 02:24 said...

makasih atas tanggapan yang telah teman2 berikan

Linda on 4 March 2009 at 04:25 said...

postingan br...tp mbak gak mudeng ka hihihi....

Terima Kasih Sob Linda Atas Komentarnya.
aalil Belajar SEO on 4 March 2009 at 16:48 said...

asik..asikk.. VB again... VB is Beautiful(halah) nice info mas, jd nambah ilmu saya neh... keep update ya.. saya tunggu terus..

oh ya, thanks dah promosiin blog saya tntang update PCMAV,,hehe..

Terima Kasih Sob aalil Belajar SEO Atas Komentarnya.
Kristina Dian Safitry on 5 March 2009 at 05:39 said...

eh..begitu ya. aku baru faham nih. txs infonya fren..

Terima Kasih Sob Kristina Dian Safitry Atas Komentarnya.
Other Side on 7 March 2009 at 06:16 said...

Hi, drop :) nice with long weeked :) http://baganbatublog.blogspot.com/ http://panangian.blogspot.com/

Terima Kasih Sob Other Side Atas Komentarnya.
♥ Neng Aia ♥ on 10 March 2009 at 00:04 said...

ga ngerti euy! hehe..

Terima Kasih Sob ♥ Neng Aia ♥ Atas Komentarnya.
Anonymous said...

salam kenal bro...

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

Mantap infonya..

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

kereeen...bisa diaplikasikan buat di web apa g?

Thanks infonya bro..sukses slalu!!!

Terima Kasih Sob Anonymous Atas Komentarnya.
eRGe on 11 March 2009 at 05:37 said...

@mezzaluna >> maaf sob gak bisa, bahasa pemograman VB6 gak sama dengan script2 untuk web. makasih ya comment ya .... salam

♥ Neng Aia ♥ on 15 March 2009 at 01:29 said...

infonya bagus, tapi sayang aku ga ngeh! hehe..

Terima Kasih Sob ♥ Neng Aia ♥ Atas Komentarnya.
Anonymous said...

wah... rajanya vb nih si eka. tar klo aq mo buat toko, aq minta kmua aj ya yg buat pemrogramannya.
sukses deh

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

Saya juga seneng vb...

Sipp .....teruslah berbagi....

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

jadi ingat waktu baru belajar vb dulu.. hehehe keren bro..


salam
kingkong
http://indospotlight.blogspot.com

Terima Kasih Sob Anonymous Atas Komentarnya.
Anonymous said...

Sob ada sedikit PR untukmu..check yah

Terima Kasih Sob Anonymous Atas Komentarnya.
andri zoom on 8 April 2009 at 04:58 said...

Program yang bagus bROO.....

Terima Kasih Sob andri zoom Atas Komentarnya.
situs iklan baris gratis on 29 April 2009 at 19:12 said...

pastikan artikel di blog anda di ketahui banyak pengguna internet dengan mengiklankan blog anda di situs iklan baris grats tanpa daftar ini....

Terima Kasih Sob situs iklan baris gratis Atas Komentarnya.
andri-tiyangsobo on 4 May 2009 at 00:15 said...

wow jelas sekali..thank brother,....sukses selalu ya...

Terima Kasih Sob andri-tiyangsobo Atas Komentarnya.
Real Estate on 5 May 2009 at 04:24 said...

wow....boleh neh

Terima Kasih Sob Real Estate Atas Komentarnya.
Seti@wan Dirgant@Ra on 5 May 2009 at 19:52 said...

Saya mesti belajar banyak nih bro,...

Terima Kasih Sob Seti@wan Dirgant@Ra Atas Komentarnya.
yoyok on 12 May 2009 at 09:14 said...

mantahb brother..emang master nih
Salam



brotherk

Terima Kasih Sob yoyok Atas Komentarnya.
ems on 15 May 2009 at 01:03 said...

simpen ah..sapa tau besok2 kepake..hehee

Terima Kasih Sob ems Atas Komentarnya.
Unknown on 1 June 2009 at 21:19 said...

agak bingung dikit...hehe

Terima Kasih Sob Unknown Atas Komentarnya.
imam on 8 August 2009 at 22:05 said...

tHANKS SOB,, bAR SEHARI Langsng dapet banyak ilmu!!

Terima Kasih Sob imam Atas Komentarnya.
My XDA Blogspot on 18 August 2009 at 23:08 said...

wadow...

ngabsen dulu nih disini...

mbo aku ajarin...

Terima Kasih Sob My XDA Blogspot Atas Komentarnya.
Jogja Coffee on 18 August 2009 at 23:10 said...

thanks tutornya...

Terima Kasih Sob Jogja Coffee Atas Komentarnya.
mengembalikan jati diri bangsa on 10 September 2009 at 17:24 said...

thanks bro tutorial vbnya. lanjutkan, lebih cepat lebih baik

Terima Kasih Sob mengembalikan jati diri bangsa Atas Komentarnya.
hidup untuk berbagi on 26 December 2009 at 05:05 said...

wah,,, informasinya menarik banget,,, makasih banyak mas atas ilmu2nya,,,

Terima Kasih Sob hidup untuk berbagi Atas Komentarnya.
weili on 18 April 2010 at 21:12 said...

yang untuk itung bulan. sepertinya ada yang ga sesuai. o ya ada cara buat ato baca barcode ga pakai vb
web ini menarik. bagi2 ilmu vbnya lebih banyak yah

Terima Kasih Sob weili Atas Komentarnya.
home and garden on 12 June 2010 at 00:44 said...

wah sangat berguna untuk menghitung umur tuh...langsung keluar umurnya sampai jumlah harinya...

Terima Kasih Sob home and garden Atas Komentarnya.
Anonymous said...

thanks gan, selalu update tentang VB 6.0 ya...

Terima Kasih Sob Anonymous Atas Komentarnya.
Steve on 9 February 2011 at 21:31 said...

wow, mantabb tutorial nya... terima kasih banyak yaa :)

Terima Kasih Sob Steve Atas Komentarnya.
Dewa Satriani on 12 February 2011 at 22:42 said...

Enak Buangetselisih tanggal gw

Terima Kasih Sob Dewa Satriani Atas Komentarnya.
gio said...

thanks gan.. smoga makin tambah ilmunya

Terima Kasih Sob gio Atas Komentarnya.
Samsuri Yahya on 10 July 2011 at 08:28 said...

wah,.. lumayan juga sob,,.. kalo selisih jam gmana yah,,..???? mau donk,.. contoh jam masuk dikurangi jam pulang. Thx yah,,..

Terima Kasih Sob Samsuri Yahya Atas Komentarnya.
♫ MUSIC SHARE ♫ on 10 July 2011 at 16:02 said...

trims gan... ilmu visual vasic nya hebat banget, salut !!!

Terima Kasih Sob ♫ MUSIC SHARE ♫ Atas Komentarnya.
noldyfanny on 7 November 2011 at 09:27 said...

tk tutorialnya, muantep...bs ajarin jg dong cara mencari selisih waktu/jam..? mkasih lg deh..!

Terima Kasih Sob noldyfanny Atas Komentarnya.
Deni Indrawan on 13 January 2012 at 14:52 said...

nice info,salam kenal

Terima Kasih Sob Deni Indrawan Atas Komentarnya.
Anonymous said...

Thanks Gan, Mantap nih artikelnya..

Terima Kasih Sob Anonymous Atas Komentarnya.

Tanggapan Sobat

Zona Bebas Komentar tapi jangan nyepam.

Kalo nyepam minta maaf nih, dengan terpaksa dilaporkan pada kantor polisi terdekat dihapus, monggo sobat silakan komentar jangan malu-malu.

ABOUT ME

Empu Blog ini

SUPPORT BLOG INI




Submit

Display Pagerank Yahoo bot last visit powered by MyPagerank.Net

IKUTI VIA EMAIL

Enter your email address:

Delivered by FeedBurner

My Blog Do Follow

5 Komentar Terbaru