منابع

اعتراف می نمایم که پست های بنده در حد تجربی   و نه تئوریکالی و دانشگاهی است بنابراین تمامی اطلاعات به اشتراک گذاشته ۱۰ درصد تجربی بوده و حدود ۹۰ درصد آن از داکیومنت آفیس یا سایر فروم های خارجی استخراج شده لذا در صورت اشتباه در پاره ای از موارد ، اصلاح شده یا باصطلاح تست شده ی آن را در نظرها به اشتراک بگذارید تا سایرین نیز استفاده بنمایند.

موجودی انبارهای کالا در حین فروش

1;موجودی ;2;خرید;3; فروش ;4;برگشت از خرید;5; برگشت از فروش

برنامه ی اکسس با قیمت مناسب

برنامه ی اکسس با قیمت مناسب میخواهید ؟ 

مرجع کامل اکسس ۲۰۱۶ که در بازار موجوداست را تهیه کرده  و گام به گام با داکیومنت اکسس پیش بروید در کمتر از یکماه می توانید پروژه ی مناسب با نظر خودتان را بنویسید 

ماه قمری

لینکhttps://fararu.com/fa/news/401468/پاسخ-به-پرسش‌های-متداول-در-مورد-رویت-هلال-ماه

طبق گفته ها که ماه بعد با توجه به هلال ماه مشخص خواهد شد تبدیل قمری دقیق نیست 

آیا ماه رمضان همیشه ۲۹ روزه است؟

طول ماه‌های قمری در کشور‌های اسلامی بر اساس معیار‌های نجومی پیش‌بینی می‌شود و طول یک ماه در هر سال ارتباطی به سال‌های دیگر ندارد؛ بنابراین طول ماه رمضان می‌تواند مانند هر ماه دیگری ۲۹ یا ۳۰ روز باشد

آیا اگر ماه شعبان ۳۰ روزه باشد، ماه بعد (رمضان) ۲۹ روزه خواهد بود؟

خیر. مدت طول هر ماه مستقل از ماه قبل است. محاسبات نشان می‌دهد ۳ ماه قمری متوالی می‌توانند ۲۹ روزه و ۴ ماه قمری متوالی می‌توانند ۳۰ روزه باشند.

چرا با این‌که مقارنه ماه و خورشید اتفاق افتاده، هنوز اول ماه اعلام نشده است؟

از نظر معیار‌های تجربی، در بهترین وضعیت هم تا چندین ساعت بعد از مقارنه نیز امکان رویت هلال حتی با تلسکوپ وجود ندارد. ضمن آنکه مقارنه ماه و خورشید ملاک شرعی برای آغاز ماه قمری نیست.

آیا همیشه شروع ماه قمری (مثلا رمضان یا شوال) در ایران بعد از عربستان است؟

شروع ماه در هر نقطه‌ای بستگی به مشخصه‌های نجومی در آن کشور و البته ملاک شرعی فق‌های آنجا دارد؛ بنابراین ممکن است شروع ماه در ایران و عربستان یکی باشد (مثل ماه رمضان امسال)

تبدیل میلادی به قمری

گاهی محاسبات بهم میریزد مثل ۷ خرداد ۱۳۹۸ که باید ۲۳ رمضان باشد ولی ۲۲ رمضان میشود چون ماه قبلی ۳۰ روزه شده  ....  

آیتم اول را اگر به ترتیب از اولین ماه قمری که 30  هست و یک درمیان 29 میشود کم کنیم تا مانده از تعداد روزهای ماه کوچکتر شود عدد 23 حاصل میشود 

259−30−29−30−29−30−29−30−29=23 

در این مثال می توان در ماژول نوشت اگر سال ۱۴۴۰ شد جای تعداد روزهای ماه ۸ و ماه ۹ قمری جابجاشوند تا ۲۳ رمضان به ۲۲ رمضان تبدیل شود

510,192+1−1,440×354−528+354=259

508,161+1−1,434×354−526+355=355

508515+1-1435×354-526+354=354

495323+1-1398×354-513+355=274

506627+1-1430×354-524+354=237

506714+1-1430×354-524+354=325

506393+1-1429×354-524=4

508870+1-1436×354-527+355=355

506743+1-1430×354-524+354=354

505,326+1−1,426×354−523+355=355

در مثال های بالا

عدد اول اختلاف 19 جولای 622  شروع قمری و  تاریخ میلادی۱موردنظر است که به ترتیب 28 می 2019 ، 4  نوامبر 2013 ، 24 اکتبر 2014 ،11 سپتامبر  1978 ،23 اوت 2009 ، 18 نوامبر 2009 ، 1 ژانویه 2009 ، 14 اکتبر 2015 و 17 دسامبر 2009  ، 30 ژانویه 2006 می باشد

