Dibawah ini contoh program atau algoritma yang bisa kita gunakan untuk mencari hari lahir atau kelahiran. Program mencari hari lahir ini saya buat sekitar tahun 2005 dan merupakan contoh algoritma pemrograman saja. Awalnya artikel ini saya publish di blog saya yang lama di wordpress kemudian saya publish ulang di sini untuk lebih mudah menyebarluaskan kembali.
Program mencari hari lahir atau kelahiran ini saya buat menggunakan program Quick Basic dan bisa saja dibuat dengan bahasa pemrograman lain dengan tetap menggunakan algoritma seperti disini. Oya, program mencari hari lahir ini memerlukan 3 buah input yaitu : tanggal lahir, bulan lahir dan tahun lahir. Inputan yang valid adalah tahun 2005 ke bawah. Program kemudian akan menghitung dan menampilkan output berupa hari lahir yaitu Senin atau Selasa atau Rabu dan seterusnya.
Berikut ini script program mencari hari lahir menggunakan Quick Basic.
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) = 31PRINT “Masukkan Data Lahir Anda:”
INPUT “Tgl : “, tglA
INPUT “Bln : “, blnA
INPUT “Thn : “, thnAtglB = 31
blnB = 12
thnB = 2006IF (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
NEXTIF (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 + tglBPRINT “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
Demikian, semoga program mencari hari lahir ini dapat bermanfaat khususnya bagi mahasiswa atau siswa yang belajar algoritma dan pemrograman.
Mbk tolong cariin dong hari apa 11-7-1967
Mba tolong donk tanggal 06 – 04 – 1978
Hari minggu. Hari Minggu apa ?
Tolong jawab ya mba
Tanggal lahir 17 agustus 1972…hari apa y mbak,,,?
Mba hari apa lahir jika tahun 1983 bulan junk tgl 11?