پروژه های رایگان برنامه نویسی و آموزش زبان C++ و C#
برنامه بدون خطا رویاست Program is impossible without an error
درباره وبلاگ


انجام پروژه های برنامه نویسی سی و سی پلاس پلاس و سی شارپ

انجام پروژه های الکترونیکی و رباتیکی

مدیر وبلاگ : سجاد سلطانی
مطالب اخیر
نویسندگان
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :














free counters

سلام این سورس تبدیل تاریخ شمسی به میلادی می باشد که با تابعی جدا گانه نوشته شده است که تبدیل رو انجام می دهد .

این سورس خیلی دقیق عمل می کند ولی در بعضی مواقع 1 روز جلو یا عقب می شود .

 

لطفا نظر بدهید

 

 

#include <iostream.h>
#include <conio.h>


#define yy 621
#define mm 3
#define dd -9

void convert(int,int,int,int*,int*,int*);

main()
{
 int y,m,d,ly,lm,ld;
 clrscr();

 cout<<"\n This is Lunar based calendar convertor to AD ";
 cout<<"\n\n Enter a year :";
 cin>>y;
 cout<<"\n Enter a month :";
 cin>>m;
 cout<<"\n Enter a day :";
 cin>>d;

 convert(y,m,d,&ly,&lm,&ld);

 cout<<"\n\n date miladi = "<<ly<<"\\"<<lm<<"\\"<<ld;
 getch();
}
void convert(int y,int m,int d,int*ly,int*lm,int*ld){
 int lyy,ldd,lmm;

 lyy=y+yy;
 lmm=m+mm;
 ldd=d+dd;

 if (ldd > 30){
  ldd = ldd - 30;
  lmm = lmm + 1;
 }
 if (ldd < 1){
  ldd = ldd + 30;
  lmm = lmm -1;
 }
 if (lmm > 12){
  lmm = lmm - 12;
  lyy = lyy + 1;
 }
 if (lmm < 1){
  lmm = lmm + 12;
  lyy = lyy - 1;
 }
 *ly=lyy;
 *ld=ldd;
 *lm=lmm;


}





نوع مطلب : پروژه های برنامه نویسی ++C، 
برچسب ها :
لینک های مرتبط :

       نظرات
چهارشنبه 4 آذر 1388
سجاد سلطانی
دوشنبه 7 مرداد 1398 01:57 قبل از ظهر

Beneficial advice. Thanks!
canada pharmacies canada medication cost canadian discount pharmacies in canada online pharmacies of canada canada drugs aarp recommended canadian pharmacies canadian pharmacy canadian drugstore most reliable canadian pharmacies pharmacy canada 24
دوشنبه 3 تیر 1398 05:45 قبل از ظهر

Nicely put, Kudos!
viagra vs cialis vs levitra side effects for cialis cialis para que sirve buy name brand cialis on line cialis with 2 days delivery chinese cialis 50 mg prix cialis once a da cialis great britain cialis prices in england cialis prezzo al pubblico
یکشنبه 2 تیر 1398 01:46 بعد از ظهر

Nicely put, With thanks.
buying brand cialis online viagra cialis levitra weblink price cialis dose size of cialis tadalafil 20 mg when can i take another cialis generic cialis 20mg uk tadalafil 20mg tadalafil tablets only now cialis 20 mg
شنبه 1 تیر 1398 11:08 بعد از ظهر

Superb info. Appreciate it.
cialis online nederland cialis uk enter site 20 mg cialis cost we like it safe cheap cialis how do cialis pills work where do you buy cialis usa cialis online fast cialis online ou trouver cialis sur le net usa cialis online
جمعه 31 خرداد 1398 02:25 بعد از ظهر

Reliable tips. Cheers.
generic low dose cialis link for you cialis price how much does a cialis cost cialis cuantos mg hay il cialis quanto costa prezzo cialis a buon mercato cialis 05 generic cialis in vietnam cialis 5 effetti collaterali tadalafilo
پنجشنبه 30 خرداد 1398 09:52 بعد از ظهر

You actually expressed it really well!
online cialis cialis 5 mg buy how do cialis pills work cialis official site canadian drugs generic cialis cialis en mexico precio cialis 20mg acheter cialis kamagra cialis generika tadalafil 5mg
پنجشنبه 30 خرداد 1398 03:03 قبل از ظهر

Very good posts. Many thanks!
cialis italia gratis canadian drugs generic cialis cost of cialis per pill effetti del cialis we recommend cialis best buy cialis generic we choice cialis uk buying cialis overnight cialis pills price each cialis rckenschmerzen
چهارشنبه 29 خرداد 1398 10:47 قبل از ظهر

Fantastic facts. Thanks!
cialis wir preise where to buy cialis in ontario buy cialis online legal achat cialis en itali online prescriptions cialis cialis sans ordonnance precios cialis peru acquistare cialis internet cialis kaufen cialis billig
یکشنبه 26 خرداد 1398 04:35 بعد از ظهر

You actually suggested it terrifically!
cialis from canada effetti del cialis cialis from canada buy cialis online cheapest cialis online holland cialis qualitat cialis en mexico precio cilas we recommend cialis info free cialis
یکشنبه 26 خرداد 1398 01:59 قبل از ظهر

