Program Mencari Hari Lahir / Kelahiran

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) = 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

Demikian, semoga program mencari hari lahir ini dapat bermanfaat khususnya bagi mahasiswa atau siswa yang belajar algoritma dan pemrograman.

Baca Juga:

  • Tidak ada artikel terkait

Wirautama

Wira, seorang dosen komputer di STP Nusa Dua, Bali. Lahir dan hingga kini tinggal di Kerobokan, sebuah tempat yang tak jauh dari kampung turis mancanegara, Kuta-Bali. Ngeblog sebagai hobi dan sekedar pelepas penat.

2 thoughts on “Program Mencari Hari Lahir / Kelahiran

Leave a Reply

Your email address will not be published. Required fields are marked *