Welcome To PilihanPasti !

PilihanPasti adalah sebuah situs yang berisikan hal-hal yang berkaitan dengan perkembangan dunia Informasi Teknologi

News and IT Information

Informasi berita terbaru dan update berita tentang teknologi informasi

Ebook's

Pilihan Premium Ebook's (berbayar) dan Free Ebook's (gratis)

Private and IT Consulting

Menerima Private materi - materi Komputer (Office, Programming, Website, Windows) dan Konsultasi Teknologi Informasi

Software and Website

Menerima pembuatan Software dan Website

Iklan

Menerima pembuatan dan pemasangan Iklan

Ingin Private materi Komputer atau Ingin Membuat Website ?

Ingin Membuat Album Photo Digital & Buku Elektronik ?

Rabu, 13 Juli 2011

Yang Terjadi di Internet Selama 60 Detik

Apa yang terjadi jika kamu tidak terkoneksi dengan internet selama 60 detik? dan apa saja yang terupdate hanya dalam kurung waktu 1 menit tersebut? dan inilah beberapa hal yang akan kamu lewatkan hanya dalam 1 menit :
  • 1500+ postingan di blog
  • 98,000 twit terbaru
  • 12,000 iklan terbaru di craiglist(FJB Terbesar)
  • 20,000 postingan terbaru di Tumblr
  • 600 video terbaru di Youtube
  • 70 Domain Didaftarkan
  • 13,000 Aplikasi iPhone telah diunduh
  • 320 Akun Twitter terbaru
  • 100 Akun Linkedin terbaru
  • 6,600 Foto dipublish di Flickr
  • 125 Plugin WordPress terunduh
  • 50 Core WordPress terunduh
  • 79,364 Wall terkirim di Facebook
  • 695,000 Status Facebook diupdate
  • 510,040 Komentar muncul di Facebook
  • 1,700 Aplikasi Mozilla Firefox terunduh
  • 694,445 kata dicari di Google
  • 168 Juta Email terkirim
  • 60 Blog terbaru dibuat
  • 40 Pertanyaan di Yahoo answer dan 100 jawaban diberikan
  • 1,600 Orang Membaca di Scribd
  • 1 Kata terdefinisi di Urban Dictonaries
  • total 370,000 menit telepon di Skype
  • 13,000 jam musik streaming di Pandora
Seperti itulah yang terjadi di internet selama 60 detik, dan kamu sekarang telah tahu kenapa 1 menit begitu berharga di dunia maya.
Data Statistik Oleh : Go-globe

Selasa, 12 Juli 2011

Blog, Rating Tinggi di Google...

Anda punya Blog dan ingin Blog Anda  Sukses Masuk 10 Besar di Google,  Ikutilah langkah-langkah berikut ini :

1. Tentukan judul artikel yang akan diposting, Misalnya Alternative Adsense Pay Per Click Indonesia.
2. Pilih minimal 3 kata kunci yang ada di judul posting, misalnya kita pilih Adsense, Pay Per Click, dan Indonesia.
3. Tulis ulang ketiga kata kunci ini di paragraf pertama.
4. Di paragraf berikutnya masukkan lagi kata kunci tersebut secara terpisah. Gunakan kalimat yang baik, jangan terkesan mengulang-ngulang kata kunci.
5. Pada paragraf terakhir ulang sekali lagi kata kunci Alternative Adsense Pay Per Click Indonesia.
6. Masih ingat Cara optimalkan blog description, jangan lupa, masukkan juga ketiga kata kunci tersebut dalam description blog Anda.

Semoga Sukses...

Senin, 11 Juli 2011

Akibat Kecanduan Facebook...

Sssstttttt...., foto disamping adalah akibat kecanduan Facebook....., tapi bagus juga untuk selalu update informasi dan pertemanan...
Waspadalah...waspadalah...!!!!





Ada apa dengan GOOGLE


