Some functions return dates in single units (1st May 1996 maybe returned as 5-1-96). This makes formatting difficult whereyou have dates like 5-1-96 and 12-15-96 on the same column.

The function below returns a string preceded by “0”if the length of the string is less than two. If “5”is passed to the function, it returns a “05.” Passing”15″ to the function returns “15”:

 Function cto2d (u As String) As String        If Len(u) < 2 Then                cto2d = "0" & u        Else                cto2d = u        End IfEnd Function