Sub fullmydate() Dim mydate As String = String.Empty Dim calender As PersianCalendar mydate = calender.GetYear(DateTime.Now).ToString() + @"/" + calender.GetMonth(DateTime.Now).ToString() + @"/" + calender.GetDayOfMonth(DateTime.Now).ToString() Return mydate End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)