1.Google doodle yang pertama
Setiap orang pasti kenal dengan logo milik Google, simple dan begitu kita masuk halaman website google tersebut kita disambut dengan tulisan /logo Google yang cukup besar sehingga kita bisa mengingat logo Google tersebut dengan jelas. Tapi taukah kamu, google doodle pertama kali didesign dengan pesan berupa "out of office". Pada tahun 1998, Brin dan Page mengambil liburan akhir pekan mereka untuk pergi ke Burning Man Festival di Nevada. Burning Man doodle, didesign oleh orang-orang google dan ditaruh di homepage google, agar pengguna mengerti bahwa mereka sedang keluar dari kantor dan tidak dapat memperbaiki masalah-masalah teknis seperti crashnya server.

2. Angka menarik dari Google IPO
Salah satu fakta menarik yang dimiliki Google adalah Google memiliki nilai sebesar $ 2.718.281.828, dimana angka tersebut merupakan sepuluh digit pertama dari matematika konstant yaitu "e".

3. Tempat penyimpanan Google pertama kali terbuat dari LEGO
Tempat penyimpanan data yang dimiliki Google pertama kali terbuat dari LEGO, yang memiliki kapasitas penyimpanan sebesar 40 GB ( lebih kecil dari iPod Modern ).

4. Tweet pertama Google
Tweet pertama Google dikirim pada bulan februari 2009, yang berisi "“I’m 01100110 01100101 01100101 01101100 01101001 01101110 01100111 00100000 01101100 01110101 01100011 01101011 01111001 00001010.” Bagi anda yang tidak mengerti bilangan biner, arti dari bilangan ini adalah "I'm Feeling Lucky".

5. Google menyewa kambing
Google menyewa kambing, kalimat ini tidak hanya gurauan belaka, Google sengaja menyewa kambing-kambing dari California Grazing untuk mengurangi rumput-rumput yang ada di kantor Google. Google sengaja menyewa kambing-kambing ini karena menurut mereka kambing lebih ramah lingkungan dibanding dengan mesin pemotong rumput.

6. Google memberi pengaruh terhadap bahasa
pada tahun 2006, Meriam Webster dan Oxford English Dictionary memasukan "Google" ke dalam kosakata yang ada dalam kamus mereka.

7. Google adalah perusahaan pecinta anjing
Google adalah perusahaan yang sangat dekat dengan anjing, karena setiap karyawannya diperbolehkan membawa anjing ke kantor Google. Seperti anjing yang ada pada gambar diatas adalah anjing yang dimiliki oleh Urs Holzle, senior VP operation Google yang bernama Yoshka.

8. "Swedish Fish" snack resmi pertama di Google
pada february, 1999, permen karet "Swedish Fish" menjadi snack yang diorder pertama untuk dinikmati di kantor Google.Google adalah industri yang memberikan karyawannya minuman dan snack secara gratis. Bukan hanya itu saja, Google memberikan makan sebanyak 3 kali sehari kepada karyawannya, dan selama musim panas karyawan Google dapat menikmati BBQ yang ada di kantor google. Tetapi jika anda bekerja sebagai karyawannya, anda tidak perlu kuatir jika anda takut gemuk. karena Google memiliki Google gym.

9. Logo yang dimiliki Google tidak berada di tengah sampai 2001
Logo yang dimiliki Google tidak berada ditengah sampai pada 31 Maret 2001. Sebelumnya logo Google tersebut ada di posisi rata kiri, tidak beda jauh seperti logo yang dimiliki yahoo.

10. Google memiliki Dinosaurus di kantornya
Untuk menghilangkan kejenuhan yang ada di kantor, Google sepertinya tidak berhenti membuat sesuatu yang unik di kantornya. Jika anda masuk ke dalam kantor Google, maka anda akan menemukan sebuah tulang dinosaurus berjenis T-rex yang diberi nama "Stan", yang ditaruh dihalaman kantor Google. Dapat dibayangkan betapa menyenangkannya menjadi bagian dari Google, karena hidup dalam lingkungan kantor Google pastinya akan jauh dari kejenuhan.

Internet dan Perkembangannya...

