Date Format in dd/MM/yyyy Format in VB.Net

Dim x, y, z As Int16

dtt = Format(

Date.Today, "dd/MM/yyyy")

x = dtt.Substring(6, 4)

y = dtt.Substring(3, 2)

z = dtt.Substring(0, 2)

dtt =

""

dtt = y &

"/" & z & "/" & x

lbldate.Text = lbldate.Text + Format(

Date.Today, "dd/MM/yyyy")