[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
 

[omid_student]

درود فایل ناقص است

 

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


 

[omid_student]

درود فایل ناقص است



 

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


 


 

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

 

آخه عزیز من فایل b4a کجا بود؟
شما باید این فایل را توی پروژتون لود کنی
بعد یه متغیر از اون کلاس تعریف و تاریخ میلادی رو بفرستین بعد نتیجه
کاره خاصی نداره

 

[mohammad-alone]

آقا دستتون طلا !
شما فقط ارائه نمایید مسئول یاد دادن به بقیه ای ه درست آموزش ها رو دنبال نمی نمایند نیستید !

[fonon]

سلام این کتابخانه برای همین کار است :

لینک دانلود کتابخانه

سمپل کتابخانه


 

[digitalman]

درود دوستان
سورس کد تبدیل سال میلادی به شمسی رو براتون گذاشتم 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
 

 

[_Sahar]

سلام
ممنون از سورسی که گذاشته بودین
این سورس برای تبدیل تاریخ میلادی به شمسی هست، حالا اگه من خواسته باشم تقویم فارسی رو نشون بدم از چی باید استفاده کنم
 

 

[Amin_Mansouri]

باید برنامشو بنویسی
اما فکر کنم کامپونت امادش باشه