' Listing 3: The fnDate Function

Private Function fnDate(tDate)
  Dim mDate, dDate, yDate
  mDate = Month(tDate)
  If Len(mDate) = 1 Then mDate = "0" & mDate
  dDate = Day(tDate)
  If Len(dDate) = 1 Then dDate = "0" & dDate
  yDate = Year(tDate)
  fnDate = mDate & "-" & dDate & "-" & yDate
  Set mDate = Nothing : Set dDate = Nothing
  Set yDate = Nothing
End Function