Imports System.Globalization
Sub GetDateTime()
Dim pcal As PersianCalendar
pcal = New PersianCalendar
tbDATE.Text = Convert.ToString(pcal.GetYear(DateTime.Tod ay))
tbDATE.Text += "/"
tbDATE.Text += Convert.ToString(pcal.GetMonth(DateTime.To day))
tbDATE.Text += "/"
tbDATE.Text += Convert.ToString(pcal.GetDayOfMonth(DateTi me.Today))
tbTIME.Text = Convert.ToString(pcal.GetHour(Now)) ;
tbTIME.Text += " : "
tbTIME.Text += Convert.ToString(pcal.GetMinute(Now)&# 41;
End Sub
:mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: