سنگ آهن

بیمه عمر

منابع

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

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

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

ACAD

Use version-dependent ProgIDs. If a CreateObject or GetObject function uses a version-independent ProgID, change the function to use a version-dependent ProgID. For example, you would change CreateObject ("AutoCAD.Application") to CreateObject ("AutoCAD.Application.16").

The application object is also the Global object for the ActiveX interface. This means that all the methods and properties for the Application object are available in the global name space.

Use the Quit method to end the AutoCAD session.

Methods Eval GetAcadState GetInterfaceObject ListARX LoadARX LoadDVB Quit RunMacro StatusID UnloadARX UnloadDVB Update ZoomAll ZoomCenter ZoomExtents ZoomPickWindow ZoomPrevious ZoomScaled ZoomWindow

Properties ActiveDocument Application Caption Documents FullName Height HWND HWND32 LocaleID MenuBar MenuGroups Name Path Preferences StatusID VBE Version Visible Width WindowLeft WindowState WindowTop

Events AppActivate AppDeactivate ARXLoaded ARXUnloaded BeginCommand BeginFileDrop BeginLISP BeginModal BeginOpen BeginPlot BeginQuit BeginSave EndCommand EndLISP EndModal EndOpen EndPlot EndSave LISPCancelled NewDrawing SysVarChanged WindowChanged WindowMovedOrResized

document_object

Sub Bill()
    'Managers to extract/parse AutoCAD drawing information
    Dim symbb As McadSymbolBBMgr
    Dim bommgr As McadBOMMgr
    Dim BOM As McadBOM
    Dim bomITEM As McadBOMItem
    Dim name As String
    Dim BOMbit As String
    Dim data As Variant


    'Defines the bill of materials managers for extraction
    Set symbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
    Set bommgr = symbb.bommgr

'Tests for BOM with the name "MAIN" in drawing, "MAIN" is default when no title border is selected
    If bommgr.BOMTableExists(ThisDrawing.ModelSpace) Then
        Set BOM = bommgr.GetBOMTable(ThisDrawing.ModelSpace, "MAIN")
    Else
        ThisDrawing.Utility.Prompt "No Usable Parts List"
        End
    End If

    For Each bomITEM In BOM.Items
        data = bomITEM.data
       
        For i = LBound(data) To UBound(data)
            Debug.Print data(i, 0), data(i, 1)  ' Is the; what; the; general; name; of; Column
            ' ' is the value in the cell
        Next
    Next
End Sub

sldworks.IBomTable

- + HEXADECIMAL VALUE

نقشه محرمانه رژیم صهیونیستی برای تجزیه سوریه به چند منطقه

نقشه-محرم... ‹ news ‹ www.mehrnews.com

۲۰ دی ۱۴۰۳ اسرائیل برای تجزیه سوریه فقط با ایران طرف نیست بلکه کشورهای عربی هم با تجزیه سوریه موافق نیستند و از طرفی مردم خود سوریه هم این‌رو نمی‌خواهند

اطمینان وزارت بهداشت از عدم شیوع ویروس اچ ام پی وی در کشور - Asriran

سلامت ‹ www.asriran.com

۱۹ دی ۱۴۰۳ · حسین کرمانپور تأکید کرد که بر اساس رصد روزانه، هیچ مورد مثبتی از ویروس اچ ام پی وی در کشور شناسایی نشده است.

آشنایی با ویروس HMPV؛ علائم و پیشگیری - ایسنا

سلامت ‹ اجتماعی ‹ www.isna.ir

۷ ساعت پیش · HMPV یک ویروس RNA تک رشته‌ای است که همانند آنفلوآنزا از طریق قطرات تنفسی یا تماس با سطوح آلوده پخش می‌شود. علائم آن شامل سرفه، تب، گرفتگی بینی و 

	Convert hex 1024 to decimal
		(1 × 163) + (0 × 162) + (2 × 161) + (4 × 160)
		4096 + 0 + 32 + 4 = 4132

Decimal Hex

0               0

1               1

2              2

3              3

4              4

5              5

6              6

7              7

8              8

9              9

10            A

11            B

12            C

13            D

14            E

15            F

91FE + B78 = 9D76

12

1 ) E(14) + 8 = 22

22 to hex :

22 / 16 = 1

22 - 1 × 16 = 6

2 ) 1 + F(15) + 7 = 23

23 to hex : 

23 / 16 = 1

23 - 1 × 16 = 7

3 ) 1 + 1 + B(11) = 13 --> D

4 ) 9 = 9

= 9D76

روش  برای تفریق دو هگزادسیمال : 

مثل تفریق دو عدد از سمت راست به چپ شروع می کنیم اگر عدد بالایی کوچکتر از پائینی بود یک واحد از عدد بغلش کسر می کنیم و برای ارقام مجاور هم اگر حاکم (govern )  بود ادامه می دهیم ....  و عدد بالایی را با ۱۶ جمع می کنیم. اگر عدد بالایی بزرگتر بود فقط همان تفریق بین دو عدد  را انجام می دهیم و به عدد مجاور کاری نخواهیم داشت.

9D76

- B78

Start From Right Side

1 ) 6 < 8  , (next column) 7 - 1 = 6 ---> 16 + 6 -8 = 14 ---> E

2 ) 6 < 7 ,(Next column ) D - 1 = C ---> 16 + 6 - 7 = 15 ---> F

3 ) C > B ---> 12 - 11 = 1

4 ) 9 ---> 9

 hex-calculator

Result : 91FE

 D83E

- A91F

1 )  E < F ---> 16 + 14 - 15 = 15 ---> F

2 ) 3 ---> 2 , 2 - 1 = 1

3 ) 8 < 9 ---> 16 + 8 - 9 = 15 ---> F

4 ) D > A ---> D(12) - A(10) = 2

hex-calculator

Result : 2F1F

 C9A

-BD7

1 ) A(10) > 7 ---> 10 - 7 = 3

2 ) 9 < D(13) , (Next column) C - 1 = B  ---> 16 + 9 - D(13) = 12 ---> C

3 ) ( B Check item 2 )  B  - B = 0

Result : C3

1D75

-E5C

1 )  5 < C(12) , (Next Column) 7 - 1 = 6 ---> 16 + 5 - 12 = 9

2 ) 6 > 5 ---> 6 - 5 = 1

3 ) D(13) < E(14) , (Next Column) 1 - 1 = 0 ---> 16 +13 - 14 = 15 ---> F

Result : F19

4BE بزرگتر از 1FC است در این مورد اگر رقم بالا کمتر بود اختلاف این دو در نظر گرفته می شود .. اگد رقم بالا بزرگتر بود از ۱۶- استفاده می کنیم و به عدد مجاورش  یک واحد اضافه می کنیم

  1FC

-4BE

1 ) C(12)<E(14) ---> 12 - 14 = -2

2 ) F(15) > B(11) , (Next Column) 1 + 1 = 2 ---> (-16) + 15 - 11 = -12 ---> - C

3 ) 2 < 4 ---> 2 - 4 = - 2

Result : -2C2

   1BA

-2AC

2AC is greater than 1BA

1 ) A < C ---> 10 - 12 = - 2

2 ) B > A , (Next Column) 1 + 1 = 2 ---> (-16) + 11 - 10 = - 15 ---> - F

Result : -F2

Hex value:
3AE – 4B8 = -10A

Decimal value:
942 – 1208 = -266

4B8 از 3AE بزرگتر است

1 ) E > 8 , (1 unit Add to Next Column ) A + 1 = B ---> (-16) +14 - 8 = - 10 ---> - A

2 ) B - B = 0 

3 ) 3 < 4 ---> 3 - 4 = - 1

Result : -10A

Hex value:
5FD – 7CC = -1CF

Decimal value:
1533 – 1996 = -463

7CC بزرگتر از 5FD است

1 ) D > C , ( Add 1 unit to Next Column ) F + 1 = 16  ---> (-16) + 13 -12 = - 15 ---> - F

2 ) 16 > C , ( Add 1 unit to Next Column ) 5 + 1 = 6 ---> (-16) + 16 + 12 = 12 ---> - C

3 ) 6 < 7 ---> 6 - 7 = - 1

Result : -1CF

Hex value:
C800 – D748 = -F48
Decimal value:
51200 – 55112 = -3912

1 ) 0 < 8 ---> 0 - 8 = - 8

2 ) 0 < 4 ---> 0 - 4 = - 4

3 ) 8 > 7 , ( Add 1 to Next Column) C + 1 = D ---> (-16) + 8 -7 = - 15 ---> - F

4 ) D -D = 0

Result : -F48

Hex value:
B158 – D800 = -26A8
Decimal value:
45400 – 55296 = -9896

1 ) 8 > 0 , (Add 1 unit to Next Column)  5 + 1 = 6 ---> (-16) + 8 -0 = - 8

2 ) 6 > 0 , (Add 1 unit to Next Column) 1 + 1 = 2 ---> (-16) + 6 - 0 = - 10 ---> - A

3 ) 2 < 8 ---> 2 - 8 = - 6

4 ) B < D ---> 11 - 13 = - 2

Result : -26A8

Hex value:
8AB – B78 = -2CD
Decimal value:
2219 – 2936 = -717

1 ) B > 8 , (Add 1 unit to Next Column) A + 1 = 11 ( B ) ---> (-16) + 11 -8 = - 13 ---> - D

2 ) B > 7 , (Add 1 unit to Next Column) 8 + 1 = 9 ---> (-16) + 11 - 7 = - 12 ---> - C

