Program Mencari Hari Lahir

Ditulis oleh : imadewira

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

About these ads