12-19-2013، 12:51 PM
(08-04-2013، 12:59 PM)omid_student نوشته: درود دوستان
سورس کد تبدیل سال میلادی به شمسی رو براتون گذاشتم intDay = DateTime.GetDayOfMonth(DateTime.Now)
intMonth = DateTime.GetMonth(DateTime.Now)
intYear = DateTime.GetYear(DateTime.Now)
strDate = intYear & "/" & intMonth & "/" & intDay
Dim pd As Date_Persian
pd.Initialize
( strDate = pd.Miladi2Shamsi(strDateدوستان اگه مشکلی داشتین بگین تا کمک کنم
میتونید به ایمیل هم پیام بفرستید تا کمکتون کنم
omid_student@yahoo.com