Teknologi Informasi dan Telekomunikasi (Information and Communication Technology/ICT) merupakan tulang punggung aplikasi Web 2.0. Perkembangan Teknologi Informasi dan Komunikasi yang fenomenal dan menjadi awal munculnya aplikasi web adalah Internet. Internet yang berawal dari riset untuk pertahanan dan keamanan serta pendidikan berkembang menjadi perangkat pendukung bisnis yang sangat berpengaruh. Dalam kaitan dengan aplikasi Web 2.0 ini, terdapat beberapa peristiwa penting dalam sejarah internet.
Berawal pada tahun 1957, melalui Advanced Research Projects Agency (ARPA), Amerika Serikat bertekad mengembangkan jaringan komunikasi terintegrasi yang saling menghubungkan komunitas sains dan keperluan militer. Hal ini dilatarbelakangi oleh terjadinya perang dingin antara Amerika Serikat dengan Uni Soviet (tahun 1957 Soviet meluncurkan sputnik).
Perkembangan besar Internet pertama adalah penemuan terpenting ARPA yaitu packet switching pada tahun 1960. Packet switching adalah pengiriman pesan yang dapat dipecah dalam paket-paket kecil yang masing-masing paketnya dapat melalui berbagai alternatif jalur jika salahsatu jalur rusak untuk mencapai tujuan yang telah ditentukan. Packet switching juga memungkinkan jaringan dapat digunakan secara bersamaan untuk melakukan banyak koneksi, berbeda dengan jalur telepon yang memerlukan jalur khusus untuk melakukan koneksi. Maka ketika ARPANET menjadi jaringan komputer nasional di Amerika Serikat pada 1969, packet switching digunakan secara menyeluruh sebagai metode komunikasinya menggantikan circuit switching yang digunakan pada sambungan telepon publik.
Perkembangan besar Internet kedua yang dicatat pada sejarah internet adalah pengembangan lapisan protokol jaringan yang terkenal karena paling banyak digunakan sekarang yaitu TCP/IP (Transmission Control Protocol/ Internet Protocol). Protokol adalah suatu kumpulan aturan untuk berhubungan antarjaringan. Protokol ini dikembangkan oleh Robert Kahn dan Vinton Cerf pada tahun 1974. Dengan protokol yang standar dan disepakati secara luas, maka jaringan lokal yang tersebar di berbagai tempat dapat saling terhubung membentuk jaringan raksasa bahkan sekarang ini menjangkau seluruh dunia. Jaringan dengan menggunakan protokol internet inilah yang sering disebut sebagai jaringan internet.
Jaringan ARPANET menjadi semakin besar sejak saat itu dan mulai dikelola oleh pihak swasta pada tahun 1984, maka semakin banyak universitas tergabung dan mulailah perusahaan komersial masuk. Protokol TCP/IP menjadi protokol umum yang disepakati sehingga dapat saling berkomunikasi pada jaringan internet ini.
Perkembangan besar Internet ketiga adalah terbangunnya aplikasi World Wide Web pada tahun 1990 oleh Tim Berners-Lee. Aplikasi World Wide Web (WWW) ini menjadi konten yang dinanti semua pengguna internet. WWW membuat semua pengguna dapat saling berbagi bermacam-macam aplikasi dan konten, serta saling mengaitkan materi-materi yang tersebar di internet. Sejak saat itu pertumbuhan pengguna internet meroket.

Referensi : http://www.sejarah-internet.com/

Rabu, 06 Juli 2011

Perintah Khusus Pencarian Di Google


inurl: ialah sintaks perintah untuk membatasi pencarian yang hanya menghasilkan semua URL yang hanya berisi kata kunci informasi yang dimaksudkan. Sebagai contoh pencarian dalam pencarian,”inurl : database mdb”. Pencarian akan menghasilkan semua URL yang hanya mengandung informasi tentang “database mdb “.

cache: akan menunjukkan daftar web yang telah masuk kedalam indeks database Google. Sebagai contoh:
“cache:deffcon.org”, pencarian akan memperlihatkan list yang disimpan pada Google untuk page deffcon.org

link: ialah sintaks perintah pada Google yang akan menunjukkan daftar list webpages yang memiliki link pada webpage special. Sebagai contoh:“link:www.securityfocus.com” akan menunjuukan daftar webpage yang memiliki point link pada page SecurityFocus.

filetype: ialah sintaks perintah pada Google untuk pencarian data pada internet dengan ekstensi tertentu (i.e. doc, pdf or ppt etc). Sebagai contoh pada pencarian : “filetype:doc site:go.id confidental” ( tanpa tanda kutip). Pencarian akan menghasilkan file data dengan ekstensi “.doc” pada semua domain go.id yang berisi informasi “confidential”.