3 ) 9 > B , No next Column So No need (-16) --->  9 - 11 = - 2

Result : -2CD

Hex value:
CDAB – FAB6 = -2D0B
Decimal value:
52651 – 64182 = -11531

1 )  B > 6 , (Add 1 unit to Next Column) A + 1 = B ---> (-16) + B - 6 = - 11 ---> - B

2 ) B - B = 0

3 ) D > A , (Add 1 unit to Next Column) C + 1 = D ---> (-16) + D - A = - 13 ---> - D

4 ) D < F ---> D - F = 13 - 15 = -2

Result : -2D0B

  3AE

-5BC

5BC از 3AE بزرگتر است  ....  اگر رقم بالایی از پائینی کوچکتر بود  منها می کنیم اگر بزرگتر بود یک واحد به رقم سمت چپ اضاقه می شود و تفریق دو رقم بالا و پائین باضافه منهای ۱۶ جواب همان ستون خواهد شد

1 ) E > C , (Add 1 unit to Next Column) A + 1 = B ---> (-16) + 14 - 12 = - 14 ---> - E

2 ) A changed to B As Per 1 ---> B - B = 0

3 ) 3 < 5 ---> 3 - 5 = - 2

Result : -20E

در جمع : 

از سمت راست شروع می کنیم اگر رقم بالا  از پائین کمتر بود ( مثل C و E در مثال زیر که C کمتر است )  میشود تفریق دو رقم باضافه ۱۶ و همینطور کسر یک واحد از رقم سمت چپ بالایی   ( مثل مثال زیر که B با کسر یک واحد شد A ) ولی اگر بیشتر بود تفریق دو رقم  جواب همان ستون خواهد شد( مثل ۵ و ۲ که ۵ بزرگتر است و تفریق آن دو ۳ )

5BC + 20E = ?

1 ) E > C , (left digit > B - 1 = A ) ---> (16)+ 12 -14 = 14 ---> E

2 ) B Changed to A as per 1---> A - 0 = A

3 ) 5 > 2 ---> 5 - 2 = 3

Result : 3AE

ظریف: تصاویر تلخ آتش‌سوزی کالیفرنیا یادآور غزه است

جهان ‹ www.mashreghnews.ir

۲۱ دیماه ۱۴۰۳  به گزارش مشرق، ظریف، معاون رئیس جمهور در توئیتر نوشت: تصاویر تلخ از کالیفرنیا یادآور خانه‌ها، مدارس و بیمارستان‌های ویران شده در غزه است

UTF-16 TO UNICODE و جمع هگزا دسیمال

Add To Hex : 

D800+3D=D83D

DC00+219=DE19

DC00

+ 219

------

D (12+2)19

D       E         19

Binary Number	Hexadecimal Number
0000	0
0001	1
0010	2
0011	3
0100	4
0101	5
0110	6
0111	7
1000	8
1001	9
1010	(A(10
1011	(B(11
1100	(C(12
1101	(D(13
1110	(E(14
1111	(F(15

online-sms-pdu-decoder

0011000C918990103254760018001ED83DDE0DD83DDE19063306440627064500200639063206CC063206450020

TP-DCS : 18 ( CHECK TP-DCS VALUES )

TP-UDL : 30 ( HEX : 1E )

TP-UD : D83DDE0DD83DDE19063306440627064500200639063206CC063206450020

  DA36

+AC75

1) 6+5=11 --> B

2 )3+7=10--> A

3 ) A(10)+C(12)=22

22 to hex :

22/16=1

22-1×16=6

16

4 ) 1+D(13)+A(10)=24

24 to hex

24/16=1

24-1×16=8

18

=186AB

    BC88

+DA39

1) 8+9=17

17 to hex :

17/16=1

17-1×16=1

11

2 ) 1+8+3=12-->C

3 ) C(12)+A(10)=22

22 to hex : 

22/16=1

22-1×16=6

16

4 ) 1+B(11)+D(13)=25

25 to hex :

25/16=1

25-1×16=9

19

=196C1

   7F4B

+D654

1 ) B(11) + 4 =15-->F

2 ) 4 + 5 = 9

3 ) F(15) + 6 = 21

21 to hex :

21 / 16 = 1

21 - 1 × 16 = 5

4 ) 1 + 7 + D(13) = 21

21 to hex :

21 / 16 = 1

21 - 1 × 16 = 5

=1559F

   CA9

+6A7

1 ) 9 + 7 = 16

16 to hex : 

16 / 16 = 1

16 - 1 × 16 =0

2 ) 1 + A(10) + A(10) = 21

21 to hex :

21 / 16 = 1

21 - 1 × 16 = 5

3 ) 1 + C(12) + 6 = 19

19 to hex :

19 / 16 = 1

19 - 1 × 16 = 3 

1350

        802D

+198F

1 )  D(13) + F(15) = 28

28 to hex :

28 / 16 = 1

28 - 1 × 16 = 12 --> C

2 ) 1 + 2 + 8 = 11 --> B

3 ) 0 + 9 = 9

4 ) 8 + 1 = 9

=99BC

   99BC

+CA24

1 ) C(12) + 4 = 16

16 to hex

16 / 16 = 1

16 - 1 × 16 = 0

2 ) 1 + B(11) + 2 = 14 --> E

3 ) 9 + A(10) = 19

19 to hex : 

19 / 16 = 1

19 - 1 × 16 = 3

4 ) 1 + 9 + C(12) = 22

22 / 16 = 1

22 - 1 × 16 = 6 

= 163E0

  CDA

+4EF

1 ) A(10) + F(15) = 25

25 to hex : 

25 / 16 = 1

25 - 1 × 16 = 9

2 ) 1 + D(13) + E(14) = 28

28 to hex : 

28 / 16 = 1

28 - 1 × 16 = 12--> C

3 ) 1 + C(12) + 4 = 17

17 to hex : 

17 / 16 = 1

17 - 1 × 16 = 1

= 11C9

16^(3)×1+16^(2)×1+16^(1)×12+16^(0)×9=4553

EC4 + B78 = 1A3C

1 ) 4 + 8 = 12 --> C

2 ) C(12) + 7 = 19

19 to hex : 

19 / 16 = 1

19 - 1 × 16 = 3

3 ) 1 + E(14) + B(11)=26

26 / 16 = 1

26 - 1 × 16 = 10--> A

=1A3C

D8F0 + 25A1 = FE91

1 ) 0 + 1 = 1

2 ) F(15) + A(10) = 25

25 to hex : 

25 / 16 = 1

25 - 1 × 16 = 9

3 ) 1 + 8 + 5 = 14 --> E

4 ) D(13) + 2 = 15 --> F

= FE91

FE91 + C815 = 1C6A6

1 ) 1 + 5 = 6

2 ) 9 + 1 = 10--> A

3 ) E(14) + 8 = 22

22 to hex : 

22 / 16 = 1

22 - 1 × 16 = 6

4 ) 1 + F(15) + C(12) = 28

28 to hex : 

28 / 16 = 1

28 - 1 × 16 = 12 --> C

= 1C6A6

8CD + C09 = 14D6

1 ) D(13) + 9 = 22

22 to hex : 

22 / 16 = 1

22 - 1 × 16 = 6

2 ) 1+ C(12) + 0 = 13 --> D

3 ) 8 + C(12) = 20

20 to hex :

20 / 16 = 1

20 - 1× 16 = 4

= 14D6

Decode Alphabet-7bits SMS PDU & emoji

۱۳ دیماه ۱۴۰۳

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

UTF-16

0021000C91890910325476000804D83DDE01

0021000C91890910325476001804D83DDE01

UTF-32

0011000C9189091032547600080008000000480001f440

PROTOCOL DATA UNIT

TP-DCS=00

Decoding :

17C8329BFD064D9B5362999DB697E565B96BFC6E8700

Len : 17 (hex)

UD(user data):

C8329BFD064D9B5362999DB697E565B96BFC6E8700

-Arrange Hex From The End To The First

00876EFC6BB965E597B69D9962539B4D06FD9B32C8

-Binary

00000000 10000111

01101110 11111100

01101011 10111001

01100101 11100101

10010111 10110110

10011101 10011001

01100010 01010011

10011011 01001101

00000110 11111101

10011011 00110010

11001000

