Menghitung Umur

Beberapa waktu yang lalu saya berdiskusi dengan teman chatting di PTPN IX yang intinya membahas masalah bagaimana membuat script untuk menghitung umur seseorang diambil dari tanggal lahir sampai hari ini.

Inilah hasil dari diskusi itu, dibuat dengan Visual Foxpro, untuk bahasa yang lain silahkan sesuaikan sendiri.

***********************


* nTgl = variable tanggal lahir, ini bisa diambil langsung dari form, atau berupa parameter.
* silahkan tentukan sendiri


nDay = DAY(DATE()) - DAY(nTgl)
*****************
IF MONTH(DATE()) <= MONTH(nTgl)
  nThn = (YEAR(DATE())-YEAR(nTgl))-1
  nBln = MONTH(DATE())+12 - MONTH(nTgl)
ELSE 
  nThn = YEAR(DATE())-YEAR(nTgl)
      nBln = MONTH(DATE())-MONTH(nTgl)
ENDIF 
nDay = DAY(DATE()) - DAY(nTgl)
IF nDay < 0 
DO CASE 
CASE ALLTRIM(STR(MONTH(DATE())))$'1 3 5 7 8 10 12'
nDay = nDay + 31
CASE ALLTRIM(STR(MONTH(DATE())))$'4 6 9 11'
nDay = nDay + 30
CASE MONTH(DATE())=2 AND MOD(YEAR(DATE()),4)=0
nDay = nDay + 29
      OTHERWISE 
      nDay = nDay + 28
ENDCASE
nBln = nBln - 1
ENDIF
DO CASE 
CASE nBln < 0
nThn = nThn - 1
nBln = 0
CASE nBln = 12 
nThn = nThn + 1
nBln = 0
ENDCASE 

***********

* output dari program ini,
Semoga bermanfaat. Terimakasih mbak Tari atas diskusi ini.