(08-04-2013، 05:22 PM)'mhr74' نوشته: درود فایل ناقص است

 

(08-04-2013، 11:04 PM)'mhr74' نوشته:

(08-04-2013، 05:54 PM)'omid_student' نوشته:

(08-04-2013، 05:22 PM)'mhr74' نوشته: درود فایل ناقص است



 

دوست عزیز فایل ناقص نیست


 


 

من هم می دانم داخل این فایل سورس برنامه هست اما این کار درستی نیست که فایل برنامه ی B4A را حذف کردید
 

 

(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