Intitle: ialah sintaks perintah untuk membatasi pencarian yang hanya menghasilkan judul yang mengandung informasi pada topik yang
dimaksud. Sebagai contoh pada pencarian, “intitle:
password admin “ ( tanpa tanda kutip ). Pencarian akan mencari page yang mengandung kata “ password “ sebagai judulnya dengan prioritas utama “admin” .
Jika pada pencarian terdapat dua query pencarian utama, digunakan sintaks allintitle: untuk pencarian secara lengkap. Sebagai contoh pada pencarian “allintitle:admin mdb”. Maka pencarian akan dibatasi pada dua subjek utama judul yaitu “admin” dan “mdb”.

related: sintaks ini akan memberikan daftar web pages yang serupa dengan web page yang di indikasikan.
Sebagai contoh: “related:www.securityfocus.com”, pencarian akan memberi daftar web page yang serupa dengan homepage Securityfocus.

link: ialah sintaks perintah pada Google yang akan menunjukkan daftar list webpages yang memiliki link pada webpage special. Sebagai contoh:“link:www.securityfocus.com” akan menunjuukan daftar webpage yang memiliki point link pada page SecurityFocus.

intext: sintaks perintah ini akan mencari kata kata pada website tertentu. Perintah ini mengabaikan link atau URL dan judul halaman. Sebagai contoh :
“intext:admin” (tanpa tanda petik), pencarian akan menghasilkan link pada web page yang memiliki keyword yang memiliki keyword admin.

Selasa, 05 Juli 2011

Fungsi Terbilang

Public Function Terbilang(sNilai As String) As String
Dim iPanjang%: Dim iDigit%
Dim iAngka%: Dim iSisa%
Dim iLoop%: Dim iLoopSatuan%
Dim iBatas%

Dim sAngka(9) As String
Dim sDigit() As String
Dim sDigitKalimat() As String
Dim sSatuan(6) As String
Dim sKalimat$: Dim sTeksAngka$
Dim sTeksDigit$: Dim sNilaiPoint$
Dim sDigitPoint() As String
Dim sDigitKalimatPoint() As String
Dim sTeksAngkaPoint$
Dim sNol$: Dim iNol As Integer

Dim bSe As Boolean

sAngka(0) = ""
sAngka(1) = "satu "
sAngka(2) = "dua "
sAngka(3) = "tiga "
sAngka(4) = "empat "
sAngka(5) = "lima "
sAngka(6) = "enam "
sAngka(7) = "tujuh "
sAngka(8) = "delapan "
sAngka(9) = "sembilan "

sSatuan(1) = ""
sSatuan(2) = "ribu "
sSatuan(3) = "juta "
sSatuan(4) = "milyar "
sSatuan(5) = "trilyun "
sSatuan(6) = "bilyun "

If InStr(sNilai, ",") <> 0 Then
sNilaiPoint = Mid(sNilai, InStr(sNilai, ",") + 1)
sNilai = Left(sNilai, InStr(sNilai, ",") - 1)
ElseIf InStr(sNilai, ".") <> 0 Then
sNilaiPoint = Mid(sNilai, InStr(sNilai, ".") + 1)
sNilai = Left(sNilai, InStr(sNilai, ".") - 1)
End If

iLoop = 0
Do While iLoop < Len(sNilaiPoint)
iLoop = iLoop + 1
Select Case Mid(sNilaiPoint, iLoop, 1)
Case "0"
sNol = "nol " & sNol
iNol = iNol + 1
Case Else
Exit Do
End Select
Loop

If sNilaiPoint <> "" Then
sNilaiPoint = Mid(sNilaiPoint, iNol + 1)
End If

'Nilai di belakang koma
Select Case Len(sNilaiPoint)
Case Is > 0
iPanjang = Len(Trim(sNilaiPoint))
Select Case iPanjang Mod 3
Case 0
iDigit = iPanjang / 3
iSisa = 3
Case Else
iDigit = (iPanjang \ 3) + 1
iSisa = iPanjang Mod 3
End Select

ReDim sDigitPoint(iDigit)
ReDim sDigitKalimatPoint(iDigit)