Amazing tips. Appreciate it.
cialis taglich american pharmacy cialis cialis cuantos mg hay buy cialis cheap 10 mg 5 mg cialis pharmacie en ligne cialis tadalafil online dose size of cialis cialis from canada we choice cialis uk 5 mg cialis pharmacie en ligne
جمعه 24 خرداد 1398 09:47 بعد از ظهر

Regards, I enjoy it.
cialis side effects dangers opinioni cialis generico buy cialis cialis dosage recommendations cialis generisches kanada cialis farmacias guadalajara cialis sans ordonnance we like it cialis price generic cialis review uk buy cialis
پنجشنبه 23 خرداد 1398 03:46 قبل از ظهر

Thanks a lot. Plenty of information.

side effects of cialis cialis great britain achat cialis en itali how does cialis work cialis patent expiration cialis therapie cialis prices in england generic cialis levitra cialis generico milano buy original cialis
چهارشنبه 22 خرداد 1398 01:34 بعد از ظهر

Nicely put. Many thanks!
achat cialis en suisse cialis australia org cialis 20 mg effectiveness buy online cialis 5mg cialis flussig cialis savings card cialis generique side effects for cialis purchase once a day cialis buying cialis overnight
سه شنبه 21 خرداد 1398 10:25 قبل از ظهر

Kudos, I appreciate it!
when will generic cialis be available generic cialis pro compare prices cialis uk cialis 20mg generic cialis soft gels generic for cialis cialis dosage buy name brand cialis on line safe dosage for cialis cialis tadalafil
دوشنبه 20 خرداد 1398 05:27 قبل از ظهر

Wonderful facts. Thanks a lot.
cialis coupons buy cialis online cialis cuantos mg hay free cialis tadalafil 5mg we recommend cialis info side effects for cialis cialis 5 mg schweiz wow cialis tadalafil 100mg cialis 20 mg
شنبه 18 خرداد 1398 11:25 بعد از ظهر

With thanks! Plenty of knowledge!

enter site natural cialis cheap cialis cialis 5mg cialis 50 mg soft tab generic cialis at the pharmacy pastillas cialis y alcoho only now cialis for sale in us cialis generic availability tadalafil tablets venta de cialis canada
جمعه 17 خرداد 1398 05:36 بعد از ظهر

You definitely made your point!
prezzo di cialis in bulgaria cialis pas cher paris achat cialis en europe discount cialis only best offers cialis use venta cialis en espaa cialis for daily use tadalafil 10 mg cialis prices in england enter site natural cialis
چهارشنبه 21 فروردین 1398 12:24 بعد از ظهر

You actually explained that terrifically.
legitimate canadian mail order pharmacies canadian pharmacy world canadian pharmacy uk delivery good canadian online pharmacies drugs for sale deep web buy viagra online usa canadian pharmacy viagra drugs for sale in mexico north west pharmacies canada canadian prescription drugstore
دوشنبه 13 آذر 1396 06:34 بعد از ظهر
آیا من فکر می کنم اگر چند مقالات خود را نقل قول کنم
تا زمانی که من اعتبار و منابع را به صفحه وب شما ارائه کنم؟
وبلاگ من در همان منطقه مورد علاقه است به عنوان شما و بازدید کنندگان من واقعا از بسیاری از بهره مند شوند
اطلاعاتی که اینجا ارائه می کنید لطفا اجازه دهید من می دانم اگر این خوب با شما.
خیلی ممنون
جمعه 24 بهمن 1393 09:30 بعد از ظهر
خیلیییییییییییییییییییییییییی
ممنون عالییییییییی بوووووووووود
جمعه 3 آذر 1391 10:30 قبل از ظهر
dametoon garm
چهارشنبه 5 خرداد 1389 09:41 قبل از ظهر
خیلی ممنون
چهارشنبه 25 فروردین 1389 08:25 بعد از ظهر
salam. merc az vebloge kheili khobet .vaghean ke harf nadare vase ma daneshjohaye narmafzar . ye khaheshi daram azat inke sosrse moratab sazi dargi age mishe benevisid ke kheili ehtiaj darim behesh . tamame moratab saziha hast ella darji . mamnun
دوشنبه 16 فروردین 1389 06:58 بعد از ظهر
ایول دستت طلا
کلی دنیال این جوری توابع هستم
شنبه 7 آذر 1388 09:35 بعد از ظهر
شما را لینک کردم .

من را با نام فناوری روز لینک کنید .


www.fanavaryerooz.mihanblog.com
چهارشنبه 4 آذر 1388 07:30 قبل از ظهر
سلام وبلاگت خیلی جالب بود اگه خواستی لینکم کن بهم خبر بده منم لینکت کنم ، میدونی که لینک دادن چقدر تو آمار بازدید تاثیر داره !!!!
http://www.10ghadam.mihanblog.com
عنوانشم بزن: _$_آموزش پول دار شدن_$_
توضیهاتشم بنویس: 10قدم تا رسیدن به کسب درآمد عالی از اینترنت
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر


 
 
 
شبکه اجتماعی فارسی کلوب | Buy Website Traffic