عدد دوم  : یک واحد به اختلاف اضافه می شو

 عدد سوم : حاصل ضرب 354 در ( تقسیم  جمع عدد اول و دوم

 (بر354  منهای یک است

عدد چهارم : تعداد کبیسه ی سپری شده تا عدد سوم است.

اگر عدد نهایی کوچکتر مساوی صفر شد اگر عدد سوم که سال است کبیسه بود با 355 اگر نه با 354 جمع میشود ، اگر عدد نهائی بزرگتر از صفر بود که یک واحد به سال اضافه میشود و ماه هم یک و یا بالاتر .

در جائی که عدد 354 یا 355 اضافه نشده یعنی عدد مثبت شده

لینک محاسباتhttps://keisan.casio.com/exec/system/1346122065   ذهنتون رو در گیر نکنید چون قمری هم قائده ی خاصی ندارد و دقیق ترین محاسبه باید نجومی باشد که  آنهم نمیشود مال چند 

سال دیگر را حدس زد

برای تبدیل شمسی به قمری تنها کافیه اختلاف تاریخ شمسی موردنظر تا تاریخ ۱/۱/۱ شمسی  را بدست آوردید و منهای ۱۱۹  

کنید  (  اختلاف ۲۷ تیر یک شمسی تا ۱ول  قمری ۱۱۹ است

فرضا اختلاف ۱ شمسی تا ۸ خرداد ۹۸ عدد ۵۱۰۳۱۲ عدد ۱۱۹ را که از آن کم کنیم میشود همان عدد ۵۱۰۱۹۳ و طبق مثال های بالا عمل 

میکنیم 

 : آرایه  

1 : 29 ,  2 : 59 , 3 : 89 , 4 : 118 , 5 : 148 , 6 : 177 , 7 : 207 

8 : 236 , 9 : 266 , 10 : 295 , 11 : 325 , 12 : 354 

اگر سال کبیس شد ماه آخر در آرایه یعنی ۱۲ به ۳۵۵ تغییر می یابد

: معادله

510,193+1−1,440×354−528+354=260

چون سال ۱۴۴۰ قمری محاسبات را بهم زد و فرضا بجای ۲۳ رمضان ۲۲ رمضان شد در نتیجه در بالا می توانیم ا عداد ۸ و ۹ را عوض  کنیم  ( آرایه ی بالا  ) در مورد ۲۶۰ در حالت عادی وقتی از ۲۳۶ کم می کنیم  عدد روز قمری ۲۴ در می آید که طبق تغییرات در ماه قبل رمضان این روز ۲۳ رمضان خواهد شد نتیجتا باید در ماژول بنویسیم اگر سال ۱۴۴۰ قمری شد عدد ۸ به۲۳۷ و عدد ۹ به۲۶۵ تغییر یابد که اگر بدین منوال اقدام شود اختلاف عدد ۲۶۰ بدست 

آمده و عدد۸ که  ۲۳۷ شده  ۲۳ می شود.

طبق تصویر پائین ماه های قمری ترتیب خاصی ندارد

کبیسه گیری قمری

گاه شمار قمریhttps://fa.m.wikipedia.org/wiki/گاه‌شماری_هجری_قمری 

 از شکافتن هسته ی اتم هم ساده تر است اگر تلاش کنید محتاج چون منی نخواهید بود ( امام خمینی ره )

قسمت گاه شماری هجری قمری قراردادی  جدول مربوطه ( رایج )

طبق رایج ... تعداد روزهای ماه های قمری یکی در میان ۲۹ یا ۳۰ روزه هستند و از ۲۹ روز شروع میشود اگر سال کبیسه بود ماه آخر بجای ۳۰ روزه ۲۹ روزه میشود  با Mod میشود تعداد روزهای ماه قمری را مشخص کرد در لوپی که مانده باید از روزهای قمری کم شود 

فرضا  i mod 2  اگر صفرشود ماه ۳۰ روزه واگر یک شود ماه ۲۹ روزه است 

تبدیل میلادی به قمری  :    ۲۶ می ۲۰۱۹ معادل ۵ خرداد ۹۸

اختلاف را با DateDiff اکسس میشود بدست آورد از ۱۹ جولای ۶۲۲ تا تاریخ میلادی درج شده .( روز اول در تابع DateDiff ثابت است ) 

که در اینجا اختلاف روزها  را ۵۱۰۱۹۰ نشان میدهد 

معادله البته اگر عدد منفی شد به سال بدست آمده اضافه نمیشود

سال را منهای یک کرده و در ۳۵۴ ضرب می کنیم تعداد کبیسه که اینجا ۵۲۸ است مربوط به یک قمری تا سال ۱۴۳۹ است ( ۳۵۴ جمع روزهای یکسال قمری در شرایط غیر کبیسه است )

۹۷-=۵۲۸-(۱۴۳۹×۳۵۴)-(۵۱۰۱۹۰-۳۵۳)

عدد منفی شده با ۳۵۳ جمع میکنیم ( عدد ۳۵۳ اختلاف روز یک قمری تا آخرماه همان سال است )

سال همان ۱۴۴۰ باقی می ماند 

عدد آخر ۲۵۶ بدست می آید 

از ماه اول قمری به همان شکل که گفته شد انقدر کم میکنیم تا از تعداد روز آن ماه کمتر یا مساوی باشد

۲۰=۲۵۶-۲۹-۳۰-۲۹-۳۰-۲۹-۳۰-۲۹-۳۰

خود تقویم  سال ۹۸ یکشنبه ۵ اردیبهشت ۹۸ را ۲۱ رمضان چاپ کرده

روش کبیسه گیری

 https://fa.m.wikipedia.org/wiki/گاه‌شماری_رسمی_ایران 

از قائده ی خاصی پیروی نمیکند  لیست زیر طبق جدول لینک بالا از سال ۴ تا سال ۱۴۷۳ می باشد ، بعد از هر عدد یک کبیسه ی پنج ساله است و بعد از آن تا شروع عدد بعدی هر چهار واحدیک کبیسه ی چهارساله است.

اعداد زیر طبق جدول گاه شماری_رسمی_ایران  ( لینک بالا  ) استخراج شده .

ARRAY(4,37,66,99,132,165,198,231,264,297,326,359,392,425,458

491,524,553,586,619,656,685,718,751,784,817,850,883,916,

949,978,1011,1044,1077,1110,1143,1176,1209,1238,1275,

,1308,1341,1370,1403,1436,1473,1502,1535,1568,1601

1634,1667,1696,1733

اعداد بالا را در تابع Array  قرار میدهیم  بدون دابل کوتیشن  فرضا اگر بخواهیم کبیسه بودن سال ۱۳۸۰ را بسنجیم 

۱-عددی  در آرایه  را که از عدد ۱۳۸۰ کوچکتر باشد را پیدا میکنیم که در اینجا ۱۳۷۰ را نمایش خواهد داد

۲-همانطور که گفته شد بعد از اعداد یاد شده عدد بعدی باضافه ی ۵ کبیسه ی ۵ ساله میشود و اعداد بعدی آن هر چهار واحد اضافه کبیسه ی چهار ساله میشود . پس بین  عدد ۱۳۷۰  تا ۱۳۸۰ لوپ میزنیم  یا در همان دو لوپ ایجاد شده در لوپ اول یک C بعنوان کانتر میزنیم و میگوئیم  C=C+1

لوپ اول هم  در آرایه یکی یکی اعداد را میگیرد و بازه ی لوپ دوم عدد آرایه در لوپ اول و عدد  بعد از آن خواهد شد .

قسمتی ازکد بقیه توسط الگوریتم باید انجام شود : 

DO 

.

DO

DEBUG.PRINT J

IF J>A+5 THEN J=J+4  ELSE J=J+5

 (LOOP UNTIL J>=ARR(I+1 ؟؟؟ >

X=J

I=I+1

(LOOP UNTIL I=Ubound(J

 لوپ  دوم می تواند تا زمانی  ادامه یابد که سال  داخل تابع کوچکتر مساوی عدد داخل آرایه باشد. ( فرضا میخواهید چک کنید چند سال کبیسه را تا قبل از سال ۱۳۷۰ پشت سر گذاشته اید : برای اختلاف تاریخ شمسی حتما باید تعداد کبیسه تا  یکسال قبل محاسبه شود ولی برای توتال روزهای گذشته از سال کنونی خود سال باید مشخص شود که کبیسه هست یا خیر .... عددی در آرایه  که کوچکتر از ۱۳۷۰ باشد را میگیریم و طبق آنچه  گفته شد ۵ سال به عدد آرایه اضافه می کنیم که کبیسه ی ۵ ساله است و کبیسه های بعدی چهار تا چهارتا اضافه میشود)

برای لیست کردن سال های کبیسه طبق آرایه ی بالا اگر Ubound و Lbound جواب دهد میتوان سال های کبیسه را لیست کرد چه در اکسل چه در اکسس طوری عمل میشود که عدد اول را باضافه ی ۵ میکند و بقیه را بعلاوه ی چهار تا به   عدد بعدی در آرایه برسد  اگر عدد آخر با pointer ( یا عدد بعدی آرایه )  برابر نبود عددها را چاپ کند ، فرضا 

4+5=9  و بعد چهار تا چهارتا جلو میرود ۹+۴ ، ۱۳+۴ ، ۱۷+۴ ، ۲۱+۴ 

۲۵+۴ ، ۲۹+۴ ، ۳۳ +۴  که ۳۷ میشود 

بدست آوردن دقیق کبیسه برای کسانیکه میخواهند تقویم دقیقی داشته باشند یا محاسبه ی دقیق از سال یک تا ۱۵۰۰ پیروی از این سبک الزامیست وگرنه اختلاف یک یا دو روز حداکثر حتمی است.                        

              مرجع: گاه شماری_رسمی_ایران 

سال‌های کبیسه رسمی یک قرن اخیر با توجه به دوره‌ها:
(دورهٔ ۳۳ساله): ۱۲۸۰ - ۱۲۸۴ - ۱۲۸۸ - ۱۲۹۲ - ۱۲۹۶ - ۱۳۰۰ - ۱۳۰۴ - ۱۳۰۸ 
(دورهٔ ۳۳ساله): ۱۳۱۳ - ۱۳۱۷ - ۱۳۲۱ - ۱۳۲۵ - ۱۳۲۹ - ۱۳۳۳ - ۱۳۳۷ - ۱۳۴۱ 
(دورهٔ ۲۹ساله): ۱۳۴۶ - ۱۳۵۰ - ۱۳۵۴ - ۱۳۵۸ - ۱۳۶۲ - ۱۳۶۶ - ۱۳۷۰ 
(دورهٔ ۳۳ساله): ۱۳۷۵ - ۱۳۷۹ - ۱۳۸۳ - ۱۳۸۷ - ۱۳۹۱ - ۱۳۹۵ - ۱۳۹۹ - ۱۴۰۳.

جدول زیر از وب گرفته شده و باید  طبق جدول داخل لینک طبق ردیف هاچک کنید .

اضافه کردن به تاریخ میلادی در اکسس

روش : 

1-جداکردن  ماه ، روز و سال و ذخیره در  Alias ها ی M,D,Y که برای تاریخ میلادی بسیار آسان است 

(Y=Year(Dt

(M=Month(Dt

(D=Day(Dt

و اگر تاریخ ورودی اعتبار نداشته باشد فرضا ماهی که ۲۹ روزه است را سی روزه وارد کنید یا ماه را بیشتراز ۱۲ تایپ کنید یا  فرمت اشتباه باشد خودش ارور را اعلام میکند احتمالا بعنوان Type Mismatch ... از توابع بالا برای ماه شمسی نمی توانید استفاده کنید چونکه روزهای ماه شمسی با میلادی فرق میکند.

۲-لوپ زدن از یک تا تعداد روزی که باید به تاریخ اضافه شود یعنی n  منهای یک 

۳-D=D+1

4-اگر D بزرگتر از تعداد روزهای میلادی شد D برابر یک خواهد شد  ( (البته باید طبق سال کبیسه باشد )  و  M=M+1 

5-اگر Y بزرگتر از ۱۲ شد Y=Y+1 و  M=1  

البته این کانتراست و بسیاردقیق ، اگر فواصل تاریخی زیاد باشد این روش مناسب نیست چون حدود ۳ ثانیه طول میکشد تا جواب را برگرداند .

اضافه کردن  474003  روز به ۲۲ مارس ۶۲۲ که برابر روز جمعه اول فروردین سال یک است .

بدست آوردن شمسی : (البته با DateDiff میتوان اختلاف بین ۲۲ مارس ۶۲۲ تا ۳۱ دسامبر ۱۹۱۹ را بدست آورد که همین عدد است)

۱-تعداد روزهای سپری شده از اول ماه شمسی که اینجا یک فروردین سال یک است معادل ۲۲ مارس ۶۲۲ موردنظر که اینجا ۱ است 

۲-تعداد کبیسه های میلادی که ۳۱۴ است 

474,003−(1,298×365)−314+
1

 در معادله ی بالا عدد منفی شده که با ۳۶۵ اگر جمع کنیم عدد ۲۸۵ حاصل میگردد که هدف ماست بعد از کم کردن تعداد ماه های شمسی از عدد تا زمانیکه منفی نشده روز بدست می آید که همان ۹ است و تعداد ماه های کم شده باضافه ی یک هم ماه مذبور 

میشود یعنی ۱۰ ... پس تاریخ ۹ دیماه ۱۲۹۸ خواهد شد

 : بدست آوردن میلادی

اگر عدد کوچکتر مساوی صفر شد با ۳۶۵ جمع میزنیم

474,003−(1,298×365)−314

+81+365=365

اضافه کردن ۴۳۰۸ روز به ۳/۲۱/۲۰۰۶ یا معادل شمسی ۸۵/۱/۱

تعداد کبیسه ی ۲۰۰۶ تا ۲۰۱۷ سه است و برای شمسی تعدا د روز را یک فروردین میگیریم در ۸۵/۱/۱

4,308−(11×365)−3+1=291

میلادی ۲۰۰۶

تعدادکبیسه ی ۲۰۰۶ تا ۲۰۱۷ سه است و روزهای سپری شده ی سال ۲۰۰۶ هم عدد ۸۰ است 

4,308−(11×365)−3+80=370

که یکی به سال اضافه میشود و ماه یک میشود ، روز میلادی هم ۵ خواهدشد

تبدیل میلادی به شمسی

عدد ثابت : ۲۲۶۸۹۶ 

مثال   اول  : 12/31/1919  معادل  1298/10/9

(1,918×365+334+31+464

−226,896−314+1)÷365=1297

(1,918×365+334+31+464
−226,896−314+1)−(1,297
×365)=285

     285-6×31-3×30=9

تبدیل  1/1/1920 معادل    1298/10/10 

(1,919×365+1+464
−226,896−314+1)÷365=1297

(1,919×365+1+464
−226,896−314+1)−(1,297
×365)=286

286-6×31-3×30=10

مثال سوم  ۱۰/۲۲/۱۹۲۱

(1,920×365+273+22+465
−226,896-314+1)÷365=1300

(1,920×365+273+22+465
−226,896−314+1)−(1,299
×365)=216

216-6×31=30 

سال ۱۲۹۹ باضافه ی یک ماه ۷ و روز ۳۰ 

تبدیل 9/11/1978  معادل 1357/6/20

1,977×365+243+11+479
−226,896−329+1)−(1,356
×365)−5×31=19 

در مثال بالا اختلاف یکروز مشاهده میشود .

✔ تبدیل  4/22/1922  معادل 1301/2/1 شمسی  : 

1,921×365+90+22+465
−226,896−315+1)÷365=1300

1,921×365+90+22+465

−226,896−315+1)−(1,299
×365)=397

397-365=32

در این مورد یک عدد به سال ۱۳۰۰  اضافه شده 

تبدیل شمسی به میلادی

فرمول :  در نظر داشتن عدد ثابت ۲۲۶۸۹۶ 

۱-بدست آوردن  تعداد روزهای سپری شده از ۱/۱/۱ تا  تاریخ شمسی موردنظر   فرضا به نام  ShamsiDiff  : 

سال شمسی منهای یک در ۳۶۵ باضافه ی  تعداد روزهای سپری شده از اول هر تاریخ  باضافه ی تعداد سال های کبیسه از سال یک تا آن تاریخ شمسی ... سپس دو عدد حاصله را از هم کم کرده و منهای یک می کنیم 

۲- اضافه کردن اختلاف دو تاریخ شمسی  به عدد ثابت منهای عدد ۱۵۰ (تعداد سال های کبیسه تا سال ۶۲۲ میلادی ) 

۳-تقسیم عدد شماره ی ۳ بر ۳۶۵   فرضا    Y=Ret\365

۴-کم کردن  عدد ( سال شمسی منهای یک در ۳۶۵  منهای تعداد کبیسه ی میلادی بدست آمده از شماره ی ۳  منهای ۱۵۰) از  عدد شماره ی ۲ 

۵-عدد بدست آمده را از تعداد روزهای میلادی آنقدر کم می کنیم تا ان عدد کوچکتر مساوی جمع روزهای میلادی گردد .

۶-اگر ما بزرگتر از ۱۲ شد ماه یک میشود و سال میلادی یکی به آن اضافه می گردد

مثال ها : 

("GetMiladi1("1379/1/1

معادل     ۲۰۰۰/۳/۲۰

("GetMiladi1("۱۳۷۸/۱۰/۱۰

معادل     ۱۹۹۹/۱۲/۳۱

("GetMiladi1("۱۳۷۸/۱۰/۱۱

معادل    ۲۰۰۰/۱/۱

("GetMiladi1("۱۳۷۸/۶/۲۰

معادل      ۱۹۷۸/۹/۱۱

("GetMiladi1("۱۲۹۸/۱۰/۹

معادل     ۱۹۱۹/۱۲/۳۱

فرضا تبدیل ۱۲۹۸/۱۰/۹  :  نهم دیماه ۱۲۹۸

اختلاف ۱/۱/۱ تا ۱۲۹۸/۱۰/۹ میشود ۴۷۴۰۰۳ که می توانید صحت آنرا با DateDiff تابع خود اکسس امتحان کنید 

("DateDiff("n","۳/۲۲/۶۲۲","۱۲/۳۱/۱۹۱۹

قابل توجه : ۳/۲۲/۶۲۲ معادل جمعه اول فروردین یک است 

فرمول : 

                                                معادله ی اول 

۳۶۵=(۴۶۴+۱۵۰)-(۳۶۵×۱۹۱۸)-(۴۷۴۰۰۳+۲۲۶۸۹۶-۱۵۰)

۱-عدد ۴۷۴۰۰۳  تعداد روزهای سپری شده از۱/۱/۱ تا تاریخ ۱۲۹۸/۱۰/۹ است یا اختلاف دو تاریخ ۱/۱/۱ و تاریخ شمسی که میخواهیم به میلادی تبدیل کنیم.

۲-عدد ۲۲۶۸۹۶ تعداد روزهای سپری شده تا ۳/۲۲/۶۲۲ است و ثابت 

۴-عدد ۱۵۰ تعداد کبیسه های تا سال ۶۲۲ است و ثابت 

۵-عدد ۱۹۱۸ از تقسیم معادله ی اول بر ۳۶۵ حاصل شده که عدد صحیح آن باید گرفته شود و منهای یک شود .

۶-عدد ۴۶۴ تعداد کبیسه های تا سال ۱۹۱۷ است و متغیر

۷-عدد ۴۶۴-۱۵۰ همان تعداد کبیسه های  تا سال  ۱۲۹۷ است 

✔عدد حاصله  از معادله ی بالا ۳۶۵ است

✔ سال بدست آمده از تقسیم معادله ی اول بر ۳۶۵ هم ۱۹۱۹ خواهد بود.

باید  عدد ۳۶۵ را در لوپ ماه اول تا ماه آخر میلادی قراردهیم تا جائی که عددهای کسرشده کوچکتر مساوی عدد ماه لوپی شود در اینجا وقتی لوپ زده میشود و عدد روزهای ماه میلادی به ترتیب از یک تا ۱۲ از ۳۶۵ کسر میشود عددی لوپ میدهد تعداد روزهای ماه دسامبر است یعنی ۳۱ و ماه هم میشود ۱۲ 

✔بنابراین  سال ۱۹۱۹  ماه ۱۲ و روز ۳۱ خواهد بود 

ℹℹℹاگر عدد ۳۶۶ شود در ماژول باید بنویسیم یک عدد به سال اضافه شود و ماه هم یک شو د (  مهم است  ) 

معادله : 

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

اختلاف سال میلادی تا ۲۲ مارس ۶۲۲ اول فروردین سال یک

این دست نویس ها بسیار ارزشمند است  تعداد روزهای سپری شده از اول تا ۲۲ مارس ۶۲۲ عدد ۲۲۶۸۹۶ است 

سال میلادی منهای یک +  جمع روزهای ( ماه میلادی منهای یک )  + روز + تعداد کبیسه های سپری شده از سال یک تا سال میلادی منهای یک  - ۲۲۶۸۹۶ 

عبارت کدشده در اس ام اس چندپارتی در حالت PDU

در حالت (  Unicode  ( 16 bit 

0

1

2

3

4

5

6

7

8

9

A   معادل 10

B  معادل 11

C معادل   12

D معادل   13

E  معادل   14 

F  معادل   15

اگر شماره ی موبایل شامل + باشد قبل از شماره تلفن 91 و اگر نباشد 81 معکوس اعداد شماره ی موبایل دورقم دورقم فرضا شماره ی  موبایل [phone] میشود  900009000F1 چون رقم آخر تک رقم میشود بجایش F قرار میدهیم  چون کلا شمارش تعداد بایت  بر اساس دو رقم دورقم محاسبه میشود .  محاسبه ی  تعداد بایت  شماره ی موبایل فرضا  09009000001    اول با اضافه کردن 81 به شماره ی موبایل معکوس شده طبق گفته ی بالا☝   شمارش تعداد اعداد  شماره ی موبایل  و تبدیل به کد   طبق دستورالعمل ذیل 

Int(11/16)=0   و 11 منهای   int(11/16)*16  که میشود 11 و  معادل آن که B هست طبق اعداد ذکرشده در ا ول  یادداشت  و در آخر جوین کردن   0 و B  که  عبارت 0B81900009000F1  بدست می آید. چون شماره مرکز پیام مشخص نیست از عبارت 001100 در ارسال تکی و 005500 در ارسال چند پارتی استفاده می کنیم  و نتیجه برای ارسال پیامک چندپارتی درغالب یک پیامک ( حداکثر طول پیام 603 کاراکتر ) 

0041000B912374374521F7000808050003CC02020645

تغییر قالب تاریخ و ساعت در تکست باکس اکسس

=Format(Now(), "dd/mm/yyyy hh:nn:ss")

شئ Screen

that's not surprising to me

فروردین ماه ۱۳۹۳ خبری در رسانه‌ها منتشر شد که بر اساس آن اعضای هیئت مدیرهٔ بانک گردشگری در آخرین جلسه مجمع عمومی خود، مبلغ ۲۰۰ میلیون تومان به اعضای مجمع پاداش داده‌اند. در صورتجلسهٔ مجمع عمومی شرکت بانک گردشگری که در تاریخ ۱۹ فروردین ماه آن سال ( ۹۳ ) برگزار شد، آمده بود: مقرر گردید دو میلیارد ریال به عنوان پاداش به اعضای هیئت مدیره پرداخت شود. همچنین در این صورتجلسه که به امضای محمدصادق طاهری به عنوان رئیس‌هیئت مدیره و همچنین مهدی جهانگیری و علی زیرک نژاد به عنوان ناظر نیز رسیده، مقرر گردیده ماهانه ده میلیون ریال به اعضای هیئت‌مدیره به عنوان حق حضور در جلسه پرداخت شود.

تُف به این مملکت بی ناظر

در زمان ارجاع به شئ Screen در صورت غیرفعال بودن فرم ، گزارش یا کنترل ، مایکروسافت آفیس خطای زمان  اجرا تولید میکند. 

Properties 

• ActiveControl
• ActiveDatasheet
• ActiveForm
• ActiveReport
• Application
• MousePointer
• Parent
• PreviousControl

MsgBox Screen.ActiveForm.Name

                                                                        .Caption

۲۱ دی ۱۴۰۲ · آموزش و پرورش در آزمون استخدامی به هیچ عنوان مدرک دیپلم جذب نمی‌کند اما در کنکور فرهنگیان یعنی کنکور تخصصی تعلیم و تربیت، دانشجومعلم با مدرک ...

۲۶ فروردین ۱۴۰۳ 

( حمله ایران به اسرائیل )

مسکو- ایرنا- رئیس مرکز خاورمیانه موسسه مطالعات استراتژیک روسیه گفت: هرچند اسرائیل می‌گوید که به حمله ایران پاسخ خواهد داد اما به نظر من، ماجراجویی‌های تل‌آویو توسط ایالات متحده که مطلقا به جنگ جدیدی نیاز ندارد،‌ مهار خواهدشد چرا که به انتخاب مجدد جوبایدن به ریاست‌جمهوری آمریکاآسیب می‌زند.

اطلاعیه فوری فرودگاه بین المللی امام خمینی (ره)

رکنا اقتصادی: مدیرعامل شرکت شهر فرودگاهی امام خمینی (ره) گفت: تا ۶ صبح فردا ( دوشنبه ) کلیه پروازها لغو شده است.

شی TempVars برای ذخیره داده بصورت موقت و استفاده در سایر آبجکت ها

در دیدار تشکلات دانشجویی قضیه قرارگیری افراد در  اسکافُلد اول و دوم و جمعیت عادی در پشت آنها چیست ... روسای تشکیلات در اسکافُلد اول قرار میگیرند یا آقازاده های دانشجو

.

مجموعه TempVars می تواند تا 255 شی TempVar را ذخیره کند. اگر یک شی TempVar را حذف نکنید، تا زمانی که پایگاه داده را ببندید در حافظه باقی می ماند. این یک تمرین خوب برای حذف متغیرهای شی TempVar پس از پایان استفاده از آنها است.

User Form
Button : Command1
Event : OnClick
Dim TempLogin As TempVars
TempVars!TempLogin=txtUser.Value


Main Form
Event : OnLoad
Text : txtLogin
Me.txtLogin=TempVars!TempLogin


strSearch=Me.txtSearch.Value
task="Select * From tbl_Search Where CustomerName Like '*" & strSearch & "*'"
Me.RecordSource=task

Temporary variables are global. Once a temporary variable has been created, you can refer to it in an event procedure, a Visual Basic for Applications (VBA) module, a query, or an expression. For example, if you created a temporary variable named MyVar, you could use the variable as the control source for a text box by using the following syntax:

=[TempVars]![MyVar]

ماکرو SetTempVar

-Condition : -

-Action : SetTempVar

-Arguments : 

--Name : MyVar

--Expression : InputBox("Enter a non-zero number:")

-Condition : [TempVars]![MyVar]<>0

-Action : MsgBox

-Arguments :

--Message  : "You entered " & [TempVars]![MyVar] & "."

--Beep : Yes

--Type : Information

-Condition : -

-Action : RemoveTempVar

-Arguments : 

--Name : MyVar

روش Requery داده‌های زیر یک فرم یا کنترل را به‌روزرسانی می‌کند تا سوابقی را که از آخرین بار درخواست شده در منبع رکورد جدید هستند یا از آن حذف شده‌اند، منعکس کند. روش Refresh فقط تغییراتی را نشان می دهد که در مجموعه رکوردهای فعلی ایجاد شده است. رکوردهای جدید یا حذف شده را در منبع رکورد منعکس نمی کند. روش Repaint به سادگی فرم مشخص شده و کنترل های آن را دوباره رنگ می کند.

روش Requery کنترل را به سیستم عامل نمی دهد تا به ویندوز اجازه دهد به پردازش پیام ها ادامه دهد. در صورت نیاز به واگذاری کنترل موقت به سیستم عامل از عملکرد DoEvents استفاده کنید.

فرمان Requery سریعتر از عمل Requery است. هنگامی که از عملکرد Requery استفاده می کنید، مایکروسافت اکسس پرس و جو را می بندد و آن را دوباره از پایگاه داده بارگیری می کند. هنگامی که از فرمان Requery استفاده می کنید، اکسس پرس و جو را بدون بستن و بارگذاری مجدد اجرا می کند.

مهدی رفسنجانی - تاجر ایرانی 

در سال ۲۰۰۷ مدیرعامل و چند کارمند شرکت نفتی توتال توسط مقامات قضایی فرانسوی به اتهام پرداخت حدود ۶۰ میلیون یورو رشوه به مقامات ایرانی برای مشارکت در احداث میدان گازی پارس جنوبی بازداشت شدند و نام مهدی هاشمی به عنوان فردی که بخشی از این مبلغ را دریافت کرده مطرح شد. توتال در سال ۱۹۹۷ به همراه شرکت گازپروم روسیه و پتروناس مالزی در مناقصه احداث این میدان گازی پیروز شده‌بود و در سال ۲۰۰۴ پلیس سوئیس متوجه شده بود که حدود ۷٫۸ میلیون یورو از اموال شرکت توتال به حساب یک ایرانی مقیم سوئیس واریز شده که به گفته رسانه‌های فرانسوی از کارمندان مهدی هاشمی رفسنجانی است.

چند ثانیه ۲۴-۱-۱۴۰۳

۲۱ دی ۱۴۰۲ · آموزش و پرورش در آزمون استخدامی به هیچ عنوان مدرک دیپلم جذب نمی‌کند اما در کنکور فرهنگیان یعنی کنکور تخصصی تعلیم و تربیت، دانشجومعلم با مدرک ...

۲۶ فروردین ۱۴۰۳ 

( حمله ایران به اسرائیل )

مسکو- ایرنا- رئیس مرکز خاورمیانه موسسه مطالعات استراتژیک روسیه گفت: هرچند اسرائیل می‌گوید که به حمله ایران پاسخ خواهد داد اما به نظر من، ماجراجویی‌های تل‌آویو توسط ایالات متحده که مطلقا به جنگ جدیدی نیاز ندارد،‌ مهار خواهدشد چرا که به انتخاب مجدد جوبایدن به ریاست‌جمهوری آمریکاآسیب می‌زند.

در نشست شورای امنیت، آمریکا و دیگر متحدانش به حمایت تمام‌قد از جنایات بی‌وقفه رژیم صهیونیستی در نوار غزه و تجاوزگری و ماجراجویی نظامی این رژیم علیه کشورهای منطقه پرداختند و پاسخ کاملاً مشروع و قانونی ایران به تجاوز اخیر صهیونیستها به کنسولگری‌اش در دمشق را محکوم کردند.

۲۷ فروردین ۱۴۰۳ 

ژیلا صادقی مجری سرشناس تلویزیون که در روزهای گذشته حاشیه‌های زیادی درباره نحوه پوشش او در برنامه های تلویزیونی مطرح بود اعلام کرد: شهروند آمریکا هستم.

تخمه آفتابگردان سرشار از مواد مغذی است که قلب شما دوست دارد. این شامل فیبر، ویتامین ها، چربی های سالم و مواد معدنی است. تحقیقات نشان می‌دهد که رژیم غذایی سرشار از دانه‌ها می‌تواند به سلامت قلب شما کمک کند و ممکن است ( نه حتمی ) از بیماری‌های قلبی محافظت کند.

زقوم، خوراک گناهکاران است که مثل فلز گداخته در درون آنان جوشان است، همچون جوشیدن آب داغ.

إِنَّهَا شَجَرَةٌ تَخْرُجُ فِی أَصْلِ الْجَحِیمِ

آن درختى است که از قعر آتش سوزان مى ‏روید (۶۴)

طَلْعُهَا کَأَنَّهُ رُءُوسُ الشَّیَاطِینِ

میوه‏ اش گویى چون کله ‏هاى شیاطین است (۶۵)

فَإِنَّهُمْ لَآکِلُونَ مِنْهَا فَمَالِئُونَ مِنْهَا الْبُطُونَ

پس [دوزخیان] حتما از آن مى ‏خورند و شکمها را از آن پر مى کنند (۶۶)

فرمان SetOrderBy

پیامبر گفت: خداوند، آدم را آفرید که قامتش، شصت ذراع(٣۰ متر) بود

Humans are always changing

برای انجام مرتب سازی در دیتاشیت ، فرم ، گزارش یا جدول فعال 

نوشتاری : 

expression.SetOrderBy (OrderBy, ControlName)

OrderBy

A string expression that includes the name of the field or fields on which to sort records and the optional ASC or DESC keywords.

ControlName

If provided and the active object is a form or report, the name of the control that corresponds to the subform or subreport that will be sorted. If empty and the active object is a form or report, the parent form or report is sorted.

۲۱ اسفند ۱۴۰۲ 

چند روز قبل عنوان شد که مسعود درستی مدیرعامل این شرکت وابسته به شهرداری تهران پس از آنکه نامش به علت برخورد با زنان بی‌حجاب در مترو وارد فهرست تحریم‌های کانادا شده، از سمت خود استعفا داده است.

شایعات همچنین حاکی از بگومگوی وی با زاکانی و اعتراض متقابل شهردار انقلابی به این مدیر مترو بود که اوضاع اسفناک حوادث و سوانح در مترو باعث اعتراضات گسترده به زاکانی در شورا، محافل سیاسی و رسانه‌ها شده است.

حالا ظاهرا مشکل موقتا حل شده و درستی پس از بازگشت به سرکار، قربانی ، دبیر کارگروه حجاب و عفاف و رییس دفتر خود را بلافاصله قربانی کرده است.

اسفند ۱۴۰۲ : 

طبق آنچه در سایت یاشار سلطانی آمده، حوزه علمیه امام خمینی در منطقه ازگل تهران که تحت تولیت آیت الله صدیقی اداره می شود، باغی به مساحت 4200 متر داشته است که قیمت روز آن، حدود 1000 میلیارد تومان برآورد می شود.

اما آبان امسال، شرکتی به نام "موسسه غیر تجاری پیروان اندیشه های قائم" ثبت می شود و بعد از آن، اسناد مالکیت این باغ گرانبها به نام این شرکت می شود.

مالکان این شرکت آیت الله صدیقی و چند تن از پسران و دوستان او هستند و عروسش نیز بازرس شرکت است.

ایشان طی نامه ای به دادستان تهران که در رسانه ها هم منتشر شده، توضیحاتی در این باره  داده و نوشته است که امضای او و دیگران را "برای ثبت موسسه"  جعل کرده اند ولی توضیحی درباره نحوه تملک باغ توسط این موسسه نداد.

عبدالله گنجی در شبکه ایکس و در واکنش به نامه کاظم صدیقی به دادستان تهران نوشت:

«نامه حاج آقا صدیقی را حمل بر صحت می‌گذارم علت‌اش این است که پذیرفته است که مدیریت خودش اشکال دارد و آماده پاسخگویی قضایی است و به توجیه و جدل در موضوع روی نیاورده است؛ لذا افشاکننده با هر نیت که سوت زده باشد باید اول توسط خود صدیقی مورد تقدیر قرار گیرد.»

۳ فروردین ۱۴۰۳ : 

حوزه علمیه امام خمینی بیانیه جدید داد: صدیقی شخصا سند انتقال باغ را امضا کرده است اما نمی دانست دارد به خود و پسرانش منتقل می کند. مراحل اداری برگشت به حوزه در حال انجام است .

عباس عبدی، فعال سیاسی اصلاح طلب در شبکه اجتماعی ایکس نوشت: «حوزه آقای صدیقی در بیانیه دوم، دوباره بر جعل امضا تاکید کرده است. اگر این ادعا درست باشد به منزله تخلف دفترخانه رسمی نیز هست. ولی عجیبه که سازمان ثبت سکوت کرده و از خود هیچ دفاعی نمی‌کند. اگر کس دیگری چنین اتهامی را علیه آنان می‌زد فوری واکنش نشان می‌دادند.»

کارگران ایران با شش سال ثابت ماندن حداقل دستمزد در دوران سخت جنگ تحمیلی هزینه اقتصادی قابل توجهی پرداخت کردند؛ اگرچه قرار بود فاصله بین مزد و افزایش سرسام‌آور هزینه‌های زندگی در دوران جنگ، طی مدت کوتاهی پس از آن جبران شود، اما تمام دولت‌های پس از جنگ به وسع خود به این فاصله افزودند؛ بطوری که امروز جبران فاصله بین حداقل دستمزد و هزینه‌های زندگی، صرفاً با معیار قرار دادن نرخ تورم عملاً ممکن نیست.

متولد سال ۱۲۶۷ شمسی بود و نامش «میرزا احمد عابد نهاوندی» بود و چون با مردم به زبان شعر و اندرز سخن می‌گفت و اهل‌دل بود به «حاج مرشد» مشهور بود و چون یکی از قدیمی‌ترین چلوکبابی‌های تهران را داشت به «مرشد چلویی» مشهور بود و شاعر هم بود و تخلصش «ساعی» بود و شعرش این بود که: «کو آن کسی که کار برای خدا کند؟/ بر جای بی‌وفایی مردم وفا کند/ هر چند خلق سنگ ملامت بر او زنند/ بر جای سنگ نیمه‌ شب‌ها دعا کند».

هرگاه کودک یتیمی گریه کند اشک‌های او در کف پر مهر و محبّت خداوند رحمان می‌ریزد و خدای تعالی می‌فرماید: چه کسی این یتیمی که پدرش را از دست داده (و اکنون زیر خاک آرمیده) به گریه درآورده است؟ هر کس او را آرام کند بهشت از آن اوست

خداى متعال در آیه 22 سوره اعراف مى فرماید: «همین که آدم و همسرش از آن درخت ممنوع چشیدند، بلافاصله لباس هایشان از تنشان فرو ریخت و اندامشان آشکار گشت». از این آیه به خوبى استفاده مى شود که آنها قبل از ارتکاب این خلاف، برهنه نبودند بلکه پوششى داشتند که نشانه اى براى شخصیت آدم و حوا و احترام آنها محسوب مى شده که با نافرمانى از اندامشان فرو ریخته است. 

Microsoft Office Object Library refrences

There is an alternate location where the MSO.dll file can be found:

C:\Program Files (x86)\Common Files\microsoft shared\oFFICE11

ویژگی IsLoaded برای بررسی لود شدن شئ AccessObject

رائفی پور به قالیباف: چرا پسرتان (اسحاق) به دنبال اقامت کانادا است؟ /میزان سرمایه گذاری فرزندتان در کانادا و هزینه های دریافت اقامت دائم را اعلام کنید

نوشتاری : 

expression.IsLoaded

expression A variable that represents an AccessObject object.

توضیحات : 

The IsLoaded property uses the following settings.

Yes/True(VB) : 

The specified AccessObject is loaded.

No/False(VB) : 

The specified AccessObject is not loaded.

 بخشی از اشیاء در AccessObject

Form                          AllForms                   Saved forms

Function             AllFunctions       Saved functions

Macro                   AllMacros            Saved macros

Madoule           AllModules          Saved Modules

Query                  AllQueries            Saved queries

Report               AllReports           Saved reports

The CurrentProject property setting contains a reference to the CurrentProject for the current code database.

This property is available only by using Visual Basic  and is read-only.

Remarks

Use the CurrentProject property to refer to one of the following current database collections together with one of its properties or methods.

AllForms

AllReports

AllMacros

AllDataAccessPages

AccessObjectProprties

AllModules

بهمن ۱۴۰۲ : پیگیری دادستانی منجر به برداشتن طرح شد

منظور : لیوان شخصی است Don't touch

نکته‌ی قابل تامل در میان پاسخ‌های دریافتی، نگاه بیش‌تر مثبت آن‌ها بود؛ پاسخی که به نظر می‌رسد امروز متفاوت باشد، هرچند که برای اطمینان حتما باید یک نظرسنجی دوباره انجام داد.

 

به هر روی مرد از نگاه زنان جوان دهه‌ی ۴۰ این‌گونه بود:

 

اقدس یسیری، خانه‌دار، اصفهان: مرد موجودی است دوست‌داشتنی، البته اگر عصبانی نشود، عیاشی نکند و به حرف مادرش گوش ندهد.

 

رباب علایی،‌خانه‌دار، تهران: مرد خوب، نعمت بهشت است و مرد بد عذاب جهنم.

 

فتانه توصیفیان، خانه‌دار، اصفهان: مرد مانند خورشید است؛ نور می‌دهد، حرارت می‌بخشد و می‌سوزاند.

مهین امیرعظیمی، دانشجو، تهران: خداوندا، هیچ زنی را در این دنیای سرگردان بدون مرد سرگردان نکن.

عزت سروری، خانه‌دار، تهران: مرد بد در دنیا وجود ندارد، زنان مهربان و خوب بهتر می‌توانند این حقیقت را درک کنند.

 

نصرت طلاچی، خانه‌دار، تهران: مرد موجودی است که نه دوستی‌اش معلوم است، نه دشمنی‌اش. از دوری زن رنج می‌برد و از نزدیکی‌اش عذاب.

 

زری رحمانی،‌ خانه‌دار، شیراز: مرد افتخار خلقت بشری است، زیرا از موجودات دیگر استوارتر، کوشاتر، صبورتر، باگذشت‌تر و قابل اعتمادتر است.

 

اقدس شهیدی، آموزگار، اصفهان: مرد چون آب پاکی است که در هر ظرف به رنگ آن درمی‌آید.

بهمن ۱۴۰۲

محسن نجفی خواه معاون هماهنگی و برنامه‌ریزی امور حقوقی دستگاه‌های اجرایی موضوع تلاش دولت برای حل مشکلات ناترازی صندوق های بازنشستگی را پیش کشید و با اشاره به کاهش باروری و افزایش امید به زندگی،‌ چنین گفت: سبک زندگی و شرایط حاکم بر کشور به گونه ای است که سن امید به زندگی در جامعه افزایش یافته است.

البته باید بگم امید به زندگی مجلسیا با این درآمداشون زیاد شده با بهترین بیمه تکمیلی و مزایای دولتی

با سلام و احترام

مشتری عزیز مجموعه دیجی کالا همواره از بازخوردهای مشتریان استقبال و در جهت بهبود عملکرد شرکت استفاده میکند.
نظراتی که در مورد یک کالا ثبت می‌کنید بر اساس قوانین ""ثبت نظر"" بررسی، تایید و یا رد می‌شوند.
توجه فرمایید بخش نظرات کاربران به اشتراک گذاشتن تجربه استفاده از آن محصول می باشد، که مشتریان دیگر بتوانند از تجربه سایر مشتریان در راستای انتخاب درست کالا استفاده کنند.
در صورتی‌که کالا ایراد ظاهری یا فنی و مغایرتی داشته باشد طبق قوانین امکان مرجوعی وجود دارد.

اسفند ۱۴۰۲

۱-عباس ایروانی

 عباس ایروانی در این پرونده به اتهام اخلال عمده در نظام اقتصادی کشور با توسل به قاچاق سازمان یافته و حرفه‌ای قطعات خودرو به صورت عمده و کلان به میزان بیش از ۶۶۴ میلیون دلار و رهبری گروه مجرمانه سازمان یافته قاچاق قطعات خودرو به تحمل ۲۵ سال حبس و ضبط کلیه اموالی که متهم از طریق خلاف قانون به دست آورده، محکوم شده است و به اتهام معاونت در جعل اسناد به تحمل ۸ ماه حبس و جبران خسارت وارده، به اتهام معاونت در استفاده از اسناد مجعول به تحمل ۲ سال و ۱ ماه حبس، به اتهام معاونت در پرداخت رشوه به تحمل ۲ سال و ۱ ماه حبس و به اتهام مشارکت در فرار دادن حامد خاتمی‌پور به تحمل ۱ سال و ۱ ماه حبس محکوم کرده است.

۲۶ فروردین ۱۴۰۳ 

( حمله ایران به اسرائیل )

مسکو- ایرنا- رئیس مرکز خاورمیانه موسسه مطالعات استراتژیک روسیه گفت: هرچند اسرائیل می‌گوید که به حمله ایران پاسخ خواهد داد اما به نظر من، ماجراجویی‌های تل‌آویو توسط ایالات متحده که مطلقا به جنگ جدیدی نیاز ندارد،‌ مهار خواهدشد چرا که به انتخاب مجدد جوبایدن به ریاست‌جمهوری آمریکاآسیب می‌زند.

Option Group در اکسس ( انتقال فوکس به کنترل تکست باکس )

اسفند ۱۴۰۲  درمانگاه قم  ( درگیری یک خانم با روان ناسالم با یک آخوند بعلت عکس گرفتن از وی )  از وی بعنوان هنجارشکن گستاخ یاد شده !!!

رائفی پور به قالیباف: چرا پسرتان (اسحاق) به دنبال اقامت کانادا است؟ /میزان سرمایه گذاری فرزندتان در کانادا و هزینه های دریافت اقامت دائم را اعلام کنید

یک Option Group در یک فرم یا گزارش یک مجموعه محدودی از انتخاب ها را نمایش می دهد . باعث می شود انتخاب راحتی داشته باشید ( با تعریف انتخاب های مد نظر ) چرا که آنچه را می خواهید می توانید انتخاب کنید.تنها یک Option یا گزینه در هر گروه قابل انتخاب است . 

توضیحات : 

یک Oprtion Group شامل یک قالب گروه و مجموعه ای از CheckBox ها ، toggle button ها و یا option button هاست.

اگر یک Option Group به یک فیلد محدود ( مرتبط ) شود ، تنها قالب گروه ( frame ) به تنهایی به فیلد محدود می شود نه به باتن های داخل قالب . بجای تنظیم پراپرتی ControlSource برای هر کنترل در Option Group ، پراپرتی OptionValue هر کنترل را به شماره هدفمند برای فیلدی که frame به آن محدود شده است تنظیم کنید. زمان انتخاب یک گزینه ( Option ) در گروه ، مایکروسافت اکسس مقدار فیلد 

وقتی گزینه ای را در یک گروه  انتخاب می کنید، مایکروسافت اکسس مقدار فیلدی را که گروه به مقدار پراپرتی OptionValue گزینه انتخاب شده محدود شده است را تعیین می کند.

تبصره : 

ویژگی یا پراپرتی Option Value به شماره ای  مختص می شود بدلیل اینکه مقدار گروه گزینه یا option group باید فقط یک شماره باشد نه متن ( text ) . اکسس این شماره را در جدول مرتبط ذخیره می کند.

یک option group همچنین می تواند به یک عبارت یا expression تنظیم شود . یک گروه گزینه یا option group را در یک کادر محاوره ای برای پذیرش ورودی کاربر بکار برید و سپس یک عمل یا action روی ورودی انجام دهید.

در شکل زیر frame همان کپشن لیبل Gender ( جنسیت ) است ، همانطور که در شکل می بینید  برای گزینه آخر در تب یا برگه داده ( Data ) ویژگیهای مقدار گزینه ، فعال بودن یا نبودن و قفل کردن یا نکردن موجود است ( در Enabled حالت فعال بودن یا نبودن [ خاکستری ] را تنظیم می کنید ) 

در رویداد AfterUpdate این گروه گزینه ( option group [ با شماره مشخص شده که می توانید حتی آنرا عوض کنید ] )  می توانید بگوئید اگر فرضا پراپرتی OptionValue برابر عدد یک بود کرسر در تکست باکس مورد نظرتون فعال شود . ( متد SetFocus تکست باکس ) 

اگر برای هر گزینه داخل frame ، تکست باکس در فرم موجود باشد : 

OnAfterUpdate

C%=expr.OptionValue

Controls("txt" & C).SetFocus

آقازاده حضرت قالیباف 

..... تومان طلا و سکه ربوده شده است.

اقتصاد 24 همچنین نوشت ، این را هم مدنظر بگیرید که قیمت سکه در مهر ۱۴۰۰، ۱۱ میلیون تومان بوده و امروز ۳۲ میلیون تومان است. یعنی آن روز فقط یکی از فرزندان آقای قالیباف، صرفا در گاوصندوق منزل فرمانیه خود نزدیک به ۷ کیلوگرم طلا یا ۱۲۰۰ نیم سکه بهار آزادی داشته است.

شنیده شده پدر (رئیس مجلس) به محض اطلاع از ثبت شکایت پیگیر شده که به دلایل سیاسی، پرونده را از کلانتری و فراجا خارج کند که دیگر دیر شده و در سامانه ثبت شده بود.

الیاس قالیباف، پسر ارشد محمدباقر قالیباف ، فارغ التحصیل مدیریت بازرگانی در مقطع کارشناسی از یکی از دانشگاه‌های مالزی است.

الیاس قالیباف در سال ماه ۱۳۸۶ با دختر یکی از فرماندهان سپاه ازدواج کرد.

182 سیب را بین 3 نفر به نسبت های یک چهارم،دو سوم،سه پنجم تقسیم کردیم،به هریک چند سیب میرسد؟

۱-جمع نسبت ها

۲- عدد ۱۸۲ تقسیم بر جواب ۱

۳-عدد مرحله ۲ را به ترتیب در ۱/۴ و ۲/۳ و ۳/۵ ضرب می کنیم 

جمع اعداد بدست آمده باید ۱۸۲ شود.

۹ بهمن ۱۴۰۲ ( کاهش ساعات کاری کارمندان دولت )

حسینعلی حاجی دلیگانی در مخالفت با این درخواست بیان کرد: اولویت امروز کشور بحث معیشت مردم می‌باشد و بحث ساعت کار اداری از اولویت‌های بعدی است. تعیین و پیگیری دستمزد کارگران و اعتماد سازی اولویت امروز نظام است، نظام خدمات زیادی داشته است که برخی افراد در تلاش هستند تا به آن خدشه وارد کنند.

وی در ادامه اظهار کرد: افزایش قیمت گوشت و سایر کالاها از اولویت‌های دیگری است که ما باید به آن رسیدگی کنیم. همه کارکنان دولت شریف هستند اما آیا همه ملت ایران کارمندان دولت هستند که ما اکنون دو روز در هفته را تعطیل کرده و چهار ساعت از ساعت کاری را کاهش دهیم. آنگاه جواب کارگران را چه باید بدهیم؟ کشور امروز نیاز دارد که فرهنگ کار را تقویت کنیم چرا که همه کشورهای پیشرفته به این سمت رفته اند.

بهمن ۱۴۰۲ ( پنجشنبه مبعث رسول ، یکشنبه ۲۲ بهمن ) - چهارشنبه ساعت ۱۵ بازی قطر و ایران

بهمن ۱۴۰۲ : پیگیری دادستانی موجب برداشتن طرح از سایت دیجی کالا شد

بهمن ۱۴۰۲ 

به گزارش خبرگزاری مهر، بر اساس اعلام اداره کل استاندارد استان تهران، محمدحسین طاهری ضمن توصیه به شهروندان نسبت به استفاده از نوشیدنی‌ها و آبمیوه‌های دارای نشان استاندارد معتبر گفت: بازرسان استاندارد در جریان بازرسی از واحدهای تولید استان، سه هزار بطری نوشیدنی فاقد نشان استاندارد یک واحد تولیدی در محدوده صفادشت را شناسایی و توقیف کردند.

وی توضیح داد: شهروندان می‌توانند هنگام خرید نوشیدنی‌ها، شماره ۱۰ رقمی ذیل نشان استاندارد را به سامانه ۱۰۰۰۱۵۱۷ پیامک کرده و از صحت و اعتبار نشان استاندارد آن اطمینان حاصل کنند.

بهمن ۱۴۰۲ 

پس از فرار مدیر کمپانی پانزی کوروش کمپانی، دفتر موبایل موسوی که به شیوه‌ای مشابه گوشی آیفون می‌فروشد و از قضا اسپانسر باشگاه استقلال تهران نیز شده، با هجوم مردم مواجه شد. گروهی از مردم در شبکه‌های اجتماعی این مجموعه نسبت به عدم تحویل موبایل‌هایشان همچون کوروش کمپانی در موعد مقرر اعتراض کردند که حالا با توجه به فرار کوروش کمپانی، نگرانی گروهی از خریداران منجر به هجوم‌شان به دفتر این شرکت برای مطالبه گوشی‌های موبایل‌شان شده است.

به گزارش همشهری آنلاین، شریفیان گفت: در حال حاضر همه انگشت اتهامشان به سمت سلبریتی‌ها و تبلیغات چی‌ها دراز شده است. دولت تماس گرفته که باید برگردم و پول‌ها را به این افراد برگردانم. آیا پدیده شاندیز که بار‌ها صداوسیما تبلیغاتش را کرد، صداوسیما پول مردم را پس داد؟ ما در برابر امثال مدیرعامل چای دبش سر سوزنی هم شبیهشان نیستیم.
او گفت: تعداد سلبریتی‌هایی که تبلیغ کوروش کمپانی را کرده اند حدود ۴۰۰، ۵۰۰ نفر بوده اند و رقم‌هایی دریافتی برای تبلیغ از یک میلیون تومان بوده تا ۱۵، ۲۰ میلیون تومان! به عنوان مثال بازیکن تیم ملی ۲۰ میلیون تومان گرفته و تبلیغ کرده است. چون ما یک دوستی قدیمی با هم داشتیم. ولی به کسی اصلا ۲۰۰، ۳۰۰ میلیون تومان پولی نداده ایم.

خانم الهام حمیدی ، بازیگر برجسته کشورمان، ضمن عذرخواهی بابت اتفاقات اخیر، پیرامون کمپانی کلاهبردار کوروش کمپانی، اعلام داشت پول دریافتی از کمپانی که به خاطر تبلیغات گرفته بود را به شماره حسابی که مراجع قضایی اعلام داشت، واریز کرد.

کد خبر: ۲۲۹۲۱۷   تاریخ انتشار : ۱۴۰۲/۱۲/۰۱

آذر تا بهمن 1402 قرار بود حاجیها اعزام شوند ولی با کارشکنی  دولت عربستان (قاتل کودکان یمن )  و بهانه های امنیتی کنسل  و پول به حساب معترضین واریز شد

۱۸ اسفند ماه ۱۴۰۲ 

به گزارش خبرآنلابن به نقل از تاس، سفارت آمریکا در مسکو با انتشار بیانیه‌ای به شهروندان این کشور در روسیه هشدار داد که طی ۴۸ ساعت آینده از ورود به مراکز پرجمعیت و جمع‌شدن‌های غیرضروری خودداری کنند، زیرا «افراط‌گرایان» در حال برنامه‌ریزی برای انجام حمله‌هایی در شهر مسکو هستند.

در بیانیه سفارت آمریکا که در وب‌سایت این سفارت قرار گرفته آمده است که «سفارت در حال رصد گزارش‌هایی است که نشان می‌دهد افراط‌گرایان برنامه‌های قریب‌الوقوعی برای هدف قرار دادن تجمعات بزرگ در مسکو از جمله کنسرت‌ها دارند و باید به شهروندان آمریکایی توصیه شود که از حضور در تجمعات بزرگ در ۴۸ ساعت آینده خودداری کنند.»

لوپ در اکسل ( پر کردن اطلاعات در شیت گزارش )

در شکل بالا در تصویر اول در یک شیت مجزا اطلاعاتی از قبیل تاریخ ،شماره شناسایی مشتری و یک ستون پرداخت ( بصورت Yes و No ) پر شده ....  در تصویر زیر آن قرار است در ستون های عنوان هر شماره شناسایی مشتری طبق سالی که پرداخت کرده تعداد یا کانت Yes یا No درج گردد.

۱-گرفتن شماره ردیف آخرین داده واردشده در ستون ۱ ، اگر داده خالی وجود داشته باشد شماره ردیف ماقبل آنرا را باز می گرداند پس به این نکته دقت کنید تا ستونی را انتخاب کنید که حتما تمام ردیف های آن پر باشد.

lastRow=Sheets("Data").Cells(Rows.Count,1).End(xlUp).Row

۲-معرفی آرایه پویا :

Dim Arr() 

ReDim Arr(lastRow-2,1)

۳-شماره رکورد اول در آرایه :

Num=0

۴-ذخیره داده در آرایه :( شیت تصویر اول در شکل)

For L=2 To lastRow

If Sheets("Data").Range("C" & L)=Yes Then

Arr(Num,0)=Year(Sheets("Data").Range("A" & L)

Arr(Num,1)=Sheets("Data").Range("B" & L)

Num=Num+1

End If 

Next

کانت یا شمارش با لوپ زدن در آرایه :

Counter=0

For i=0 To Num-1

If Arr(i,0)=YEAR And Arr(i,1)=ID Then

Counter=Counter+1

Next

برای درج کانت یا شمارش Yes و No طبق ID  و سال Date در تصویر پائین شکل بالا باید لوپ های تودرتو ایجاد کرد.

For YEAR=2011 To 2026

For ID=1 TO 30

'here  use Counter

NEXT

'here display in cells ( Counter )

NEXT

لوپ اول در ردیف ها ( درج تعداد ) و لوپ دوم در ستون ها 

۷ دیماه ۱۴۰۲

۷ دیماه ۱۴۰۲ : 

سید محمد شفیعی در یادداشتی برای دیپلماسی ایرانی می نویسد: ایران نیازی به دخالت مستقیم خود ندارد و می‌تواند با استفاده از نیروهای نیابتی خود (هدف قرار دادن بلندی‌های جولان از طریق خاک سوریه، تقویت انصارالله برای مختل کردن تجارت دریایی اسرائیل و تقویت حماس برای ایجاد تغییر در موازنه جنگ)، شرایط را برای اسرائیل در ادامه جنگ سخت‌تر کند و با صبر راهبردی می‌تواند این ترور را تلافی کند

۱۳ دیماه ۱۴۰۲ : عملیات تروریستی

ثارالله انکوتی در گفتگو با گروه اجتماعی پایگاه خبری تحلیلی راه آرمان که از شاهدان عینی موج انفجار ترویستی، گفت: مسیر ورودی به گلزار شهدا از سمت ورودی مسجد فروزی قتلگاه بود.

وی ادامه داد: در موکب مشغول خدمت‌رسانی بودیم که متأسفانه صدای بسیار مهیبی شنیده شد با سرعت خود را به سمت محل حادثه رساندم که زمین را از پیکر شهدا پوشیده دیدم.

دیماه ۱۴۰۲ 

رویا حشمتی براساس رأی شعبه ۲۶ دادگاه انقلاب با اتهام تبلیغ علیه نظام، به یک سال حبس محکوم شد و قرار بود که یک‌بیستم آن اجرا شود، اما در نهایت او دو روز هم بیشتر از حکم خود در زندان ماند.

رأی شعبه ۱۰۹۱ مجتمع قضائی ارشاد نیز چنین بوده است: «این دادگاه مجموعا خانم رویا حشمتی را به ۱۳ سال و ۹ حبس محکوم کرده بود. این شعبه، بابت اتهام حضور در معابر بدون حجاب شرعی، خانم حشمتی را به پرداخت یک میلیون و ۲۵۰ هزارتومان جزای نقدی، بابت اتهام تشویق به فساد و فحشا به تحمل ۱۲ سال و شش ماه حبس، بابت اتهام جریحه‌دارکردن عفت عمومی به تحمل ۷۴ ضربه شلاق تعزیری و بابت اتهام ساخت و انتشار آثاری که عفت عمومی را جریحه‌دار می‌کند، به تحمل یک سال و سه ماه حبس تعزیری، ۷۴ ضربه شلاق و ۱۰۰ میلیون ریال جزای نقدی محکوم کرد».

این حکم مورد اعتراض و تجدیدنظر خواهی قرار می‌گیرد و در نهایت با ارجاع به شعبه ۱۴ دادگاه تجدیدنظر استان تهران، رویا بابت اتهام تشویق به فساد و فحشا و ساخت و انتشار آثاری که عفت عمومی را جریحه‌دار کرده، تبرئه می‌شود. اما با اتهام حضور در معابر بدون حجاب شرعی، به پرداخت یک میلیون و ۲۵۰ هزار تومان جزای نقدی و به جهت اتهام جریحه‌دار کردن عفت عمومی به ۷۴ ضربه شلاق محکوم می‌شود و این حکم درست در روز مادر اجرا می‌شود.

تعداد روزهای بین دو تاریخ میلادی

دسترسی به سیستم فایل کامپیوتر با آبجکت FileSystemObject

موارد زیر به کراّت در این بلاگ یادآوری شده

Scripting.FileSystemObject

 پراپرتی یا ویژگیها

Properties

Drives

می توان در این مجموعه برای گرفتن درایوها لوپ زد  پراپرتی های شئ Drive را در پائینتر مشاهده کنید

'Returns a collection of all Drive objects on the computer.

Name

'Sets or returns the name of a specified file or folder.

Path

'Returns the path for a specified file, folder, or drive.

Size

'For files, returns the size, in bytes, of the specified file; for folders, returns the size, in bytes, of all files and subfolders contained in the folder.

Type

'Returns information about the type of a file or folder (for example, for files ending in .TXT, "Text Document" is returned).

Drive Object Properties : 

AvailableSpace
'Returns the amount of available space to a user on a specified drive or network share.
DriveLetter
'Returns one uppercase letter that identifies the local drive or a network share.
DriveType
'Returns the type of a specified drive.FileSystemReturns the file system in use for a specified drive.
FreeSpace
'Returns the amount of free space to a user on a specified drive or network share.
IsReady
'Returns true if the specified drive is ready, and false if not.
Path
'Returns an uppercase letter followed by a colon that indicates the path name for a specified drive.
RootFolder
'Returns a Folder object that represents the root folder of a specified drive.
SerialNumber
'Returns the serial number of a specified drive.
ShareName
'Returns the network share name for a specified drive.
TotalSize
'Returns the total size of a specified drive or network share.
VolumeName
'Sets or returns the volume name of a specified drive.

متدهای شئ FileSystemObject

Methods : 

CopyFile
CopyFolder
CreateFolder
CreateTextFile
DeleteFile
DeleteFolder
DriveExists
FileExists
FolderExists
GetAbsolutePathName
GetBaseName
'Returns the base name of a specified file or folder.
GetDrive
'Returns a Drive object corresponding to the drive in a specified path.
GetDriveName
'Returns the drive name of a specified path.
GetExtensionName
'Returns the file extension name for the last component in a specified path.
GetFile
'Returns a File object for a specified path.
GetFileName
'Returns the file name or folder name for the last component in a specified path.
GetFolder
'Returns a Folder object for a specified path.
GetParentFolderName
'Returns the name of the parent folder of the last component in a specified path.
GetSpecialFolder
'Returns the path to some of Windows' special folders.
Move
MoveFile
MoveFolder
OpenAsTextStream
'Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.
OpenTextFile
'Opens a file and returns a TextStream object that can be used to access the file.
WriteLine
'Writes a specified string and new-line character to a TextStream file.

در ابتدا با استفاده از متد CreateObject شئ FileSystemObject را ایجاد کنید و بعد از متدها و ویژگیهای آن استفاده کنید.

آذر سال ۱۴۰۲ :

MacAddress

کلاس Win32_NetworkAdapterConfiguration : 

MACAddress

Data type: string

Access type: Read-only

Qualifiers: MappingStrings ("Win32API|Device Input and Output Functions|DeviceIoControl")

Media Access Control (MAC) address of the network adapter. A MAC address is assigned by the manufacturer to uniquely identify the network adapter.

Example: "00:80:C7:8F:6C:96"

کلاس Win32_ComputerSystem و گرفتن UserName

باز کردن Windows Explorer

open Windows Explorer.

شئ WScript.Application

تابع CreateObject یک مرجع به یک شی

 اکتیو ایکس ایجاد و برمی گرداند.

عبارت Set : 

یک مرجع شی را به یک متغیر یا ویژگی اختصاص می دهد.

در زیر objApp یک متغیر است

objApp "\\Server64\folder1"