Question

I am trying to format a date to a specific string and the code is returning incorect outcome.

CDate(RDate).ToString("ddMMy")

is returning the year as 2 digits is there a way to make it return the correct just last digit ? I know that I could substring to get the result but I would like to use a format string to allow customer to create their own.

Answer 1

Just glue them together with String.Format():

    Dim dt = CDate(RDate)
    Dim s = String.Format("{0}{1}", dt.ToString("ddMM"), dt.Year Mod 10)