iLoop = 0
While iLoop < iDigit
iLoop = iLoop + 1
Select Case iLoop
Case iDigit
sDigitPoint(iLoop) = Right(sNilaiPoint, iSisa)
Case Else
sDigitPoint(iLoop) = Right(sNilaiPoint, 3)
sNilaiPoint = Left(sNilaiPoint, Len(sNilaiPoint) - 3)
End Select
Wend

sTeksAngka = ""
For iLoop = 1 To iDigit
sNilaiPoint = sDigitPoint(iLoop)

Select Case iLoop
Case iDigit
iBatas = iSisa
Case Else
iBatas = 3
End Select

sTeksAngka = sSatuan(iLoop)

For iLoopSatuan = 1 To iBatas
iAngka = Val(Right(sNilaiPoint, 1))
sNilaiPoint = Left(sNilaiPoint, iBatas - iLoopSatuan)
Select Case iLoopSatuan
Case 2

Select Case iAngka
Case Is <> 0

Select Case iAngka
Case 1

bSe = True
If Val(Right(sDigitPoint(iLoop), 1)) = 0 Then
sTeksAngka = "sepuluh " & sSatuan(iLoop)
ElseIf Val(Right(sDigitPoint(iLoop), 1)) = 1 Then
sTeksAngka = "sebelas " & sSatuan(iLoop)
Else
sTeksAngka = sAngka(Val(Right(sDigitPoint(iLoop), 1))) & _
"belas " & sSatuan(iLoop)
End If

Case Else

bSe = False
sTeksAngka = "puluh " & sTeksAngka

End Select

End Select

Case 3

Select Case iAngka
Case Is <> 0

Select Case iAngka
Case 1

bSe = True
sTeksAngka = "seratus " & sTeksAngka

Case Else

sTeksAngka = "ratus " & sTeksAngka

End Select

End Select

End Select

Select Case bSe
Case True
bSe = False
Case Else

Select Case iLoop
Case 2

If Right(sDigitPoint(2), 1) = 1 And iLoopSatuan = 1 Then
If Len(sDigitPoint(2)) = 1 Then
sTeksAngka = "se" & sTeksAngka
ElseIf Val(Mid(sDigitPoint(2), Len(sDigitPoint(2)) - 1, 1)) = 0 Then
sTeksAngka = "se" & sTeksAngka
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If

Case Else

sTeksAngka = sAngka(iAngka) & sTeksAngka

End Select

End Select
Next

sDigitKalimatPoint(iLoop) = sTeksAngka
sTeksAngka = ""
Next

For iLoop = 1 To iDigit

Select Case sDigitKalimatPoint(iLoop)
Case Is <> sSatuan(iLoop)
sTeksAngka = sDigitKalimatPoint(iLoop) + sTeksAngka
End Select

Next

Select Case sTeksAngka
Case "": sTeksAngka = "nol "
End Select

sTeksAngkaPoint = "koma " & sNol & sTeksAngka

End Select

iPanjang = Len(Trim(sNilai))
Select Case iPanjang Mod 3
Case 0
iDigit = iPanjang / 3
iSisa = 3
Case Else
iDigit = (iPanjang \ 3) + 1
iSisa = iPanjang Mod 3
End Select

ReDim sDigit(iDigit)
ReDim sDigitKalimat(iDigit)

iLoop = 0
While iLoop < iDigit
iLoop = iLoop + 1

Select Case iLoop
Case iDigit
sDigit(iLoop) = Right(sNilai, iSisa)
Case Else
sDigit(iLoop) = Right(sNilai, 3)
sNilai = Left(sNilai, Len(sNilai) - 3)
End Select

Wend

sTeksAngka = ""
For iLoop = 1 To iDigit
sNilai = sDigit(iLoop)
Select Case iLoop
Case iDigit
iBatas = iSisa
Case Else
iBatas = 3
End Select

sTeksAngka = sSatuan(iLoop)

For iLoopSatuan = 1 To iBatas


iAngka = Val(Right(sNilai, 1))
sNilai = Left(sNilai, iBatas - iLoopSatuan)

Select Case iLoopSatuan
Case 2
Select Case iAngka
Case Is <> 0
Select Case iAngka
Case 1

