Ditulis oleh : imadewira / wirautama
Berikut ini merupakan program yang dapat digunakan untuk mencari hari kelahiran dengan inputan berupa 3 buah bilangan yaitu : tanggal lahir, bulan lahir dan tahun kelahiran. Kemudian akan didapat hari kelahiran yaitu Senin, Selasa atau hari lainnya. Inputan yang valid adalah tahun 2005 kebawah. Program ini dibuat menggunakan Quick Basic. Semoga bermanfaat.

Berikut adalah script nya :
CLS
DIM tglA, blnA, thnA, tglB, blnB, thnB AS INTEGER
DIM bulan(12) AS INTEGER
DIM jmlhari, i AS INTEGER
bulan(1) = 31
bulan(2) = 28
bulan(3) = 31
bulan(4) = 30
bulan(5) = 31
bulan(6) = 30
bulan(7) = 31
bulan(8) = 31
bulan(9) = 30
bulan(10) = 31
bulan(11) = 30
bulan(12) = 31
PRINT “Masukkan Data Lahir Anda:”
INPUT “Tgl : “, tglA
INPUT “Bln : “, blnA
INPUT “Thn : “, thnA
tglB = 31
blnB = 12
thnB = 2006
IF (thnA MOD 400 = 0) OR ((thnA MOD 4 = 0) AND (thnA MOD 100 <> 0)) THEN
bulan(2) = 29
ELSE
bulan(2) = 28
END IF
jmlhari = 0
FOR i = blnA + 1 TO 12
jmlhari = jmlhari + bulan(i)
NEXT
jmlhari = jmlhari + bulan(blnA) – (tglA – 1)
FOR i = thnA + 1 TO thnB – 1
IF (i MOD 400 = 0) OR ((i MOD 4 = 0) AND (i MOD 100 <> 0)) THEN
jmlhari = jmlhari + 366
ELSE
jmlhari = jmlhari + 365
END IF
NEXT
IF (thnB MOD 400 = 0) OR ((thnB MOD 4 = 0) AND (thnB MOD 100 <> 0)) THEN
bulan(2) = 29
ELSE
bulan(2) = 28
END IF
FOR i = 1 TO blnB – 1
jmlhari = jmlhari + bulan(i)
NEXT
jmlhari = jmlhari + tglB
PRINT “Anda lahir pada hari : “;
DIM sisa AS INTEGER
sisa = jmlhari MOD 7
IF sisa = 0 THEN
PRINT “Senin”
ELSEIF sisa = 1 THEN
PRINT “Minggu”
ELSEIF sisa = 2 THEN
PRINT “Sabtu”
ELSEIF sisa = 3 THEN
PRINT “Jum’at”
ELSEIF sisa = 4 THEN
PRINT “Kamis”
ELSEIF sisa = 5 THEN
PRINT “Rabu”
ELSEIF sisa = 6 THEN
PRINT “Selasa”
END IF
46 tanggapan so far ↓
Vera Viji // Februari 19, 2007 pada 4:06 am |
nga ngerti SUMPAH!!!!!!!! bisa tolong di carikan nga hari lahir saya 13 november 1970 ? txs ..
wh // April 29, 2009 pada 1:24 am |
hari jumat bu –http://ankerzone.wordpress.com/2007/02/09/program-mencari-hari-lahir/
ankerzone // Februari 19, 2007 pada 7:00 am |
#1
Hehehe, nggak ngerti dimananya?
Anda tinggal copy script diatas, paste di Quick Basic, kemudian jalankan.
Masukkan Tgl = 13, Bln = 11, Thn = 1970, anda akan mendapatkan hasilnya.
Kalau anda belum / kurang paham tentang pemrograman, dijamin nggak bakal ngerti, hehe. Semoga bisa membantu.
Sugiyo // Maret 6, 2007 pada 2:24 pm |
Mang kalau blm tahu mang susah n sulit, tp ya tolong kasih tahu karena sdh coba2 tp blm dapet tuh……
Sergio Cibubur
ankerzone // Maret 7, 2007 pada 12:06 am |
#3
Aduh… cape deh..
Script diatas tinggal di salin aja, tp inget pake Quick Basic, jgn yang lain spt Pascal, C++, dll. Kalo udah, tinggal di Run deh.
Selamat mencoba.
gyno // September 29, 2007 pada 8:30 am |
tlg donk buatin program gudang, cthnya begini barang masuk dan barang keluar, setelah diinput barang masuk dan barang keluar trus stock ya masih ada juga keliatan gitu, thanks ya.
anker // September 29, 2007 pada 2:50 pm |
#gyno
waduh.. susah nih yg ginian.. itu proyek..
coba deh cari di google, mungkin ada yg gratisan..
maaf dulu ya
AI erni rusniawati // Februari 4, 2008 pada 3:37 am |
Tanggal: 05 oktober 1983
Bulan : Oktober
Tahun : 1983
wira // Februari 4, 2008 pada 5:17 am |
#AI erni rusniawati
Berhasil?
menkha // Februari 15, 2008 pada 10:40 am |
tgl lahir : 31
bln lahir :12
tahun lahir : 1979
menkha // Februari 15, 2008 pada 10:47 am |
tgl lahir : 31
bln lahir :12
tahun lahir : 1979
duh ng ngeti ….olong dwonkhari lahir g apa ya ? ada yg taukah ..?
thx
wira // Februari 20, 2008 pada 6:10 am |
#menkha
ini program mencari hari lahir, program saya posting untuk dipelajari, bukan benar2 untuk mencari hari lahir.
Kalau ingin benar2 mencari hari lahir, gampang aja, tinggal lihat kalender kan?
Hendra // April 2, 2008 pada 3:17 pm |
duh sob…kbetulan di komp gw ga ad progaram quick basic…
tp plis cariin y…!plis bngt…!
maslah warisan juga neh….!
Tnggal : 30
Bulan : Maret
Tahun : 1990
plis bangt y….!
wira // April 3, 2008 pada 3:29 am |
#Hendra
waduh maaf bgt, punya saya juga udah nggak ada
anindya kusumaningrum // Mei 8, 2008 pada 12:08 pm |
tgl:18
bln:2
thn:1971
yosep setia // Mei 21, 2008 pada 4:14 am |
saya lagi bingung neeh sebenarnya hari lahirku jumat apa minggu ya tanggal 5 september 1975 itu plz cari tahu
wira // Mei 29, 2008 pada 12:44 am |
#anindya
18-2-1971 = kamis
#yosep
5-9-1975 = jumat
linus // Juni 7, 2008 pada 2:22 pm |
tolong di carikan hari lahir aku
30_5-64
Lily // Juni 21, 2008 pada 11:42 am |
tolong carikan hari lahir : 1 agustus 1969
Lily // Juni 21, 2008 pada 11:44 am |
tolong carikan hari lahir : 1 agustus 1969
gunawan // Juli 19, 2008 pada 3:42 pm |
cara mudah cari hari lahir: buka control panel, klik Date and Time, ubah tanggal sesuai keinginan. ketemu dech arinya.
wira // Juli 21, 2008 pada 4:54 am |
#gunawan
yang di windows cuma sampai tahun 1980
coba pakai kalender di handphone
#linus, #lily
coba pakai excel
Ariesentik // Oktober 30, 2008 pada 4:52 am |
tgl 19 maret 1979 jatuh pada hari apa???
wira // Oktober 31, 2008 pada 2:26 am |
#Ariesentik
coba gunakan excel atau calender di handphone ya
Sutrisno // Desember 22, 2008 pada 4:30 am |
Mantap mas.. triknya…
Anda bisa mengimplementasikannya di Microsoft Word .. Coba buka
welly // Februari 3, 2009 pada 11:29 am |
pake handphone aja tuh
kelar dah
Agung // Februari 21, 2009 pada 8:55 am |
Coba download software buatanku, dibuat pake Visual Basic
http://www.ziddu.com/downloadlink/3588992/WetonProgramver5.0.0.exe.zip
Faizal // Maret 3, 2009 pada 5:11 am |
Bisa mnta tlng carikan hari lahir sma jenisnx kyk pon, wage, kliwon, dll..
tglnx 14 september 1987
mkasie..!!
Khrisna // Maret 10, 2009 pada 7:13 am |
wah keren mas,
andai aku bisa jadi programer….
masalahnya aku nol besar untuk kode-kode macam gitu
tapi kalo tentang “mencari tanggal lahir dan hari lahir”, Insya Allah dikit-dikit aku bisa bantu rekan2 yang membutuhkan.
biasanya sih bagi orang jawa banyak yang membutuhkah hari lahir dan pasaran-nya,
silahkan berkunjung di http://www.kampungjawa.co.cc
baca-baca, tulis tanggal lahir anda dikolom komentar (aku belum punya tempat khusus sih) dan… tunggu jawaban dari aku
(numpang promosi mas),
buat “Masternya Blog Mirror” trimakasih sebelumnya.
dadank // Juli 2, 2009 pada 6:44 am |
tolong bantuin dong
aku justru nggak ngerti tanggal lahir umum,maklum aku wong kampung banget .yg saya tahu cuma penanggalan jawa.kata bapak aku lahir dihari kamis legi,bulan jumadilakhir th 1969.
atas bantuanya terimakasih.
muhimah // Juli 16, 2009 pada 5:16 am |
hari apa lahir klo tanggal 2 maret 1979 lahi?
muhimah // Juli 16, 2009 pada 5:16 am |
Bisa mnta tlng carikan hari lahir sma jenisnx kyk pon, wage, kliwon, dll..
tglnx 02 Maret 1979
mkasie..!!
wira // Agustus 24, 2009 pada 3:05 am |
@semua : makasi atas kunjungan dan komentar anda, mohon maaf saya belum bisa menanggapi satu persatu
Fancy // September 10, 2009 pada 5:03 am |
Tgl : 05
Bln : 12
Thn : 1961
Fancy // September 10, 2009 pada 5:06 am |
Tgl : 05
Bln : 12
Thn : 1961
Boleh minta tolong carikan Lahir hari apa ?
dan jawabannya mohon kirimkan ke : fancy@cbn.net.id
Atas perhatiannya terima kasih terlebih dulu.
Fancy Winardi
erwin // Oktober 7, 2009 pada 4:41 pm |
Wah..
minta yang buat pascal atau yang C# deh,,
quick basic ga belajar,,
paling juga VB..
heu
sandi // Oktober 10, 2009 pada 9:25 am |
tanggal lahir mama ku 17 Juni 1941, hari lahirnya apa ya..? thq
http://purwalodra.com // November 19, 2009 pada 10:50 am |
Ada yg dah jd programnya nggak ya ? sy mau coba sendiri.
hany // November 20, 2009 pada 6:47 am |
aq mnta tlong criin hari lahir+psaran jwa y,.
6 Me1 1988
sigit // November 25, 2009 pada 12:48 pm |
pak tau bu aq minta tolong ya plis banget
weton aq kamis legi tapi ortu q lupa tanggal kelahirannya q
aq lahir di tahun 1984
kalau di tahun 1984 tu yang kamis legi tu ada berapa ya.
sigit // November 25, 2009 pada 12:49 pm |
n pada tanggal berapa aja n bulan apa aja ……
trimks sebelumnya
heryanti // Desember 6, 2009 pada 3:50 am |
Tolong cariin hari lahir sy dong di komp ga ada prog quick basic n blm belajar juga hehe please bgt yah
heryanti // Desember 6, 2009 pada 3:58 am |
Tolong bgt ya mas please q lahir tgl 8 oktober 1973 trims
lia // Desember 7, 2009 pada 8:40 am |
tolong dung d cariin hari kelahiran aq…21 oktober 1984…makasih ya
lia // Desember 7, 2009 pada 8:41 am |
tolong dung d cariin hari lahirq,…
10 oktober 1984
mksih ya
Mindo Trimeilina // Desember 9, 2009 pada 7:31 am |
saya udah coba tp gak bs tlg bantu dong saya mau tau tgl 27 april 1976 itu hari apa?????????