Download the 30 day trial version of Time2HELP now.
{:This is a nice routine. @cat StringHandling @cat DateHandling} Function CalculateDay(const i_name: String; const i_date: TDateTime): TDateTime; Begin ... End;