تبلیغات
پروژه های رایگان برنامه نویسی و آموزش زبان C++ و C# - پروژه تبدیل تاریخ هجری شمسی به میلادی ( با تابعی جداگانه) در ++C
 
برنامه بدون خطا رویاست Program is impossible without an error
پروژه های رایگان برنامه نویسی و آموزش زبان C++ و C#
صفحه نخست         تماس با مدیر         پست الکترونیک        RSS         ATOM
 
 

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

این سورس خیلی دقیق عمل می کند ولی در بعضی مواقع 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، 
برچسب ها :
لینک های مرتبط :


پنجشنبه 15 آذر 1397 04:18 قبل از ظهر

Nicely put. Appreciate it!
cialis online viagra vs cialis are there generic cialis cialis prices cialis for sale in europa link for you cialis price cialis 30 day sample cialis tablets 200 cialis coupon cialis 05
چهارشنبه 14 آذر 1397 10:45 قبل از ظهر

You actually mentioned it perfectly.
cialis diario compra generic cialis review uk order a sample of cialis price cialis per pill cialis super acti when can i take another cialis cialis pills price each acquisto online cialis precios cialis peru cialis 100 mg 30 tablet
سه شنبه 13 آذر 1397 11:17 بعد از ظهر

Cheers. Quite a lot of advice!

free cialis tadalafil 20mg cialis 200 dollar savings card cialis with 2 days delivery cialis 30 day trial coupon low dose cialis blood pressure cialis daily cialis generika cialis en mexico precio cialis cipla best buy
سه شنبه 13 آذر 1397 12:20 بعد از ظهر

You said it very well.!
cialis ahumada cialis generico milano side effects for cialis brand cialis generic cialis 5mg billiger generic cialis at walmart cialis tadalafil cialis super kamagra cialis soft tabs for sale wow look it cialis mexico
دوشنبه 12 آذر 1397 11:48 قبل از ظهر

Nicely put. Thank you!
overnight cialis tadalafil online cialis usa cialis online safe dosage for cialis cilas cialis prices cialis rezeptfrei cialis generique 5 mg cialis generisches kanada the best choice cialis woman
دوشنبه 12 آذر 1397 12:25 قبل از ظهر

Nicely spoken genuinely! !
dosagem ideal cialis cialis generika cialis patentablauf in deutschland wow cialis tadalafil 100mg enter site 20 mg cialis cost the best choice cialis woman cialis 10mg prix pharmaci prix de cialis cialis alternative we recommend cheapest cialis
یکشنبه 11 آذر 1397 11:15 قبل از ظهر

Wonderful content. Cheers.
pastillas cialis y alcoho buy cialis online cheapest viagra cialis levitra import cialis recommended site cialis kanada only now cialis 20 mg buying cialis on internet wow cialis tadalafil 100mg cialis name brand cheap cheap cialis
شنبه 10 آذر 1397 11:09 قبل از ظهر

Seriously loads of valuable data!
tadalafil generic canada discount drugs cialis callus acquistare cialis internet online cialis prezzo di cialis in bulgaria dose size of cialis look here cialis order on line how does cialis work buy cialis cheap 10 mg
جمعه 9 آذر 1397 11:52 بعد از ظهر

Nicely put. With thanks.
cialis generic availability cialis dosage recommendations price cialis best il cialis quanto costa viagra vs cialis vs levitra click here take cialis we use it cialis online store cialis 5 mg funziona cialis without a doctor's prescription achat cialis en itali
جمعه 9 آذر 1397 12:16 بعد از ظهر

Fantastic material. Kudos!
cialis 5 mg funziona cialis side effects price cialis wal mart pharmacy cialis kaufen venta de cialis canada safe site to buy cialis online cialis online order cialis from india we use it cialis online store cialis without a doctor's prescription
پنجشنبه 8 آذر 1397 01:27 بعد از ظهر

Nicely put, Thanks a lot.
i recommend cialis generico how much does a cialis cost cialis canada non 5 mg cialis generici cialis canadian drugs enter site 20 mg cialis cost costo in farmacia cialis we choice cialis pfizer india canada discount drugs cialis look here cialis cheap canada
پنجشنبه 8 آذر 1397 01:05 قبل از ظهر

Good write ups, Thanks!
generic cialis 20mg uk cialis et insomni price cialis per pill achat cialis en itali cialis cipla best buy cipla cialis online what is cialis canadian discount cialis order cialis from india american pharmacy cialis
چهارشنبه 7 آذر 1397 12:43 بعد از ظهر

You actually said that fantastically!
click here take cialis fast cialis online side effects for cialis cialis kaufen bankberweisung buying cialis on internet cialis daily new zealand cialis manufacturer coupon cialis daily reviews prices for cialis 50mg deutschland cialis online
چهارشنبه 7 آذر 1397 12:40 قبل از ظهر

With thanks, Lots of data.

interactions for cialis venta cialis en espaa cost of cialis per pill non 5 mg cialis generici wow cialis tadalafil 100mg we choice free trial of cialis buy cialis online cheapest tadalafil 20 mg cialis uk cialis dose 30mg
پنجشنبه 19 مهر 1397 01:15 قبل از ظهر

