Cara Mencari Tanggal Lahir Di Visual Foxpro

        Hay kawan pada kesempatan kali ini saya akan membahas tentang bagaimana cara untuk mencari tanggal lahir anda dengan menggunakan Visual Foxpro.

Caranya sangat mudah.

1. Tulis seperti gambar dibawah ini.(jangan lupa tempat anda menyimpan file tersebut.)

2.Jika sudah muncul, tulislah Coding dibawah ini :

*!*   program terkait tanggal

SET DATE BRITISH

SET CENTURY on

CLEAR

DO WHILE .T.

      tanggal=CTOD("   /  /    ") && tangal

      @10, 5 say "MENCARI HARI DALAM TANGGAL"

      @11, 5 SAY "---------------------------"

      @12, 5 SAY " tanggal=" get tanggal

      READ

      clear

      IF EMPTY(tanggal)

            EXIT

      ENDIF

      *mencari hari

      nhari=DOW(TANGGAL) && TANGGAL

      DO CASE

      CASE nhari=1

            hari="minggu"

      CASE nhari=2

            hari="senin"

      CASE nhari=3

            hari="selasa"

      CASE nhari=4

            hari="rabu"

      CASE nhari=5

            hari="kamis"

      CASE nhari=6

            hari="jumat"

      CASE nhari=7

            hari="sabtu"

ENDCASE

*mencari bulan

nbulan=MONTH(tanggal) && angka bulan

DO CASE

CASE        nbulan=1

            bulan="Januari"

 CASE nbulan=2

            bulan="februari"

 CASE nbulan=3

            bulan="Maret"

 CASE nbulan=4

            bulan="April"

 CASE nbulan=5

            bulan="Mei"

 CASE nbulan=6

            bulan="Juni"

 CASE nbulan=7

            bulan="Juli"

 CASE nbulan=8

            bulan="Agustus"

 CASE nbulan=9

            bulan="September"

 CASE nbulan=10

            bulan="Oktober"

 CASE nbulan=11

            bulan="November"

 CASE nbulan=12

            bulan="Desember"

ENDCASE

@14, 5 say " Hari = "+hari+", "+ALLTRIM(STR(DAY(tanggal)))+" "+bulan+" "+ALLTRIM(STR(YEAR(tanggal)))

ENDDO

WAIT WINDOW "Program Selesai" AT 15,80

3. Simpan dan jalankan ( Ctrl+E)

4.SELESAI.

SEMOGA BERMANFAAT........!!!!!!!!!!!!