-21×8/7>reminder=0 ( reminder>0 = Remove 

-Seperate 7digits from the begining

0000000 0100001

1101101 1101111

1100011 0101110

1110010 1100101

1110010 1100101

1110110 1101001

1101100 1100101

1000100 1010011

1001101 1010011

0100000 1101111

1101100 1101100

1100101 1001000

-Add Zero To The First Of Each 7 digits

000000000010000101101101011011110110001100101110011100100110010101110010011001010111011001101001011011000110010101000100010100110100110101010011001000000110111101101100011011000110010101001000

-Change To Hex

216D6F632E7265726576696C6544534D53206F6C6C6548

-Arrange Hex From The End To The First

48656C6C6F20534D5344656C6976657265722E636F6D21

-Hex To Ascii

hex-to-ascii

online-sms-pdu-encoder

Decode following : 

16C8329BFD06DDEF779798FD3ECFD779D7F8DD0E01

Length : 16 ( Hex )

C8329BFD06DDEF779798FD3ECFD779D7F8DD0E01

00100001011011010110111101100011001011100111100101101011011100110110011101101111011011000110001000101110011101110111011101110111001000000110111101101100011011000110010101001000

216D6F632E796B73676F6C622E777777206F6C6C6548

Final : 48656C6C6F207777772E626C6F67736B792E636F6D21

hex-to-ascii

Encoding

6d6f632e796b73676f6c622e6162767373656363612e777777206b63656843202c2021756f7920656573206f6e20656d697420676e6f4c202c206948

Count : 60 ( Hex : 3c = 3×16+12

011011010110111101100011001011100111100101101011011100110110011101101111011011000110001000101110011000010110001001110110011100110111001101100101011000110110001101100001001011100111011101110111011101110010000001101011011000110110010101101000010000110010000000101100001000000010000101110101011011110111100100100000011001010110010101110011001000000110111101101110001000000110010101101101011010010111010000100000011001110110111001101111010011000010000000101100001000000110100101001000

60×8÷7=68.57

60×8-68×7=4 ( Zero Quantity to Add)

0000110110111011111100011010111011110011101011111001111001111101111110110011000100101110110000111000101110110111001111100111100101110001111000111100001010111011101111110111111011101000001101011110001111001011101000100001101000000101100010000001000011110101110111111110010100000110010111001011110011010000011011111101110010000011001011101101110100111101000100000110011111011101101111100110001000000101100010000011010011001000

0DBBF1AEF3AF9E7DFB312EC38BB73E7971E3C2BBBF7EE835E3CBA21A058810F5DFE5065CBCD06FDC832EDD3D1067DDBE62058834C8

TP-UDL:3C

TP-UD: C834880562BEDD67103DDD2E83DC6FD0BC5C06E5DFF51088051AA2CBE335E87EBFBBC2E371793EB78BC32E31FB7D9EAFF3AEF1BB0D

0011000C918909103254760000AA3CC834880562BEDD67103DDD2E83DC6FD0BC5C06E5DFF51088051AA2CBE335E87EBFBBC2E371793EB78BC32E31FB7D9EAFF3AEF1BB0D

Length UD=3C(IN HEX)=60

Length: 66

AT+CMGS=69

0031000A91091032547600108F40C834880562BEDD67103DDD2E83DC6FD0BC5C06E5DFF51088051AA2CBE335E87EBFBBC2E371793EB78BC32E31FB7D9EAFF3AEF1BB0D82B3F5

TP-PID : 00

TP-DCS(7bits) :10 (flash message)

TP-VP : 8F : 12hours

3c6120687265663d2268747470733a2f2f7777772e6163636573737662612e626c6f67736b792e636f6d223e416c693c2f613e

Types of SMS Message

There are four classes of an SMS message. Classes identify the importance of an SMS message and also the location where it must be stored.

Class 0

This type of SMS message is displayed on the mobile screen without being saved in the message store or on the SIM card; unless explicitly saved by the mobile user.

Class 1

This message is to be stored in the device memory or the SIM card (depending on memory availability).

TP-DCS ( DCS VALUE S)

HEX:18

UCS2

Class 0 ( Flash message )

HEX:10

GSM 7bit

Class 0 ( Flash message )

HEX:00

GSM 7bit

Default

HEX:08

UCS2

Default

HEX:28

UCS2

Default

+ ( Compression ... Character set not compressed )

Decimal 1605 To Hex : 

                                   Reminder

1605/16 100        5  ( 1605-16×100)

100/16    6               4 (100-16×6)

6/16           0              6 (6-16×0)

Hex : 645 ( Unicode : 0645 )

16^(2)×6+16^(1)×4+16^(0)×5=1605

To encode U+10437 to UTF-16:

• Subtract 0x10000 from the code point, leaving 0x0437.
• For the high surrogate, shift right by 10 (divide by 0x400), then add 0xD800, resulting in 0x0001 + 0xD800 = 0xD801.
• For the low surrogate, take the low 10 bits (remainder of dividing by 0x400), then add 0xDC00, resulting in 0x0037 + 0xDC00 = 0xDC37.

To decode U+10437  from UTF-16:

• Take the high surrogate (0xD801) and subtract 0xD800, then multiply by 0x400, resulting in 0x0001 × 0x400 = 0x0400.
• Take the low surrogate (0xDC37) and subtract 0xDC00, resulting in 0x37.
• Add these two results together (0x0437), and finally add 0x10000 to get the final code point, 0x10437.

01F619-1000=0F619

Binary : 

0000 1111 0110 0001 1001

Separate 10 digits : 

0000 1111 01     10 0001 1001

Add  1101 10 , 1101 11

1101 10 0000 1111 01     1101 11 10 0001 1001

Separate 4 digits

1101 1000 0011 1101      1101 1110 0001 1001

Hex : 

D              8          3          D                 D         E           1           9

online-sms-pdu-decoder

0021000C91890910325476000804D83DDE19

OR 

U+01F619

1F619-Subtract(10000)=F619

Hex(400)=16^2×4+16^1×0+16^0×0=1024

Hex(F619)=63001

Hex value:
F619 ÷ 400 = 3D Remainder : 219

Decimal value:
63001 ÷ 1024 = 61 Remainder : 537

3D=3×16+13=61

D800=

16^(3)×13+16^(2)×8+16^(1)×0+16^(0)×0=55296

55296+61= 55357

55357 to Hex : 

55357 / 16  3459  13 ( D ) 

3459 / 16   216 3  ( 3 )

216 / 16 13  8 ( 8 ) 

13 / 16  0  13 ( D ) 

D83D

DC00

16^(3)×13+16^(2)×12+16^(1)×0+16^(0)×0=56320

56320+537= 56857

56857 to Hex : 

56857 / 16 3553 9 ( 9 )

3553 / 16 222 1 ( 1 )

222 / 16 13 14 ( E )

13 / 16 0 13 ( D )

DE19

Add To Hex : 

D800+3D=D83D

DC00+219=DE19

DC00

+ 219

------

D (12+2)19

D       E         19

0021000C91899010325476000804D83EDD13

برخی مقامات ارشد نظامی اسرائیل اکنون بر این باور هستند که به جای حمله به حوثی‌ها در یمن «اقدام مستقیم» علیه ایران باید در اولویت قرار گیرد.

قسمتی از ماژول تبدیل میلادی به شمسی و اختلاف دو تاریخ شمسی

کپسول تامیفلو (تامی فلو) 45 میلی گرم | TAMIFLU Capsule 45 mg

TAMIFLU-Capsule-4... ‹ www.darooyab.ir

موارد مصرف کپسول تامیفلو (تامی فلو) 45 میلی گرم. ضد ویروس(مهارکننده نورآمینیداز ویروس آنفلوآنزا). الف- درمان عفونت حاد انفلوانزای نوع Aو B بدون عارضه

در تابع Shamsi در دو متغیر تاریخ شمسی و میلادی مبنا ذخیره میشود ، با تابع DateDiff خود اکسس اختلاف روزهای دو تاریخِ روز و تاریخ میلادی مبنا محاسبه شده و اگر بزرگتر از صفر بود به تابع AddDay پاس داده میشود تا این تعداد روز بدست آمده به تاریخ شمسی مبنا اضافه شود هر چقدر تاریخ مبنا با تاریخ روز نزدیک تر شود جواب سریعتر پاسخ داده میشود یعنی هر چند سال یکبار باید تاریخ مبناها را عوض کنید.

Public Function shamsi() As Long
Dim Shamsi_Mabna As Long
Dim Miladi_mabna As Date
Dim Dif As Long
Shamsi_Mabna = 13791012
Miladi_mabna = #1/1/2001#
Dif = DateDiff("d", Miladi_mabna, Date)
If Dif < 0 Then
MsgBox "?!!!"
Else
shamsi = AddDay(Shamsi_Mabna, Dif)
End If
End Function

در تابع زیر کبیسه بودن سال شمسی را مشخص میکند البته از Mod 4 برای تمام سال های شمسی از ابتدا تا ... نمی توان استفاده کرد چون سال کبیسه ۵ ساله هم وجود دارد.

برای تشخیص سال‌های کبیسه در گاه‌شماری رسمی ایران شیوه کاملاً یکنواختی وجود ندارد. برای سال‌های ۱۲۴۴ تا ۱۳۴۲ چنانچه باقی‌ماندهٔ حاصل تقسیم سال مورد نظر بر عدد ۳۳، یکی از اعداد (۱، ۵، ۹، ۱۳، ۱۷، ۲۱، ۲۶ و ۳۰) باشد آن سال کبیسه خواهد بود.و برای سال‌های اخیر (سال‌های ۱۳۴۳ تا ۱۴۷۲)، به‌جای ۲۱، باقی‌ماندهٔ ۲۲ ملاک خواهد بود. برای دیگر سال‌ها و دوره‌ها نیز به مراتب تفاوت‌هایی در اعداد هشتگانه فوق وجود دارد. برای نمونه سال ۱۳۹۱ سالی کبیسه است چراکه باقی‌ماندهٔ تقسیم آن بر عدد ۳۳ برابر عدد ۵ است.

Public Function Kabiseh(ByVal OnlySal As Variant) As Integer

Kabiseh = 0

If OnlySal >= 1375 Then

If (OnlySal - 1375) Mod 4 = 0 Then

Kabiseh = 1

Exit Function

End If

ElseIf OnlySal <= 1370 Then

If (1370 - OnlySal) Mod 4 = 0 Then

Kabiseh = 1

Exit Function

End If

End If

End Function

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

Public Function Diff(ByVal FromDate As Long, ByVal To_Date As Long) As Long

Dim Tmp As Long

Dim s1, m1, r1, s2, m2, r2 As Integer

Dim Sumation As Single

Dim Flag As Boolean

Flag = False

If FromDate = 0 Or IsNull(FromDate) = True Or To_Date = 0 Or IsNull(To_Date) = True Then

Diff = 0

Exit Function

End If

If FromDate > To_Date Then

Flag = True

Tmp = FromDate

FromDate = To_Date

To_Date = Tmp

End If

r1 = Rooz(FromDate)

m1 = mah(FromDate)

s1 = Sal(FromDate)

r2 = Rooz(To_Date)

m2 = mah(To_Date)

s2 = Sal(To_Date)

Sumation = 0

Do While s1 < s2 - 1 Or (s1 = s2 - 1 And (m1 < m2 Or (m1 = m2 And r1 <= r2)))

If Kabiseh((s1)) = 1 Then

If m1 = 12 And r1 = 30 Then

Sumation = Sumation + 365

r1 = 29

Else

Sumation = Sumation + 366

End If

Else

Sumation = Sumation + 365

End If

s1 = s1 + 1

Loop

Do While s1 < s2 Or m1 < m2 - 1 Or (m1 = m2 - 1 And r1 < r2

Select Case m1

Case 1 To 6

If m1 = 6 And r1 = 31 Then

Sumation = Sumation + 30

r1 = 30

Else

Sumation = Sumation + 31

End If

m1 = m1 + 1

Case 7 To 11

If m1 = 11 And r1 = 30 And Kabiseh(s1) = 0 Then

Sumation = Sumation + 29

r1 = 29

Else

Sumation = Sumation + 30

End If

m1 = m1 + 1

Case 12

If Kabiseh(s1) = 1 Then

Sumation = Sumation + 30

Else

Sumation = Sumation + 29

End If

s1 = s1 + 1

m1 = 1

End Select

Loop

If m1 = m2 Then

Sumation = Sumation + (r2 - r1)

Else

Select Case m1

Case 1 To 6

Sumation = Sumation + (31 - r1) + r2

Case 7 To 11

Sumation = Sumation + (30 - r1) + r2

Case 12

If Kabiseh(s1) = 1 Then

Sumation = Sumation + (30 - r1) + r2

Else

Sumation = Sumation + (29 - r1) + r2

End If

End Select

End If

If Flag = True Then

Sumation = -Sumation

End If

Diff = Sumation

End Function

در تابع زیر تاریخ شمسی را میگیرد و تعداد روزهایی که باید اضافه شود را به آن اضافه میکند تا تاریخ جدیدی بدست آید ( از تابع MahDays برای استخراج تعداد روزهای هر ماه هم در آن استفاده شده است.) . بدین نحو عمل میکند روی عدد که به add اختصاص میدهید عملیاتی انجام میدهد و آن در لوپی قرار داده میشود یعنی تا زمانیکه add بزرگتراز صفر است این لوپ ادامه می یابد مثلاً اگر add از تعداد روزهای ماه کمتر باشد روز میشود روز + عدد add و عدد را هم برابر صفر قرار میدهیم تا دوباره مورد استفاده قرار نگیرد.

Public Function AddDay(ByVal F_Date As Long, ByVal add As Integer) As Long

Dim K, m, S, R, Days As Integer

R = Rooz(F_Date)

m = mah(F_Date)

S = Sal(F_Date)

K = Kabiseh(S)

Days = MahDays(S, m)

If add > Days - R Then

add = add - (Days - R + 1)

R = 1

If m < 12 Then

m = m + 1

Else

m = 1

S = S + 1

End If

Else

R = R + add

add = 0

End If

While add > 0

K = Kabiseh(s)

Days = MahDays(S, m)

Select Case add

Case Is < Days

R = R + add

add = 0

Case Days To IIf(K = 0, 365, 366) - 1

add = add - Days

If m < 12 Then

m = m + 1

Else

S = S + 1

m = 1

End If

Case Else

S = S + 1

add = add - IIf(K = 0, 365, 366)

End Select

Wend

AddDay = (S * 10000) + (m * 100) + (R)

End Function

مثال ۲۷۹ روزبه تاریخ ۱۶ ۱۲ ۱۳۷۰ اضافه شود 

۱۳۷۰ ۱۲ ۱۶

add=۲۷۹

R=۱۶

m=۱۲

s=۱۳۷۰

K=۱ چون سال ۱۳۷۰ کبیسه است

پاسکاری سال و ماه به تابع MahDays برای استخراج تعداد روز در متغیر Days و چون سال کبیسه است پس ۳۰ روز را بر می گرداند

Days=۳۰

چون add بزرگتر از Addays-R است add میشود و R را یک قرار می دهیم ، چون ماه ۱۲ است عدد m را یک در نظر میگیریم و به عدد سال هم اضافه میکنیم

add=۲۷۹-(۳۰-۱۶+۱)=۲۶۴

R=1

m=1

s=۱۳۷۱

حالا محاسبات تبدیل این ۲۶۴ رابه روزه و ماه باید انجام دهیم بنابراین درون لوپی قرار میگیرد.

K=0 چون سال ۱۳۷۱ کبیسه نیست

Days=MahDays(۱۳۷۱,۱)=۳۱

در لوپ از Select Case استفاده شده دو قسمت کرده  ( برای محاسبه سریعتر ) یکی مواردیکه add کمتر از عدد متغیر days باشد ( یعنی کمتر از عدد ماه ) و دوم مواردیکه add تا رنج خاصی باشد ( To متغیر Case ) 

در add=۲۶۴ از قسمت دوم استفاده شده چون ۲۶۴ در رنج days تا ۳۶۵ یا ۳۶۶ منهای یک قرار میگیرد ،  m را قبلا یک قرار دادیم

m=1

add = add - days

add =۲۶۴ - ۳۱ (ماه ۱ )=۲۳۳

m = m+۱ = ۱ + ۱ =۲

ماه ۲ در تابع MahDays قرار میگیرد

add = add - days

add =۲۳۳ - ۳۱ = ۲۰۲

m = m+۱ = ۱ + ۱ =۲

همینطور کسورات انجام میشود تا عدد add به ۱۸ میرسد و عدد m هم میشود ۸ یعنی آذر ماه در اینجا چون add از عدد ماه ۸ کمتر شده از Case مورد اول استفاده میشود.

R = R + add

R = ۱ + ۱۸ = ۱۹

S = ۱۳۷۱

۱۳۷۱ ۰۸ ۱۹

البته باید ۱۸ بشود چون اختلاف بین دو تاریخ ۱۶ ۱۲ ۱۳۷۰ تا ۱۳۷۱ ۰۸ ۱۸ میشود۲۷۹ روز به باحساب مراجعه شود.

در قسمت CASE ELSE فرضاً اگر عدد add بالاتر از ۳۶۵ یا ۳۶۶ ( منهای یک ) باشد یک عدد به عدد سال اضافه میکند و بعد این اعداد از عدد add کسر میشوند و تا جایی ادامه پیدا میکند که عدد مانده درون یکی از دو کیس قرار گیرد یعنی یا کمتر از عدد ماه مربوطه شود یا بین عدد ماه تا عدد سال باشد و بعد درون مورد اول قرار گیرد.

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

Function MahDays(ByVal Sal As Integer, ByVal mah As Integer) As Integer

Select Case mah

Case 1 To 6

MahDays = 31

Case 7 To 11

MahDays = 30

Case 12

If Kabiseh(Sal) = 1 Then

MahDays = 30

Else

MahDays = 29

End If

End Select

End Function

Function SubtractDay(ByVal F_Date As Long, ByVal Subtract As Long) As Long

Dim K, m, S, R, Days As Integer

R = Rooz(F_Date)

m = mah(F_Date)

S = Sal(F_Date)

K = Kabiseh(S)

If Subtract >= R - 1 Then

Subtract = Subtract - (R - 1)

R = 1

Else

R = R - Subtract

Subtract = 0

End If

While Subtract > 0

K = Kabiseh(S - 1)

 

Days = MahDays(IIf(m >= 2, S, S - 1), IIf(m >= 2, m - 1, 12))

Select Case Subtract

Case Is < Days

R = Days - Subtract + 1

Subtract = 0

If m >= 2 Then

m = m - 1

Else

S = S - 1

m = 12

End If

Case Days To IIf(K = 0, 365, 366) - 1

Subtract = Subtract - Days

If m >= 2 Then

m = m - 1

Else

S = S - 1

m = 12

End If

Case Else

S = S - 1

Subtract = Subtract - IIf(K = 0, 365, 366)

End Select

Wend

SubtractDay = (S * 10000) + (m * 100) + (R)

End Function

۲۰ آدر ۱۴۰۳

حقیقتی که به زودی افشا می شود

فراربشاراسد و آزادی زندانیان درست مثل تجاوز طالبان به افغانستان 

تجاوز جنسی گسترده در زندان مخوف صیدنایا

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

طبق گزارش الجزیره، نخستین برخورد انقلابیون با زندان صیدنایا شوکه کننده بوده است. انقلابیون زندانیانی را آزاد کرده اند که به مدت 40 سال در سلول های تنگ و تاریک صیدنایا زندانی بوده اند. «راغید الطاطاری» یکی از این زندانیان است. او خلبان نیروی هوایی سوریه بود که ۴۳سال پیش به علت سرپیچی از دستور بمباران حماه توسط حافظ اسد زندانی شد. او دیروز از زندان صیدنایا آزاد شد.

شبکه الجزیره از جنازه‌های تازه زندانیان کشته شده توسط رژیم اسد در صیدنایا گزارش تهیه کرده و خبرنگارش به نقل از چند شاهد در صحنه می‌گوید این جسدها که همگی بر اثر شکنجه به قتل رسیده‌اند حداکثر مربوط به ۱۰ تا ۱۴ روز قبل از سقوط بشار اسد است.

از چندماه قبل به مسئولین سوری هشدار لازم و گزارش اطلاعاتی داده بودیم

از-چندماه-قبل-به-... ‹ article ‹ news ‹ inn.ir

۸ دقیقه پیش · یکی از درس‌های این مسئله‌ی غفلت است، غفلت از دشمن؛ بله در این حادثه دشمن با سرعت عمل کرد، اما اینها بایستی از قبل از حادثه می‌فهمیدند که این

ببینید | روایت خبرنگار صداوسیما در دمشق از لو دادن اطلاعات اماکن حیاتی ...

فیلم ‹ ... ‹ www.khabaronline.ir

۱۶ ساعت پیش · حسینی، خبرنگار صداوسیما در دمشق گفت: بعضی از فرماندهان بلندپایه بشار اسد اطلاعات دقیقی از اماکن حیاتی ارتش سوریه به رژیم صهیونیستی دادند!

دولت انتقالی سوریه از ۸ کشوری که فعالیت دیپلماتیک خود را در دمشق ...

بین الملل ‹ www.asriran.com

۷ ساعت پیش · دولت انتقالی سوریه امروز پنجشنبه ( ۲۲ آذر ۱۴۰۳ ) از هشت کشور به دلیل بازگشایی سریع مراکز دیپلماتیک خود پس از سرنگونی رژیم بشار اسد تشکر کرد

اولین بیانیه بشار اسد بعد از سقوط: تا عصر روز قبل‌ از سقوط دولت در ...

بین الملل ‹ www.asriran.com

۴ ساعت پیش · اولین بیانیه بشار اسد بعد از سقوط: تا عصر روز قبل‌ از سقوط دولت در دمشق بودم · سوریه پس از سقوط بشار اسد: برنامه برای انحلال گروه‌های مسلح و لغو

independentpersian ✓

Twitter › indypersian

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

Twitter • ۳ ساعت پیش ( ۲ دیماه ۱۴۰۳ )

شئ لیست باکس و پراپرتی های کاربردی

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

فرار بشار اسد یا مقاومت !!!

شاهزاده سادو

بنابر قوانین دربار، پادشاه یئونگجو نمی‌توانست با دستان خود پسرش را بکشد؛ بنابراین به سادو دستور داده شد تا در یک روز گرم از ماه ژوئیه ۱۷۶۲ ( ۴ ژوئیه سال ۱۷۶۲) در داخل یک مخزن برنج بزرگ چوبی قرار بگیرد سپس آن مخزن را قفل و زنجیر کردند و بعد از هشت روز و در تاریخ ۱۲ ژوئیه ۱۷۶۲ ولیعهد سادو بر اثر خفگی فوت کرد. ( قتل پسر بدست پدر )

لیست باکس را می توان به جدول متصل کرد یا با استفاده از Vba و متدهای AddItem بصورت Unbound آیتم هایی را اضافه نمود.

از پراپرتی RowSourceType ( بهمراه پراپرتی RowSource ) برای  چگونگی ارتباط داده با شئ مورد نظر استفاده میشود که ۳ نوع دارد Table/Query ، Value List ، Field List حتماً یکی از این ها باید مشخص گردند.

Use the RowSourceType property (along with the RowSource property) to tell Microsoft Access how to provide data to the specified object. Read/write String.

Forms!Employees
cmboNames.RowSourceType = "Table/Query"
Forms!Employees!cmboNames.RowSource = "EmployeeList"

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

Use the ListCount property to determine the number of rows in a list box. Read/write Long.

می توانید در یک لیست باکس با استفاده از همین پراپرتی لوپ زده و مقادیر را بگیرید.

پراپرتی ListIndex برای تعیین اینکه کدام آیتم در لیست باکس انتخاب شده استفاده می شود.

Use the ListIndex property to determine which item is selected in a list box. Read/write Long.

از پراپرتی Selected در ویژوال بیسیک برای تعیین اینکه آیا یک آیتم در لیست باکس انتخاب شده استفاده می شود.

Use the Selected property in Visual Basic to determine if an item in a list box is selected. Read/write Long.

expression.Selected(row)

Use the Selected property to select items in a list box by using Visual Basic. For example, the following expression selects the fifth item in the list:

Me!Listbox.Selected(4) = True

ListCtl.Selected(intCount) = True

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

Use the ColumnCount property to specify the number of columns displayed in a list box or in the list box portion of a combo box, or sent to OLE objects in a chart control or unbound object frame. Read/write Integer.

expression.ColumnCount

از پراپرتی Column برای ارجاع به یک ستون معین یا ترکیبی از ستون و ردیف در یک لیست باکس یا کمبوباکس چند ستونه استفاده میشود.

Use the Column property to refer to a specific column or column and row combination in a multiple-column combo box or list box. Read-only Variant.

expression.Column (Index, Row)

زمان انتخاب از یک لیست باکس پراپرتی BoundColumn تعیین میکند که کدام مقادیر ستون  بعنوان مقدار کنترل استفاده شود اگر به یک فیلد محدود شود مقدار  در ستون مشخص شده توسط  پراپرتی BoundColumn در فیلدی که در پراپرتیControlSource نامگذاری شده ذخیره میشود.

When you make a selection from a list box, the BoundColumn property tells Microsoft Access which column's values to use as the value of the control. If the control is bound to a field, the value in the column specified by the BoundColumn property is stored in the field named in the ControlSource property. Read/write Long.

expression.BoundColumn

پراپرتی ItemData داده در ستون باندی برای ردیف مشخص شده در یک لیست باکس را باز می گرداند

The ItemData property returns the data in the bound column for the specified row in a list box. Read-only Variant.

expression.ItemData (Index)

از پراپرتی ItemsSelected زمانی استفاده میشود که بخواهید لوپی در موارد انتخابی و بازیابی مقادیر با پراپرتی ItemData بزنید.

For Each ObjItm In ctl.ItemsSelected

Use the ItemsSelected collection in conjunction with the Column property or the ItemData property to retrieve data from selected rows in a list box or combo box. You can list the ItemsSelected collection by using the For Each...Next statement.

برای Clear ( خارج شدن از انتخاب ) کردن انتخاب ها از پراپرتی Selected که در بالا گفته شد باید استفاده شود و مقدار آن به False طبق هر ایندکس انتخابی تنظیم شود .برای حالت چند انتخاب و خارج شدن از انتخابشان مجبورید در لیست باکس لوپ بزنید!!!

mFilter = "id in("

For Each varItm In ctl.ItemsSelected

mFilter= mFilter & varItm & ","

Next

mFilter = Mid(mFilter, 1, Len(mFilter) - 1) mFilter = mFilter & ")"

strx = strx & ",'" & lst1.ItemData(Itemm) & "'"

strSQL = "INSERT INTO tblNamesSelected(ContactID,FirstName,LastName) " & _ "SELECT ContactID,FirstName,LastName " & _ "FROM tblNames " & _ "WHERE ContactID = " & ctrl.ItemData(Itemm)

If List9.ItemsSelected.Count = 0 Then
     MsgBox "You must first select 1 or more list items"
     Exit Sub
End If

در شکل زیر تمام داده های موجود در کمبو باکسی که فهرست نام جداول را دارد به لیست باکس کپی میشود همینطور کپی تمام داده های ستون دوم  کمبوباکس با نام customer name به لیست باکس. 

نکته تنظیم RowSourceType به Table/Query

برای کپی کردن از لوپ زدن با استفاده از پراپرتی listCount-1 استفاده میشود و برای اضافه کردن از پراپرتی AddItem ... پراپرتی لیست باکس نیز به Value List تغییر می یابد.

به دیزاین فرم نگاه کنید همانطور که می بینید در برگه پراپرتی کمبوباکس ، ۳ ستون از جدول گفته که آورده شود منتهی چرا ستون اول را نمی بینید ؟ چون عرض ستون را صفر تنظیم شده

List1.AddItem (cbo1.Column(1, i))

شماره ستون ها از صفر شروع میشود.صفر بمنزله ستون اول است

Use the Column property to refer to a specific column or column and row combination in a multiple-column combo box or list box. Read-only Variant.

expression.Column (Index, Row)

AddItem Method

Adds a new item to the list of values displayed by the specified list box control.

expression.AddItem (Item, Index)

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

reel ‹ voafarsi ‹ www.instagram.com

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

چرا سوریه برای روسیه مهم است؟/ دلایل پیشروی سریع «تحریر الشام

خاورمیانه ‹ بین الملل ‹ www.tabnak.ir

۱۸ ساعت پیش · سوریه برای مسکو مهم است، زیرا مداخله در آنجا در سال ۲۰۱۵ به پوتین اجازه داد تا روایت افول روسیه را که از زمان فروپاشی اتحاد جماهیر شوروی به وجود

۱۲ آذر ۱۴۰۳

تروریستها بر سر اداره شهر حلب به جان هم افتادند - خبرگزاری مهر

تروریستها-بر-... ‹ news ‹ mehrnews.com

۵۲ دقیقه پیش · این رسانه اعلام کرد که تروریستهای هیئت تحریر الشام و جیش الاسلام بر سر اداره شهر حلب به جان هم افتاده اند. خبرنگار المیادین بیان کرد که اختلافات

بشار اسد کجاست؟ +عکس - سایت طلا

سیاسی ‹ www.tala.ir

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

روئسای نهاد‌های اطلاعاتی اسرائیل به نتانیاهو گفتند اتفاقات سوریه ...

خاورمیانه ‹ بین الملل ‹ www.entekhab.ir

۱ ساعت پیش · رؤسای اطلاعاتی اعلام کردند که "تحولات اخیر به نظر مثبت می‌رسند. " اما، به گفته آنان، "سقوط حکومت اسد احتمالاً منجر به هرج و مرجی خواهد شد که

منابع محلی فاش کردند: حضور نیروهای اوکراینی دوشادوش تروریست‌ها در حلب!

منابع-محلی-فا... ‹ news ‹ mehrnews.com

۴ ساعت پیش · منابع آگاه در شهر حلب از استقرار نیروهای اوکراینی در کنار عناصر تروریست در این شهر خبر دادند

تروریست ها وارد شهر "حماة" شدند - Asriran

بین الملل ‹ www.asriran.com

۱۴ ساعت پیش · امروز ابومحمد الجولانی، رهبر گروه تروریستی تحریرالشام، با حضور در مقابل دوربین موبایل نیروهایش به شایعات پایان داد. در چند روز اخیر، شایعه کشته

ادعای تازه تروریست‌های تحریرالشام: وارد شهر حماه شدیم - اقتصاد آنلاین

بین الملل ‹ ... ‹ www.eghtesadonline.com

۲ ساعت پیش · شبکه تلویزیونی الجزیره خبر داد که نیروهای تحریر الشام وارد اولین محله های شهر حماة، مرکز استان حماة شدند. یک منبع نظامی سوری ورود گروه‌های مسلح 

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

العالم – سوریه

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

بنا به این گزارش ارتش سوریه روز گذشته موفق شد بیش از ۳۰۰ جنگجوی مجهز و آموزش دیده تروریستی موسوم به "کلاه قرمزها" را که به نزدیکی قمحانه و المجدل در اطراف حماه رسیده بودند در یک کمین به دام انداخته و همه آنان را به قتل برساند.

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

۱۶ آذر ۱۴۰۳ - ۱۳:۲۳

منطقه‌ای سرنوشت‌ساز برای سوریه

گزارشی از چگونگی سقوط شهر حَما/ حٌمص، مقصد بعدی مخالفان بشار اسد

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

در همین راستا الجولانی فرمانده نیروهای تحریرالشام در ویدیوی کوتاهی که تلگرام منتشر شد، خطاب به ساکنان شهر گفت: «من به شما قول می دهم که برادران انقلابیون مجاهدین شما برای پاکسازی زخمی که در سوریه به مدت ۴۰ سال ادامه داشت، وارد شهر حما شده اند.»

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

پیشروی برق‌آسا در سوریه؛ آیا حمص نقطه پایان اسد خواهد بود؟ - اکو ایران

7... ‹ بخش-سیاست-جهان-110 ‹ ecoiran.com

۲ ساعت پیش · حمص محل پالایشگاه نفتی اصلی سوریه بوده و تصرف آن راه ارتباطی پایتخت به ساحل مدیترانه را قطع خواهد کرد؛ جایی که پایگاه دریایی مهم روسیه در طرطوس

شورشیان سوری به دمشق نزدیک‌تر شدند؛ آیا حمص سقوط خواهد کرد؟

سوریه ‹ جهان ‹ ... ‹ parsi.euronews.com

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

بشار اسد از دمشق سوریه فرار کرد ؟ - تجارت نیوز

بین الملل ‹ سیاسی ‹ tejaratnews.com

۱ ساعت پیش · یک خبرنگار بین المللی عرب‌زبان نوشته: به طور رسمی تایید شد که بشار اسد به همراه خانواده خود سوریه را ترک کرد. این خبر تایید یا رد نمی‌شود

جنگ سوریه : "درعا" در 130 کیلومتری جنوب دمشق بدون شلیک یک گلوله ...

سیاسی ‹ www.asriran.com

۱۰ ساعت پیش · - شهر درعا در جنوب سوریه به دست مخالفان مسلح دولت افتاد. این شهر 130 کیلومتر با دمشق فاصله دارد. الجزیره در این باره گزارش داد که نیروهای ارتش 

هشدار اسرائیل به ایران در خصوص ارسال سلاح به سوریه در پوشش ...

post ‹ gunaz.tv

این منبع تاکید کرد اسرائیل در بحبوحه تلاش‌های امداد و نجات در سوریه، از حمله به هر محموله تسلیحاتی که ایران به سوریه بفرستد، تردید نخواهد کرد

۱۷ آذر ۱۴۰۳ عصرایران - جنگ داخلی در سوریه ادامه دارد. گروه های مسلح و مخالفان مسلح از طیف های گوناگون تلاش می کنند با تصرف شهرها و مناطق مختلف به شهر دمشق برسند و حکومت بشار اسد رئیس جمهوری سوریه را سرنگون کنند.

سقوط حامیان ایران؛ خاورمیانه بعد از حذف اسد به کدام سمت می‌رود؟ - شهر خبر

news ‹ www.shahrekhabar.com

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

گزارش میدان؛تخریب پل میان حماه-حمص و نبرد در جنوب سوریه - تسنیم

گزارش-م... ‹ news ‹ www.tasnimnews.com

همزمان با این رویارویی‌ها نیروی هوایی سوریه و روسیه پل بزرگ «رستن» که حمص را به حماه متصل می نماید، تخریب کردند تا سرعت حرکت مخالفان مسلح به سوی

یک فروند هواپیمای شکاری آموزشی متعلق به وزارت دفاع و پشتیبانی نیروهای مسلح حین پرواز آزمایشی ساعت ۱۴:۴۵ امروز، ۱۴ آذرماه ۱۴۰۳ پس از بازآماد در ارتفاعات بین کوه‌های شهرستان‌های فیروزآباد و قیر استان فارس دچار سانحه شد و با ارتفاعات منطقه برخورد کرد.

در این حادثه سرهنگ حمیدرضا رنجبر و سرهنگ منوچهر پیرزاده خلبانان هواپیمای مذکور به شهادت رسیدند.

8 نکته درباره این روزهای سوریه و آینده آن: از «اسد تنهای تنهای تنها» تا «

سیاسی ‹ www.asriran.com

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

ارتش سوریه در حال گرفتن زمام امور در حمص و حماه - تابناک | TABNAK

خاورمیانه ‹ بین الملل ‹ www.tabnak.ir

ارتش سوریه در حال گرفتن زمام امور در حمص و حماه. ارتش سوریه اعلام کرد موقعیت نیروهای خود در استان‌های «درعا» و «السویداء» در جنوب سوریه را تغییر

۱۷ آذر ۱۴۰۳ ارتش سوریه در حال بازپس گیری حمص و حماه

اسرائیل منتظر سقوط حمص است

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

فوری/ سقوط فرودگاه دمشق و رادیو و تلویزیون سوریه - دنیای اقتصاد

سایت خوان ‹ donya-e-eqtesad.com

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

حکومت بشار اسد سقوط کرد / دمشق در کنترل کامل مخالفان / فرار ... - Asriran

سیاسی ‹ www.asriran.com

حکومت بشار اسد سقوط کرد / دمشق در کنترل کامل مخالفان / فرار بشار اسد / جولانی ، نخست وزیر را مسئول انتقال قدرت کرد / لاذقیه هم سقوط کرد (+فیلم).

و سرانجام با این هجمه تبلیغاتی بشار اسد سقوط و فراری شد و این نیز در تاریخ ماند البته ماندگار نخواهد بود

نیویورک‌تایمز: جمهوری اسلامی فرماندهان نظامی خود را از سوریه خارج ...

ny-report-iran-begins-t... ‹ ir.voanews.com

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

بقایی: خبر مربوط به تخلیه سفارت ایران در دمشق صحت ندارد - هم میهن

دیپلماسی ‹ خانه ‹ hammihanonline.ir

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

سربازان سوری به عراق پناهنده شدند

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

او به خبرگزاری عراق گفت که این سربازان از طریق گذرگاه مرزی القائم در استان الانبار وارد عراق شدند.

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

تصویر زیر فوتبال زنان عربی اسلامیست مگر اینها به حجاب  مثل بانوان فوتبالیست ایرانی پایبند نیستند؟!!!

تایید هدف قرار گرفتن هواپیمای بشار اسد توسط اسرائیل - اقتصاد آنلاین

بین الملل ‹ ... ‹ www.eghtesadonline.com

بغداد الیوم همچنین گفته: «آنچه که تاکنون برای ما تأیید شده، این است که بشار اسد به‌دلیل هدف‌قرارگرفتن هواپیمایش توسط اسرائیل، کشته شده است».

روسیه: بشار اسد زنده است و به روسیه پناهنده شده - هم میهن

بین‌الملل ‹ خانه ‹ hammihanonline.ir

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

با سوءاستفاده از اوضاع دمشق؛ اسرائیل دهها جنگنده سوریه را منهدم کرد

با-سوءاستفاده-از-او... ‹ news ‹ fa.alalam.ir

 رسانه صهیونیستی از تلاش تل آویو جهت سوء استفاده از اوضاع سوریه برای توسعه طلبی و تداوم حملات هوایی به تاسیسات نظامی این کشور و انهدام دهها

انفجارهای شدید در اطراف حرم حضرت زینب (س)؟ - جماران

بخش-بازنشر-59 ‹ www.jamaran.news

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

۱۹ آذر ۱۴۰۳

یک شیمیدان برجسته در دمشق ترور شد - Asriran

حوادث ‹ www.asriran.com

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

ترور یک شیمیدان برجسته در دمشق | سایت انتخاب - Entekhab.ir

خاورمیانه ‹ بین الملل ‹ www.entekhab.ir

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

ترور یک عالِم دینی در دمشق | جهان نیوز

ترور-یک... ‹ news ‹ www.jahannews.com

۷ دقیقه پیش · ترور یک عالِم دینی در دمشق. منابع رسانه‌ای سوریه از ترور شیخ توفیق البوطی فرزند شیخ محمد سعید رمضان توسط مهاجمان ناشناس در دمشق خبر دادند

وخامت اقتصادی سوریه پس از استقرار 37 گروه تروریستی- تکفیری در ...

اخبار ‹ سرویس کیهان ‹ kayhan.ir

۱۶ ساعت پیش · ... سوریه هم بسیار وخیم خواهد شد. در حالی که گروه‌های تروریستی- تکفیری در دمشق مستقر هستند، شبه‌نظامیان کُرد تحت حمایت آمریکا هم در شرق سوریه

نتانیاهو در حال شادی و مسرور از شکست بشاراسد فراری در حال بمباران انبارهای مهمات و تاسیسات نظامی مهم و الکترونیکی سوریه

در زندان صیدنایا سوریه چه خبر بوده؟ یکی از مخوف‌ترین زندان‌های دنیا با ...

بین الملل ‹ فیلم ‹ www.asriran.com

۱ روز پیش · تصاویر دوربین‌های مداربسته زندان صیدنایا در سوریه، پرسش‌های بی‌پاسخ بسیاری را در ذهن‌ها ایجاد کرده است.

از چندماه قبل به مسئولین سوری هشدار لازم و گزارش اطلاعاتی داده بودیم

از-چندماه-قبل-به-... ‹ article ‹ news ‹ inn.ir

۸ دقیقه پیش · یکی از درس‌های این مسئله‌ی غفلت است، غفلت از دشمن؛ بله در این حادثه دشمن با سرعت عمل کرد، اما اینها بایستی از قبل از حادثه می‌فهمیدند که این

ببینید | اعدام‌های بدون محاکمه و رفتارهای خشونت‌آمیز عناصر ...

فیلم ‹ ... ‹ www.khabaronline.ir

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

ببینید | روایت خبرنگار صداوسیما در دمشق از لو دادن اطلاعات اماکن حیاتی ...

فیلم ‹ ... ‹ www.khabaronline.ir

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

دولت انتقالی سوریه از ۸ کشوری که فعالیت دیپلماتیک خود را در دمشق ...

بین الملل ‹ www.asriran.com

۷ ساعت پیش · دولت انتقالی سوریه امروز پنجشنبه ( ۲۲ آذر ۱۴۰۳ ) از هشت کشور به دلیل بازگشایی سریع مراکز دیپلماتیک خود پس از سرنگونی رژیم بشار اسد تشکر کرد

مقبره حافظ اسد ... به مرده هم رحم نکردند

بنابر گزارش ایرنا، روز گذشته ( آذر ۱۴۰۳ ) خودروی حامل سه معلم که از شهرستان خوی به سمت قطور در حال حرکت بود، درحادثه‌ای از پل و جاده خارج و در نهایت واژگون شد. این سه معلم در این حادثه جان خود را از دست دادند.

روز شنبه متن کامل قانون عفاف و حجاب در رسانه ها منتشر شد. بر این اساس، طبق ماده یکم از تبصره دوم ماده ۳۲، «مهاجرین یا اتباع بیگانه‌ای» که «مجوز اقامت رسمی از وزارت کشور» دارند، امکان امر به معروف و نهی از منکر را دارا هستند.

مثلاً افغانستانی به ایرانی می تونه درمورد حجاب تذکر بده ببینید مجلس رو کیا اداره می کنن!!!

استعمارِ انگلیس نبود «فارسی» زبان اولِ دنیا بود؛ پادشاهان هند به فارسی شعر می‌گفتند

علیرضا قزوه می‌گوید اگر استعمار انگلیس نبود، امروز زبان اول دنیا «فارسی» بود و ما گویش‌ور اصلی در هند بودیم. انگلیس برای نابودی زبان فارسی در هند ۳۰۰ سال کار کرده و از ما جلوتر است

«دانه انجیر معابد» شعاری با ۳ ساعت ادا و اطوار پوچ - روزنامه جوان

اخبار کلی ‹ ... ‹ www.javanonline.ir

۱ آبان ۱۴۰۳ · رسول‌اف که اساساً نابلدی در کارگردانی را در فیلم‌هایش فریاد می‌زند، در دانه انجیر معابد هم سنگ تمام گذاشته است تا اثری سیاه بسازد، به طوری که

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

تاریخ اکران: ۱۸ سپتامبر ۲۰۲۴ (فرانسه)

مدیر: محمد رسول‌اف

جوایز: Cannes Special Jury Prize

فیلم‌نامه: محمد رسول‌اف

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

HyperLink در اکسس

در تکست باکس 

Dim h as Hyperlink

Set h=ctl.Hyperlink

With h

.Address

.SubAddress

.Follow

End With

Properties

Control.Hyperlink.EmailSubject

Control.Hyperlink.Address

Control.Hyperlink.SubAddress

Control.Hyperlink.TextToDisplay

Control.Hyperlink.ScreenTip

Forms.Item(index)

An expression that specifies the position of a member of the collection referred to by the expression argument.

If a numeric expression, the Index argument must be a number from 0 to the value of the collection's Count property minus 1.

If a string expression, the Index argument must be the name of a member of the collection.

Forms.Item("FormName").Controls.Item("Label11")

امام على علیه السلام : من خداوند سبحان را به درهم شکستن عزمها و فرو ریختن تصمیمها و برهم خوردن اراده ها و خواستها شناختم .

Group by در اکسس

تجمیع شدن رکوردها بر اساس لیست فیلدها انجام میشود اگر تمام داده های فیلدها در رکوردها یکی باشند در کوئری یک رکورد (قدیمی ترین رکورد ثبت شده ) از مجموع رکوردها نمایش داده میشود. 

GROUP BY در Access رکوردها را با مقادیر یکسان در لیست فیلد مشخص شده در یک رکورد واحد ترکیب می کند. اگر یک تابع یکپارچه سازی SQL مانند Sum یا Count را در دستور SELECT وارد کنید، یک مقدار خلاصه برای هر رکورد ایجاد می‌شود.

Syntax

SELECT fieldlist
FROM table
WHERE criteria
[GROUP BY groupfieldlist]

مقادیر Null در فیلدهای Group By   دسته بندی می شوند و حذف نمیگردند . اگر چه مقادیر Null در هیچ تابع یکپارچه سازی Sql ای ارزیابی نمی شوند.

رکوردهایی که در تمام فیلدها مقادیر یکسانی دارند در صورتی که در نمای طراحی کوئری در نوار بالا علامت زیگما زده شود در یک رکورد نمایش داده می شود.

با استفاده از نوعی از تابع که aggregate function نامیده می شوند می توان جمع ستونی از اعداد در یک کوئری را بدست آورد. این توابع محاسباتی را روی یک ستون داده اجرا می کنند و یک مقدار واحد را باز می گردانند. اکسس توابع  aggregate گوناگونی را فراهم نموده است ، که شامل Avg ، Sum ، Count ( برای محاسبه میانگین ها ) ، Min و Max است . با استفاده از تابع Sum در کوئری می توانید جمع برنید یا با تابع Count تعداد داده را بدست آورید.

اطلاعات id و name یکسان هستند . اگر شما Price هم در Group by اضافه کنید تمام رکوردها نمایش داده میشوند.

در تصویر زیر Group By یا تجمیع طبق لیستی از فیلدهای id ، name ، dt انجام شده چون فیلد آخر تاریخ مقادیر یکسانی ندارند تمام رکوردها از هر  id نمایش داده شده .

یک رکورد در id 123 با تاریخ یکسان به جدول اضافه شد زمان گروه بندی اگر از فیلد dt استفاده کنیم ملاحظه می کنید رکورد آخری که اضافه کردیم نمایش داده نمیشود

چنانچه گروه بندی با دو فیلد id و name انجام شود رکوردها را تجمیع میکند و فقط رکوردهایی از آنها که در ابتدا ثبت شده اند لیست میشود.

رکورد با قیمت ۴۵۰۰۰ حذف شد و رکورد جدیدی با همین قیمت اضافه شد در  گروه بندی کردن این قیمت لیست نمیشود

عبارت Name در تغییر نام فایل یا انتقال آن

عبارت Name نام یک فایل را تغییر می دهد و آنرا به دایرکتوری یا پوشه متفاوت منتقل میکند ، در صورت لزوم Name. می تواند یک فایل را در بین درایوها جابجا کند. اما تنها زمانی می تواند یک دایرکتوری یا فولدر را تغییر نام دهد که نام مسیر جدید و قدیمی در یک درایو قرار داشته باشند Name. نمی تواند یک فایل ، دایرکتوری ( فهرست )  یا پوشه ( فولدر ) جدید ایجاد کند.

استفاده از Name در یک فایل باز خطا ایجاد میکند . باید قبل از تغییر نام ،  آنرا بست . آرگومان های Name. نمی توانند شامل کاراکترهای چندگانه (*) و تک کاراکتری (؟) باشند.

Syntax

Name oldpathname As newpathname

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

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

زمانی می تواند یک دایرکتوری یا فولدر را تغییر نام دهد که نام مسیر جدید و قدیمی در یک درایو قرار داشته باشند

old = "C:\MYDIR\OLDFILE": new= "C:\YOURDIR\NEWFILE"

 ' Move and rename file

Name oldName As newName

.

آشنایی با تابع Switch : 

exp1,value1,exp2,value2

اگر عبارت ۱ وجود داشته باشد تابع مقدار عبارت یک را بر میگرداند . اگر عبارت ۱ نباشد ( False ) اما عبارت ۲ باشد تابع value عبارت۲ را برمی گرداند و به همین ترتیب.

if expr-1 is True, Switch returns value-1. If expr-1 is False,but expr-2 is True, Switch returns value-2, and so on.

در موارد زیر مثل False بودن عبارات یا Null بودن مقدار عبارت اول در صورت بودن  ، این تابع Null را برمی گرداند.

Switch returns a Null value if:

-None of the expressions is True.

-The first True expression has a corresponding value that is Null.

SELECT ProductSales.ProductID, Switch([ProductID]="PRO_XYZ1","First",[ProductID]="PRO_XYZ2","Two",[ProductID]="PRO_XYZ1","Ten") AS testSwitch FROM ProductSales;

پراپرتی Controls.Item

دانشجوی زن این دانشگاه به وسیله آمبولانس اورژانس اجتماعی به مرکزی برای اقدامات درمانی منتقل شده است: «وزیر علوم این موضوع را از رئیس دانشگاه آزاد پیگیری کرده و او از کلانتری با اورژانس اجتماعی مستقیماً به مراکزی برای درمان منتقل شده‌ است.» لباس شخصی سپاه و امنیت نبوده!!!

سخنگوی دولت : نگاه دولت به موضوع دختر علوم و تحقیقات امنیتی اجتماعی است، نه امنیتی / هنوز پرونده قضایی تشکیل نشده ...  حتماً جون خودشون امنیتی نیست کل رسانه های خارجی دارن مانور میدن و عکس لختش رو بُلد کردن انگار داخل شهر نو می چرخه

پراپرتی Item عضو خاصی از یک مجموعه را با استفاده از Position یا Index برمی گرداند

expression.Item(index)

ایندکس : 

عبارتیکه موقعیت عضو مجموعه اشاره شده به آنرا توسط آرگومان expression تعیین میکند. اگر عبارت عددی باشد آرگومان ایندکس باید شماره ای از 0 تا مقدار پراپرتی Count مجموعه منهای یک باشد. اگر عبارت رشته ای باشد ، آزگومان ایندکس باید نام عضو مجموعه باشد

Frame3.Controls.item(Frame3.Value - 1 ).caption

rs.Fields.Item(Countfields).Name

آبان ۱۴۰۳

پزشکیان: اگر اسرائیل آتش بس را بپذیرد ممکن است نوع و شدت پاسخ ...

سیاسی ‹ www.asriran.com

۲ روز پیش · پزشکیان: اگر اسرائیل آتش بس را بپذیرد ممکن است نوع و شدت پاسخ ما تغییر کند · پزشکیان : موشک های ما برای حمله به کسی نیست / جنگ امروز جنگ اقتصادی

زمان عملیات وعده صادق ۳ از قول جانشین فرمانده‌کل سپاه

سیاسی ‹ www.shahrekhabar.com

۲ روز پیش · جانشین فرمانده‌کل سپاه درباره زمان عملیات وعده صادق ۳ گفت: درباره جزئیات آن نمی‌توان اظهارنظر کرد اما حتماً انجام خواهد شد

ترامپ: پس از پیروزی صلح را به خاورمیانه خواهم آورد - مشرق نیوز

جهان ‹ www.mashreghnews.ir

۳ روز پیش · اگر ترامپ طرفدار لبنان و غزه بود پس چرا اسرائیلیها از او دفاع می کنند و منتظر نشستن او هستند مگر نه اینکه دامادش کوشنر یک یهودی تبار و خودش 

هاروپ (پهپاد) - ویکی‌پدیا، دانشنامهٔ آزاد

هاروپ_(پهپاد) ‹ wiki ‹ fa.wikipedia.org

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

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

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

Do While Not rs.EOF

' Display current record information. Add 1 to

' AbsolutePosition value because it is zero-based.

strMessage = "Employee: " & !LastName & vbCr & _ "(record " & (.AbsolutePosition + 1) & _ " of " & .RecordCount & ")"

If MsgBox(strMessage, vbOKCancel) = vbCancel Then

Exit Do

rs.MoveNext

Loop 

انتخاب چند رکورد در دیتاشیت فرم

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

iran-student-naked ‹ alainpersian.com

۲۳ ساعت پیش · این دختر دانشجو در دانشگاه آزاد واحد علوم و تحقیقات تهران در اقدامی اعتراضی به برخورد ماموران حراست و تلاش آنان برای تحمیل حجاب اجباری، تقریبا

کتایون ریاحی، بازیگر شناخته‌شده که در دوران اعتراضات ۱۴۰۱ حجاب اجباری را کنار گذاشته بود، با انتشار پستی در اینستاگرام از این دانشجو حمایت کرد و نوشت: «یک‌دیگر را تنها نمی‌گذاریم.»

پراپرتی SelHeight فرم

برای تعیین یا مشخص کردن  تعداد ردیف های انتخابی ( رکورد ) در  مستطیل انتخاب جاری در رکوردهای جدول یا کوئری یا دیتاشیت فرم یا تعداد رکوردهای انتخاب شده در یک فرم continuous .

پراپرتی SelHeight یک مقدار Long Integer بین صفر و تعداد رکوردها در دیتاشیت فرم  یا فرم continuous را باز میگرداند.  اگر هیچ انتخابی نباشد مقدار بازگشتی این ویژگی صفر خواهد بود. تنظیم این پراپرتی به صفر انتخاب از دیتاشیت یا فرم را برمی دارد. اگر ستون های بیشتری در یک دیتاشیت  انتخاب شود نمی توان تنظیم پراپرتی SelHeight را تغییر داد ( مگر اینکه با تنظیم به صفر از حالت انتخاب درآید). این پراپرتی را با پراپرتی های SelTop و SelLeft برای تعیین یا مشخص کردن موقعیت واقعی مستطیل انتخابی در دیتا شیت استفاده کنید. اگر هیچ انتخابی نباشد این دو پراپرتی شماره ردیف و ستونی که فوکس کردید را بازمی گرداند. پراپرتی های SelHeight و SelWidth حاوی موقعیت گوشه راستی پائین در مستطیل انتخابی است و SelTop و SelLeft گوشه چپ بالایی مستطیل انتخابی است.

پراپرتی SelTop فرم

این پراپرتی مقداری بین 1 و تعداد رکوردها در دیتاشیت یا فرم کانتینیوس بازمی گرداند. اگر هیچ انتخابی نباشد مقدار بازگشتی توسط این ویژگی ردیف و ستونی است که فوکس دارد.

پراپرتی SelLeft فرم 

از این پراپرتی برای تعیین یا مشخص کردن اینکه کدام ستون ( فیلد )  در چپ ترین مستطیل انتخابی است استفاده می شود. مقدار بازگشتی آن بین 2 و تعداد فیلدها ( ستون ها ) در دیتاشیت + 1 است ( اکسس شمارش را از 0 شروع میکند ) . دو ستون اول همیشه record selector ستون و  علامت باز و بسته شدن ستون ( expand / collapse ) برای یک subdatasheet است.  اگرهیچ  انتخابی صورت نگیرد مقدار برگشتی ردیف و ستون سلولی است که فوکس گرفته. نمی توان تنظیم این پراپرتی را تغییر داد. 

از این پراپرتی ها با پراپرتی های SelHeight و SelWidth برای تعیین یا مشخص کردن اندازه واقعی مستطیل انتخابی استفاده کنید.

پراپرتی های SelTop و SelLeft موقعیت گوشه چپ بالایی انتخاب شده در مستطیل را تعیین میکنند

پراپرتی SelHeight و SelWidth گوشه راست پائینی در مستطیل انتخابی را مشخص می کنند.

خلاصه : 

تعداد ردیف های انتخاب شده : SelHeight و مقدار بازگشتی بین صفر تا تعداد رکوردها در دیتاشیت

تعداد ستون های انتخاب شده : SelWidth

بالاترین  ردیف انتخاب شده : SelTop و مقدار بازگشتی بین 1 تا تعداد رکوردها

چپ ترین ستون انتخابی : SelLeft و اکسس شمارش را از صفر شروع میشود فقط 2 ستون اول برای انتخابگر رکورد و علامت برای نمایش زیر شاخه هاست ،  ولی مقدار بازگشتی برای subdatasheet از 2 تا فیلد+ 1 است.

عریان شدن زن علوم و تحقیقات ۳۰ ساله و مطلقه دارای دو فرزند دانشجوی زبان فرانسه دانشگاه مازاد نه آزاد 

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

طبق توصیف حضرات یعنی زن علوم و تحقیقات یک روانی بیش نیست !!! احتمالاً خواندن زبان فرانسه برای پیوستن به فرانسه بوده یا قصد تابعیت اجنوی ها در سرش می پرورانده .