Tanyalah hati dulu sebelum menulis. Ingatlah, apa yang kita tulis itu bakal menjadi saksi di akhirat kelak, kerana di sana kita akan dinilai di hadapan Allah mengenai apa yang kita tulis itu.

Iklan

Iklan

Monday, April 20, 2009

How old are you?

Public Function GetAge(ByVal Birthdate As System.DateTime, _
Optional ByVal AsOf As System.DateTime = #1/1/1700#) _
As String

'Don't set second parameter if you want Age as of today

'Demo 1: get age of person born 2/11/1954
'Dim objDate As New System.DateTime(1954, 2, 11)
'Debug.WriteLine(GetAge(objDate))

'Demo 1: get same person's age 10 years from now
'Dim objDate As New System.DateTime(1954, 2, 11)
'Dim objdate2 As System.DateTime
'objdate2 = Now.AddYears(10)
'Debug.WriteLine(GetAge(objDate, objdate2))

Dim iMonths As Integer
Dim iYears As Integer
Dim dYears As Decimal
Dim lDayOfBirth As Long
Dim lAsOf As Long
Dim iBirthMonth As Integer
Dim iAsOFMonth As Integer

If AsOf = "#1/1/1700#" Then
AsOf = DateTime.Now
End If
lDayOfBirth = DatePart(DateInterval.Day, Birthdate)
lAsOf = DatePart(DateInterval.Day, AsOf)

iBirthMonth = DatePart(DateInterval.Month, Birthdate)
iAsOFMonth = DatePart(DateInterval.Month, AsOf)

iMonths = DateDiff(DateInterval.Month, Birthdate, AsOf)

dYears = iMonths / 12

iYears = Math.Floor(dYears)

If iBirthMonth = iAsOFMonth Then
If lAsOf < lDayOfBirth Then
iYears = iYears - 1
End If
End If

Return iYears
End Function

Kena convert ni jadik coding.. nak kira umur hidupan liar kat zoo...

3 comments:

  1. wah..nice pic..
    kenal aku x?
    alan..
    tukang ambik gambar
    wedding pian 4 hb ari tu

    ReplyDelete
  2. alan: kenal2.. to be more accurate.. ingat2..

    senah: i dont ask u.. :P

    ReplyDelete

Related Posts Plugin for WordPress, Blogger...