this is the most simplest way, you can do for user defined date formate and date addition and subtration
msgbox Day(Date)&"/"&Month(Date)&"/"&Year(Date)
msgbox...