bSe = True
If Val(Right(sDigit(iLoop), 1)) = 0 Then
sTeksAngka = "sepuluh " & sSatuan(iLoop)
ElseIf Val(Right(sDigit(iLoop), 1)) = 1 Then
sTeksAngka = "sebelas " & sSatuan(iLoop)
Else
sTeksAngka = sAngka(Val(Right(sDigit(iLoop), 1))) & _
"belas " & sSatuan(iLoop)
End If

Case Else

bSe = False
sTeksAngka = "puluh " & sTeksAngka
End Select

End Select
Case 3
Select Case iAngka
Case Is <> 0
Select Case iAngka
Case 1
bSe = True
sTeksAngka = "seratus " & sTeksAngka
Case Else
sTeksAngka = "ratus " & sTeksAngka
End Select
End Select
End Select

Select Case bSe
Case True
bSe = False

Case Else
Select Case iLoop
Case 2
If Right(sDigit(2), 1) = 1 And iLoopSatuan = 1 Then
If Len(sDigit(2)) = 1 Then
sTeksAngka = "se" & sTeksAngka
ElseIf Val(Mid(sDigit(2), Len(sDigit(2)) - 1, 1)) = 0 Then
sTeksAngka = "satu " & sTeksAngka
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If
Case Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End Select

End Select
Next
sDigitKalimat(iLoop) = sTeksAngka
sTeksAngka = ""
Next

For iLoop = 1 To iDigit
Select Case sDigitKalimat(iLoop)
Case Is <> sSatuan(iLoop): sTeksAngka = sDigitKalimat(iLoop) + sTeksAngka
End Select
Next

Select Case sTeksAngka
Case "": sTeksAngka = "nol "
End Select

Terbilang = StrConv(Trim(sTeksAngka + sTeksAngkaPoint), vbProperCase)

End Function


Penggunaan:

Text1.Text = Terbilang("12000,20")

Fungsi Menghitung Waktu

Fungsi berikut digunakan untuk menghitung waktu/tanggal secara lebih detail. Dimana fungsi berikut dapat menampilkan Hari Bulan dan Tahun dari hasil proses.

Fungsi tersebut juga dapat digunakan dalam menghitung tanggal lahir seseorang, hanya dengan memasukan 2 paramter untuk diproses.

Function cari_umur(TanggalAwal As Date, TanggalAkhir As Date) As String
On Error GoTo salah
Dim tahun As Long, bln As Integer, bulan As Integer, thn As Long
Dim Counter As Integer, hari As Integer

hari = Format(CDate(TanggalAwal), "d")
bln = Format(CDate(TanggalAwal), "m")
thn = Format(CDate(TanggalAwal), "yyyy")

Do Until (hari = Format(CDate(TanggalAkhir), "d") And _
bln = Format(CDate(TanggalAkhir), "mm") And _
thn = Format(CDate(TanggalAkhir), "yyyy"))
hari = hari + 1


If hari = Format(CDate(TanggalAwal), "d") Then
bulan = bulan + 1 'jumlah bulan
Counter = 0 'jumlah hari
If bulan = 12 Then
bulan = 0
tahun = tahun + 1 'jumlah tahun
End If
Else
Counter = Counter + 1
End If

If CDate(hari & "/" & bln & "/" & thn) = CDate(Trim(TanggalAkhir)) Then Exit Do
If bln = 1 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 2 And hari = 29 And thn Mod 4 = 0 Then
bln = bln + 1: hari = 0
ElseIf bln = 2 And hari = 28 And thn Mod 4 > 0 Then
bln = bln + 1: hari = 0
ElseIf bln = 3 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 4 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 5 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 6 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 7 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 8 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 9 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 10 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 11 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 12 And hari = 31 Then
bln = 1: thn = thn + 1: hari = 0
End If
Loop

cari_umur = Counter & " hari " & bulan & " bulan " & tahun & " tahun"
Exit Function
salah:
If Err.Number = 13 Then
MsgBox "format tanggal salah"
End If
End Function

Private Sub Command3_Click()
'Mulai tanggal - s/d tanggal
MsgBox cari_umur(CDate(Text1), CDate(Text2))
End Sub

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites