txtDate.value=Date

Function bntCalc_onclick()
  Dim born
  born = CDate(txtBirthDay.value)
  If chkAges.getValue(1)=True Then
    txtDays.value=DateDiff("d",born,Date)
  End If
  If chkAges.getValue(2)=True Then
    txtMonths.value=DateDiff("m",born,Date)
  End If
  If chkAges.getValue(3)=True Then
    txtYears.value=DateDiff("yyyy",born,Date)
    End If
End Function

Function bntClear_onclick()
  Form1.reset()
  txtDate.value=Date()
End Function