You actually expressed that effectively!
levitra 20mg levitra 20mg cheap 20mg levitra buy levitra buy 10 mg levitra buy levitra 20 mg vardenafil levitra generic levitra generic levitra
سه شنبه 10 مهر 1397 01:08 قبل از ظهر

This is nicely said! !
compare prices cialis uk cialis kaufen bankberweisung cialis sans ordonnance cialis dose 30mg cialis generico online only now cialis 20 mg venta de cialis canada where cheapest cialis cialis 20mg cialis official site
شنبه 31 شهریور 1397 02:31 بعد از ظهر

Cheers, Very good stuff.
canada viagra Northwest Pharmacy canada vagra buy viagra online usa canadian pharmacy canada medications information northwest pharmacies buy viagra usa canada online pharmacy canadian mail order pharmacies
پنجشنبه 15 شهریور 1397 01:05 قبل از ظهر

Nicely put. With thanks.
cialis super kamagra rx cialis para comprar cialis canada cialis kamagra levitra tadalafil 20mg cialis alternative cialis price thailand cialis in sconto buy cialis online cialis for sale south africa
سه شنبه 13 شهریور 1397 05:15 بعد از ظهر

Regards. Quite a lot of postings.

canadian drug store trust pharmacy of canada online pharmacies tech school canada medications information canadian pharmacies stendra canadian pharmacy uk delivery online pharmacy canada canadian pharmaceuticals nafta is trust pharmacy in canada legitimate is trust pharmacy in canada legitimate
دوشنبه 12 شهریور 1397 07:02 بعد از ظهر

You actually reported this really well!
generic cialis 20mg tablets cialis 30 day sample generic cialis soft gels cipla cialis online trusted tabled cialis softabs look here cialis cheap canada canada discount drugs cialis cialis en 24 hora price cialis per pill cialis efficacit
یکشنبه 11 شهریور 1397 11:43 قبل از ظهر

You've made your point extremely well!!
cialis ahumada cialis australia org if a woman takes a mans cialis acheter cialis meilleur pri cialis kaufen i recommend cialis generico buy generic cialis if a woman takes a mans cialis cialis manufacturer coupon does cialis cause gout
سه شنبه 23 مرداد 1397 02:40 قبل از ظهر

Nicely put. Regards!
buy viagra without prescription online buy viagra cheap uk generic viagra online uk where can i get viagra prescription buy viagra china purchase of viagra buy generic viagra online canada to buy viagra lowest price viagra where yo buy viagra
دوشنبه 7 خرداد 1397 01:44 قبل از ظهر

Truly all kinds of superb information!
5 mg cialis coupon printable cialis tablets for sale cialis daily reviews american pharmacy cialis trusted tabled cialis softabs cialis cost cialis online effetti del cialis we choice cialis pfizer india cialis super kamagra
سه شنبه 4 اردیبهشت 1397 02:12 قبل از ظهر

You made the point!
order viagra online cheap buying viagra without a prescription where buy viagra is it safe to buy viagra online buy viagra internet can i buy viagra over the counter getting viagra where to buy generic viagra online buy tadalafil buy viagra online online
جمعه 17 فروردین 1397 06:04 بعد از ظهر

You actually expressed it wonderfully.
cialis soft tabs for sale cialis canada cialis et insomni cialis sicuro in linea how much does a cialis cost only best offers cialis use cialis alternative 5 mg cialis coupon printable cialis super acti cialis dosage amounts
جمعه 3 فروردین 1397 01:39 بعد از ظهر

Very good material. Regards.
click now cialis from canada where do you buy cialis best generic drugs cialis cialis 200 dollar savings card cialis alternative ou trouver cialis sur le net tadalafil generic best generic drugs cialis cialis arginine interactio we choice cialis uk
یکشنبه 27 اسفند 1396 08:58 بعد از ظهر

You actually explained that well.
we choice cialis pfizer india how do cialis pills work we recommend cialis info cialis en mexico precio can i take cialis and ecstasy import cialis sialis cialis 5 mg para diabeticos cialis tablets australia costo in farmacia cialis
دوشنبه 13 آذر 1396 05:34 بعد از ظهر
آیا من فکر می کنم اگر چند مقالات خود را نقل قول کنم
تا زمانی که من اعتبار و منابع را به صفحه وب شما ارائه کنم؟
وبلاگ من در همان منطقه مورد علاقه است به عنوان شما و بازدید کنندگان من واقعا از بسیاری از بهره مند شوند
اطلاعاتی که اینجا ارائه می کنید لطفا اجازه دهید من می دانم اگر این خوب با شما.
خیلی ممنون
جمعه 13 مرداد 1396 08:08 قبل از ظهر
Hi there everyone, it's my first visit at this web site, and
paragraph is in fact fruitful in favor of me, keep up
posting these articles.
سه شنبه 10 مرداد 1396 01:58 بعد از ظهر
Pretty great post. I simply stumbled upon your weblog and wished to mention that I've truly loved browsing your weblog posts.
After all I'll be subscribing on your feed and I am hoping you write once
more soon!
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر


نمایش نظرات 1 تا 30
درباره وبلاگ

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

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

مدیر وبلاگ : سجاد سلطانی
مطالب اخیر
نویسندگان
جستجو

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














free counters