• Home
 · 
• Math/Dates
 · 
• Easy to get your age, number of year(s), month(s) & day(s)

Easy to get your age, number of year(s), month(s) & day(s)

Easy to get your age, number of year(s), month(s) & day(s)

API Declarations


Please, once you test code and found any mistake, for god sake
email me on [email protected]



Rate Easy to get your age, number of year(s), month(s) & day(s)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Command button control
Private Sub cmdBirthday_Click()
    Dim d, m, y, d1, d2, tmp, Msg
    
    d2 = Format(Date, "dd/mm/yyyy")
    
    'User enter birthday
    d1 = Format(InputBox("Enter your birthday"), "dd/mm/yyyy")
    
    If Not IsDate(d1) Then
        MsgBox "Invalid date entry, try again"
        Exit Sub
    End If
    If DateValue(d1) >= DateValue(d2) Then
        MsgBox "Invalid date entry, try again"
        Exit Sub
    End If
    
    'Set number of year(s)
    y = DateDiff("yyyy", d1, d2)
    d1 = DateAdd("yyyy", y, d1)
    
    'Set number of month(s)
    m = DateDiff("m", d1, d2)
    d1 = DateAdd("m", m, d1)
    
    'Set number of day(s)
    d = DateDiff("d", d1, d2)
    
    'User get esults
    Msg = "Year(s) = " & y & vbNewLine _
        & "Month(s) = " & m & vbNewLine _
        & "Day(s) = " & d
        
    MsgBox Msg
End Sub