This topic is a little part of programming in access , We have reached to this goal just with efforts and more exercises also studying the Microsoft Office Documents and their various forums
ادامه...
نخست‌وزیر لهستان گفت: درحال آماده‌شدن برای جنگ با روسیه هستیم. ما در زمان جنگ زندگی میکنیم.
فرمانده انتظامی تهران بزرگ تاکید کرد که اتباع بیگانه ای که در داخل کشور و به خصوص تهران هستند باید مجوز داشته باشند و اگر نداشته باشند باید از کشور خارج شوند.
۱۲ مرداد ۱۴۰۳
طی روزهای گذشته عوامل مرتبط با شرکت خصوصی کنسرسیوم ریلی افغانستان، دست به اقدامات غیر قانونی در حریم ریلی جمهوری اسلامی ایران زد که پس از ممانعت همکاران فنی و حفاظتی راه آهن جمهوری اسلامی ایران، متاسفانه عوامل این کنسرسیوم، پرسنل راه آهن ایران را ضرب و شتم نموده و شیشه خودروی آنها را نیز خرد کردند.
سردار محمدیان فرمانده انتظامی تهران بزرگ در نشست خبری گفت: اتباع بیگانه که داخل کشور هستند باید دارای مجوز باشند، اگر مجوز اقامت نداشته باشند یعنی حضور غیر مجاز و کسانی که اینها را به کار می‌گیرند جرم مرتکب شدند و مشمول جریمه‌های سنگین توسط اداره کار میشوند.
طبق ماده ۱۲۰ قانون کار، اتباع بیگانه نمی‌توانند در ایران مشغول به کار شوند مگر آنکه دارای روادید ورود با حق کار مشخص بوده و مطابق قوانین و آیین‌نامه‌های مربوطه، پروانه کار دریافت کرده باشند.
آفتاب مایل می‌تابد روی صورت گندمگون و گرد «زعفران». روسری گلدارش پر رنگ است؛ آبی، صورتی و سفید با پیراهن نخی بلندی به رنگ آفتابگردان، باغچه و دریا. چشم‌های حبه‌انگوری‌اش رد اتوبوس‌ها را میگیرد؛ اتوبوس‌های سفید، آبی و زرد که از میان کوچه خاکی، سوت‌زنان، غول سیاه آهنی را رد می‌کنند و وارد محوطه‌ای بزرگ میشوند؛ خیلی بزرگ.
به گزارش هم‌میهن، «روزی حداقل ۱۵-۱۰تا از این اتوبوس‌ها وارد مرکز میشوند. هرکدام با هر تعداد صندلی که داشته باشند، حداقل ۴۵ نفر را سوار می‌کنند. حالا می‌خواهند صندلی ۵۲ تایی باشند، می‌خواهند ۲۸ تایی. هر نفر یک‌میلیون و ۸۰۰ هزار تومان تا مشهد.» توضیحات احمد رفیق، راننده یکی از اتوبوس‌ها.
مسیر اتوبوس از این مرکز در شهرستان کرج تا اردوگاه سفیدسنگ است؛ سفیدسنگ یکی از مراکز بزرگ نگهداری مهاجران افغانستانی است، در ۱۹ کیلومتری شهرستان فریمان در استان خراسان رضوی. از کرج تا سفیدسنگ، ۱۲ ساعت راه است و پول مسیر را خود مهاجران باید پرداخت کنند؛ سهمی از آن هم به نیروی انتظامی، وزارت کشور و... می‌رسد.
زعفران، نام زن جوان منتظر است که برگه سفید مچاله‌شده‌ای را با خواهرش رعنا دست‌به‌دست میکند. رعنا و زعفران، گوشه دیوار، در همسایگی در آهنی، به زحمت سایه‌ای پیدا کرده‌اند و طوری که زانو‌ها را بغل کرده باشند، نشسته‌اند و گوشی‌های تلفن همراه بین‌شان دست‌به‌دست میشود: «پول داری؟ وقت نداریم. تا ظهر رحیم را می‌برند.» برای آزادی رحیم ۱۰ میلیون تومان می‌خواهند، روی برگه دو شماره کارت بانک با خودکار آبی نوشته شده، یکی به‌نام آقای ج و یکی به‌نام آقای ر. حساب‌ها شخصی است؛ هرکدام ۵ میلیون تومان.چرا به حساب شخصی می‌زنی؟
نمی‌دانم خانم. به ما گفتند این را واریز کن، شوهرت آزاد میشود.
رحیم کارگر افغانستانی است، صبح روز سه‌شنبه، آفتاب نزده، او را با گروهی دیگر از همشهریانش در مسیر کار در نظرآباد دستگیر کرده و به مرکز ساماندهی اتباع و مهاجران خارجی استان البرز آورده‌اند؛ مرکزی در یکی از فرعی‌هایی نزدیک به میدان استاندارد کرج.
از میانه کوچه، جمعیت دیده میشوند. زنان و مردان اطراف در بزرگ آهنی نشسته‌اند و چشمان منتظرشان به در دوخته شده. لای در، جایی که قرار بوده دوطرفش چفت هم شود، چشم‌ها در جست‌وجویند؛ چشم‌های کشیده پدر، مادر، فرزند، خواهر و برادر آنها که آن‌طرف در آهنی، در جایی شبیه قفس، زندانی شده‌اند. اینجا زندانی بزرگ است با دیوار‌هایی مشبک.
از شیار در، آنها را مثل نقطه‌هایی قرمز، سفید و مشکی میشود دید؛ رنگ پیراهن‌هایشان است. تعدادی را ردیف نشانده‌اند در حیاط، زیر هرم آفتاب. یکی از روزهای گرم تابستان که سازمان هواشناسی هشدار گرمای بی‌سابقه‌اش را داده. گروهی، اما پشت دیوارهای مشبک نشسته‌اند، دورتر از دامنه دیدند.
زعفران برگه سرشماری را نشان میدهد. صبح آن روز، کپی همین برگه در جیب رحیم بوده، مامور نیروی انتظامی دیده، پاره کرده و او را سوار مینی‌بوس کرده. مینی‌بوسی شبیه به آنکه ساعت ۱۰:۲۰ دقیقه صبح، تعداد زیادی از افغانستانی‌ها را حسرت به دل، از کنار خانواده‌های منتظر رد کرد و به داخل برد. جوانک‌هایی با چشمان ترس‌خورده و نوجوانانی آشفته.
ماموران سبزپوش، بالای سر افغانستانی‌ها گوشه حیاط، ایستاده‌اند. در که به استقبال اتوبوس‌های خالی باز میشود، تصاویر بیشتری از محوطه، محل نگهداری افغانستانی‌ها نمایان میشود. صدای قیژقیژ باز شدن در و بعد فریاد هولناک بسته‌شدن آن، خانواده‌ها را به‌سمت در می‌برد. درِ آهنی دریچه دارد، مثل دریچه‌های شیشه‌ای داخل سالن انتظار.
سالن انتظار ۱۰ قدم دورتر از ورودی اتوبوس‌ها، غلغله است؛ صندلی‌ها کم و جمعیت بسیار زیاد. زنان و کودکان، کیف و کیسه به دست، در انتظار شنیدن صدایشان نشسته‌اند. تعدادی مقابل دریچه شیشه‌ای که زنانه و مردانه شده، دست‌ها را دراز کرده‌اند به‌سمت سربازی که فارغ از دنیا، روی تک صندلی نشسته و روی کاغذ اسم‌ها را می‌نویسد. برای او نگاه‌ها و صدا‌های ملتمسانه خانواده‌های مهاجر، کمترین اهمیت را دارد. آن‌طرف پسران، همسران، پدران و برادران نشسته‌اند و این‌طرف، منتظران.
افغانستانی‌های بدون مدرک را در خیابان‌های شهرستان‌های استان البرز دستگیر می‌کنند و به این مرکز می‌آورند؛ آنها در مسیر خانه، در مسیر کار، در صف نانوایی، در حال رفتن به درمانگاه یا قدم‌زدن در خیابان هستند که با ماموران چشم در چشم میشوند و در پاسخ به سوال‌شان که مدرک داری؟ برگه‌ای بیرون می‌آورند. یا شاید همان برگه را هم نداشته باشند.
«شوهرم داخل است، ۲۶-۲۵ ساله است، دو روز سمت هشتگرد بود که او را گرفتند. موتوربند است. پدر و مادرش را طالبان در افغانستان کشته‌اند و با دختر ۶ ساله‌مان در هشتگرد زندگی میکنیم. اگر پول داشتیم، مدرک می‌خریدیم و حالا این وضعمان نبود.» اینها را عارفه میگوید.
عارفه زنی است که ۶ سال پیش همراه با همسرش غلامحسین به ایران آمدند، پاسپورتی‌اند، اما تمدید نکردند. آخرین‌بار که برای تمدید رفتند به آنها گفته شد، باید کارت هوشمند بگیرند. کارت هوشمند، اما ۱۰۰ میلیون تومان است. سرپرست خانواده و فرزند پسر بالای ۱۸ سال باید این کارت را داشته باشند تا بتوانند در ایران بمانند و کار کنند. ماموران برگه سرشماری را قبول نمیکنند. نه برگه سرشماری، نه پاسپورت و نه دفترچه و کارت اقامت.
۱۱ شهریور ۱۴۰۳
امانی با بیان اینکه پس از املاک فرسوده، حضور گسترده اتباع بیگانه یکی دیگر از مشکلات محلات تهران از جمله محله اتابک است، اظهار کرد: رئیس شورای شهر تهران دو مرتبه مکاتبه با وزیر کشور داشته و در مورد حضور اتباع در محلات توضیح دادند و این موضوع را به وزیر کشور منعکس کردند و نکته جالب این است که تعدادی از زنان اتباع گالون‌های ۲۰ لیتری بنزین دارند و سرچهارراه به موتوری‌ها بنزین می‌فروشند و این مسئله جای تعجب است.
در این بین کارشناسان معتقدند شرایط حضور این اتباع در کشورمان طوری هست که اصلاً توان شناسایی آنها را نداریم، چه برسد که حاکمیت بخواهد آنها را به کشورشان برگرداند. سیدحسن موسوی چلک، رئیس انجمن مددکاران اجتماعی ایران با حضور در کافه خبر خبرآنلاین همین نکته را بیان میکند: «همه می‌دانند که ما الان توان اخراج مهاجرین و آوارگان غیرقانونی عراقی و افغانستانی از ایران را نداریم، در دورترین نقطه کشور هم دارند کار می‌کنند، اصلاً نمی‌دانیم کجا هستند، چراکه شناسنامه‌ای از این گروه‌ها نداریم.»
اوا ادامه میدهد: «اما شما وقتی وارد کشور دیگری می‌شوید از آنجا که مجوز دارید کاملاً شما را رصد می‌کنند، اینکه توانایی فرد چیست از کجا آمده است چرا آمده است همه این موارد را می‌دانند، یعنی اطلاعات آدم‌ها را بهروز شده در اختیار دارند، درحالیکه ما از مهاجرهایی که وارد کشور ما شدند چیزی نداریم.»
شعبووون بی مخ
مرداد ۱۴۰۳
آلن دلون
سه فرزند او روز یکشنبه در بیانیه‌ای به خبرگزاری فرانسه گفتند که آلن دلون، اسطوره سینمای فرانسه، در سن ۸۸ سالگی درگذشت.
در این بیانیه آمده است: آلن فابین، انوشکا، آنتونی و همچنین (سگ او) لوبو، با اندوه عمیق اعلام کردند که پدرشان درگذشت. خانواده خواستار حفظ حریم خصوصی هستند.
بانک مرکزی در بخشنامه‌ای خطاب به مدیران عامل شبکه بانکی اعلام کرد: اولویت در پرداخت تسهیلات بانکی با محوریت تسهیلات قرض‌الحسنه ازدواج و تسهیلات موضوع قانون حمایت از خانواده و جوانی جمعیت، قانون جهش تولید مسکن و… است و هرگونه اعطای تسهیلات بدون در نظر گرفتن اولویت‌های یادشده فاقد وجاهت بوده و مورد پذیرش نیست. ( اخیراً برای حساب وکالتی خودرو بانک ها حدود ۸۰ میلیون وام تخصیص می دهند که در صورت برنده شدن فرد به وی تعلق خواهند گرفت. )
۲۸ مرداد ۱۴۰۳
«دونالد توسک»، نخست‌وزیر لهستان روز یکشنبه از آماده شدن ارتش این کشور برای «جنگ محتمل» با روسیه خبر داد و گفت: «ما در زمان جنگ زندگی میکنیم... امروز اعلام میکنم که با هم، هر روز هر کاری از دستمان بر‌آید انجام خواهیم داد تا اطمینان حاصل کنیم که لهستان، ارتش لهستان و مردم لهستان دیگر مجبور نشوند روی معجزه حساب کنند.»
طی چند روز اخیر ارتش اوکراین با تکیه بر سلاح‌های جدیدی که از غرب و مشخصاً ایالات متحده، آلمان و انگلستان دریافت کرده، برای نخستین بار موفق شد در عمق خاک روسیه نفوذ کند. فشار آتش اوکراین به اندازه‌ای قوی بود که ارتش روسیه در برخی مناطق اقدام به عقب‌نشینی و همچنین تخلیه شهروندان کرده است
سسکوریا گفت: «کلید موفقیت اوکراین این بود که آنها توانستند با مقاومت کم یا بدون مقاومت به راحتی وارد خاک روسیه شوند. این برای روس‌ها یک غافلگیری کامل بود و نشان میدهد که سرویس‌های اطلاعاتی روسیه واقعاً نتوانستند هیچ نوع حمله اوکراینی را در منطقه پیش‌بینی کنند».
سالهاست سارقین با خیال راحت از نحوه مجازات و دستگیری به کار خود مشغول هستند و روزی یکی دوتا و شاید سه تا گوشی سرقت می‌قاپند یا با تهدید قمه و چاقو به زور صاحب می شوند. یک روز فیلم آنها در اتوبان صدر منتشر میشود و روز دیگر در خیابانی دیگر. یک روز گوشی فرد معمولی را می قاپند و روز دیگر گردنبند علی دایی را از گردنش می رباید. روزی دیگر بانویی باردار را به طمع طلا و گوشی در خیابان خفت می کنند و روز دیگر دختر فلان بازیگر معروف را با قمه تهدید می‌کنند.
ویژگیهای مسیح دَجّال در آخر الزمان
ای مردم! خداوند پیامبری را به رسالت مبعوث نکرد جز آنکه قومش را از دجّال ترسانید و خدای تعالی آن را تا به امروز بر شما تأخیر انداخته است و اگر امر بر شما مشتبه شد بدانید که خداوند یک چشم نیست و دجّال بر حماری که فاصله بین دو گوشش یک میل است خروج میکند و بیشتر پیروان او یهود و زنان و اعرابند و به همه کرانه‌های زمین جز مکّه و دو حومه آن و مدینه دو حومه آن درآید.
۷ دیماه ۱۴۰۲
خبرگزاری فارس-گروه زندگی: دو خانم مانتویی مسافر مترو تهران به دختری بی‌حجاب می‌گویند که پوشش نامناسبی برای حضور در اماکن عمومی دارد و بهتر است شکم برهنه‌اش را بپوشاند. دختر جوان در مقابل این درخواست، میگوید: «زندگی خودمه، دخالت نکنید، اگه با پوشش من مخالفید، جمع کنید و از ایران برید».
در تقویم میلادی نو سالهایی که بر ۴ بخش‌پذیر باشند (باقی‌ماندهٔ تقسیم آن سال بر ۴ برابر ۰ باشد) کبیسه هستند با این استثنا که از میان سالهایی که بر ۱۰۰ بخش‌پذیرند (سالهای انتهای سده)، تنها آنهایی که بر ۴۰۰ نیز بخش‌پذیرند کبیسه هستند.
Private Function IsLeap(ByVal varYear As Integer) As Integer
If (varYear Mod 4 = 0 And varYear Mod 100 <> 0) Or (varYear Mod 400 = 0) Then
IsLeap = 1
Else
IsLeap = 0
End If
End Function
سرآغاز گاهشماری ایران روز جمعه «۱ فروردین سال ۱ هجری خورشیدی» (۲۹ شعبان ۱ سال پیش از هجرت) برابر با ۱۹ مارس ۶۲۲ میلادی قدیم (یولیانی) و ۲۲ مارس ۶۲۲ میلادی جدید (گرگوری) است؛ یعنی، ۱۱۹ روز پیش از مبدأ گاهشماری هجری قمری و ۱۷۹ روز پیش از هجرت.
بر اساس محاسبات مرکز تقویم مؤسسهٔ ژئوفیزیک دانشگاه تهران که مرجع رسمی تقویم ایران است، از سال ۱۲۰۶ تا ۱۴۹۸ هجری شمسی این سالها کبیسه بوده‌اند یا خواهند بود:
۱۲۱۰، ۱۲۱۴، ۱۲۱۸، ۱۲۲۲، ۱۲۲۶، ۱۲۳۰، ۱۲۳۴، ۱۲۳۸، ۱۲۴۳
(۳۳ساله)، ۱۲۴۷، ۱۲۵۱، ۱۲۵۵، ۱۲۵۹، ۱۲۶۳، ۱۲۶۷، ۱۲۷۱، ۱۲۷۶
(۳۳ساله)، ۱۲۸۰، ۱۲۸۴، ۱۲۸۸، ۱۲۹۲، ۱۲۹۶، ۱۳۰۰، ۱۳۰۴، ۱۳۰۹
(۳۳ساله)، ۱۳۱۳، ۱۳۱۷، ۱۳۲۱، ۱۳۲۵، ۱۳۲۹، ۱۳۳۳، ۱۳۳۷، ۱۳۴۲
(۳۳ساله)، ۱۳۴۶، ۱۳۵۰، ۱۳۵۴، ۱۳۵۸، ۱۳۶۲، ۱۳۶۶، ۱۳۷۰، ۱۳۷۵
(۳۳ساله)، ۱۳۷۹، ۱۳۸۳، ۱۳۸۷، ۱۳۹۱، ۱۳۹۵، ۱۳۹۹، ۱۴۰۳، ۱۴۰۸
(۳۳ساله)، ۱۴۱۲، ۱۴۱۶، ۱۴۲۰، ۱۴۲۴، ۱۴۲۸، ۱۴۳۲، ۱۴۳۶، ۱۴۴۱
(۳۳ساله)، ۱۴۴۵، ۱۴۴۹، ۱۴۵۳، ۱۴۵۷، ۱۴۶۱، ۱۴۶۵، ۱۴۶۹، ۱۴۷۴
(۳۳ساله)، ۱۴۷۸، ۱۴۸۲، ۱۴۸۶، ۱۴۹۰، ۱۴۹۴، ۱۴۹۸، ۱۵۰۲ و ۱۵۰۷
سال های ۱۳۹۹ _ ۱۴۰۳ _
۱۴۰۸ _ ۱۴۱۲ _ ۱۴۱۶ _ ۱۴۲۰ _ ۱۴۲۴ _ ۱۴۲۸ _ ۱۴۳۲ _ ۱۴۳۶ _
۱۴۴۱ _ ۱۴۴۵ _ ۱۴۴۹ _ ۱۴۵۳ _ ۱۴۵۷ _ ۱۴۶۱ _ ۱۴۶۵ _ ۱۴۶۹ _
۱۴۷۴ _ ۱۴۷۸ _ ۱۴۸۲ _ ۱۴۸۶ _ ۱۴۹۰ _ ۱۴۹۴ _ ۱۴۹۸ _ ۱۵۰۲ _
سال کبیسه هستند .
کبیسه های پنج ساله با زیر خط مشخص شده اند .
تابع زیر برای کبیسه نوشته شده درستی یا نادرستی آنرا طبق سال های کبیسه بالا چک کنید
EndFunction
مثلا برای سال ۱۴۰۸ :
سال از ۱۳۷۵ بزرگتر است
( 1408-1375 ) Mod 4=???
اگر صفر شود یعنی کبیسه است که صفر نمی شود ولی طبق سال های کبیسه لیست شده باید کبیسه باشد ، مشکل را بیابید
تبدیل تاریخ میلادی به شمسی با درنظر گرفتن تاریخ شمسی و میلادی مبنا و سپس اضافه کردن تعداد اختلاف روزهای دو تاریخ میلادی به تاریخ شمسی ... البته از سال ۱۹۹۷ ( مبنا ) ببعد را به شمسی تبدیل خواهد کرد و نیز برای تبدیل تاریخ میلادی جاری به شمسی
JMabna=13600629
GMabna=19810920
Convert >>> 1/1/1997
'from 1/1/1997~20/09/1981
DateDiff=5582
-روز ماه های میلادی ۱۲ ۱۰ ۸ ۷ ۵ ۳ ۱ سی و یکروز است
-روز ماه های میلادی ۱۱ ۹ ۶ ۴ سی روزه است
-روز ماه میلادی ۲ با توجه به کبیسه نبودن یا بودن ۲۸ یا ۲۹ روزه است
اختلاف بین سال های ۱۹۹۷ تا ۱۹۸۱ می شود ۱۶ یکی ازآن کم کرده و در ۳۶۵ ضرب می کنیم که حاصل آن ۵۴۷۵ می شود چون سال های کبیسه ۳۶۶ روز می شود چک می کنیم در سال های ۱۹۸۱ تا ۱۹۹۷ چند سال کبیسه وجود دارد جدول های بالا را ببینید سال های ۱۹۹۶ ۱۹۹۲ ۱۹۸۸ ۱۹۸۴ کبیسه هستند لذا باید باندازه تعداد آن به عدد ۵۴۷۵ اضافه کنیم ( ۴+۵۴۷۵ ) فاصله بین ۹/۲۰ تا ۱/۱ در دو تاریخ میلادی یاد شده را بدست آورده و به عدد قبل اضافه میکنیم
(۳۰-۲۰)+۳۱+۳۰+۳۱+۱=۱۰۳
اعداد ۴+۵۴۷۵ و ۱۰۳ را باهم جمع می کنیم که عدد نهایی و اختلاف روزهای بین دو تاریخ میلادی ۵۵۸۲ خواهد شد.
البته تابع DateDiff در اکسس یکی از کارهایش بازگرداندن جمع تعداد روزهای بین دو تاریخ است.
حال باید مقدار ۵۵۸۲ روزبه تاریخ ۱۳۶۰/۰۶/۲۹ اضافه کنیم تا مشخص شود معادل شمسی تاریخ میلادی ۱/۱/۱۹۹۷ چیست. کارهایب باید انجام داد :
۱-مشخص کردن تعداد روزهای باقی مانده تا آخر سال ۱۳۶۰
۲-مشخص نمودن کبیسه بودن یا نبودن سال های بعد ار سال ۶۰
-تعداد روزها از ۲۹ شهریور ۶۰ تا آخر سال ۶۰ می شود ۱۸۱ روز ( ۲+۳۰×۵+۲۹ )
(۵۵۸۲-۱۸۱)/۳۶۵=۱۴.۷۹
(۵۵۸۲-۱۸۱)-۱۴*۳۶۵=۲۹۱
از سال ۶۱ تا ۷۴ ، سه سال کبیسه وجود دارد
۲۹۱-۳=۲۸۸
نماز می خوندن ولی چون باطل بودند شکست خوردند
سربازان جهادی هیتلر ملعون
شهریور ۲۵۳۶
دیماه سال ۱۴۰۲
به‌گفته سعید بیگی، مدیرعامل شرکت ساماندهی مشاغل شهر تهران «اگر در برخی از اپلیکیشن‌هایی که آگهی اینترنتی می‌گذارند جست‌وجو کنید، می‌بینید درحال استخدام دستفروش با حقوق‌های خیلی بالا مثل روزانه ۷۰۰هزار، ۸۰۰هزار یا یک‌میلیون تومان هستند و نشان میدهد که مراودات ناسالمی وجود دارد.»
دیماه ۱۴۰۲ ( حمله انتحاری در کرمان توسط داعش با حدود ۹۰ شهید شامل زن و کودک )
محل انفجارها به ترتیب در فاصله ۱.۵ کیلومتری و ۲.۷ کیلومتری از مدفن حاج قاسم سلیمانی و پیش از گیت‌های بازرسی بوده است.
فرارو :
واکنش کیهان به انفجارهای تروریستی کرمان؛ انتقام با قید فوریت!
کیهان: اینکه انتقام نباید، هیجانی باشد درست. این که باید به موقع و در جای مناسب پاسخ داده شود هم درست. اما گاهی باید کنار این «انتقام»، قید «فوری» را هم گذاشت تا اهرم بازدارندگی، به درستی و کامل عمل کند.
دیماه ۱۴۰۲ :
قرار بود آذر ۱۴۰۲ اولین کاروان اعزام شود
پس از این صحبت به دلیل مشخص نبودن زمان صدور مجوز از سوی عربستان تاریخ دیگری برای اعزام زائران عمره اعلام نشد.
حالا حج و زیارت استان تهران در اطلاعیه‌ای به کارگزاران خود اعلام کرد: به دلیل عدم دریافت مجوزهای پروازی توسط شرکت هواپیمایی، کلیه پروازهای عمره از تاریخ ۱۴۰۲/۱۰/۱۳ تا ۱۴۰۲/۱۰/۱۷ (پنج روز اول عملیات) لغو می‌گردد و با توجه به اهمیت موضوع و شرایط موجود، به کارگزاران محترم تأکید می‌گردد، نسبت به اطلاع رسانی مناسب به زائران در این خصوص اقدام نمایند.
در این اطلاعیه تاکید شده هرگونه اطلاع رسانی در خصوص پروازهای ۱۴۰۲/۱۰/۱۸ به بعد و اعزام زائرین کاروان‌های لغو شده متعاقباً اعلام خواهد شد.
باید منتظر ماند و دید زائران عمره پس از ۹ سال بالاخره چه زمانی رهسپار سرزمین وحی میشوند.
خواهر علی کریمی در بند بخاطر یک اعتماد
خواهر علی کریمی که ۲ فرزند دارد با درخواست چک سفید امضا از طرف برادرش روبرو میشود، وی که سابق بر این نیز به دلیل اعتماد به برادرش ۵۰ فقره چک سفید امضا به علی کریمی داده بود، پس از متوجه شدن این مسئله که چک‌های سفید امضای او در معاملات سنگینی مانند خرید باشگاه فوتبال سپیدرود و خرید زمین و ملک‌های میلیاردی مورد سوء استفاده قرار گرفته از دادن چک‌های سفید امضای جدید به برادر خود امتناع میکند.
لیلا کریمی که متوجه معامله‌های میلیاردی سنگین با دسته چک خود و توسط برادرش شده بوده، این بار پس از مشورت با همسر و اعضای خانواده از تحویل چک‌های سفید امضای جدید به برادرش امتناع کرده و همین موضوع باعث اختلاف آنها میشود.
علی کریمی پس از اختلاف پیش آمده با خواهرش وی را تهدید به برگشت زدن چک‌های سفید امضای قبلی میکند. لیلا کریمی که باور به انجام چنین اقدامی از سمت برادرش نداشته تسلیم درخواست علی کریمی نشده و چک‌های جدید را به او نمی‌دهد.
۱۲ دیماه ۱۴۰۲ :
در عملیاتی هم‌زمان در ۸ منطقه استانبول، ۳۳ تبعه خارجی به ظن جاسوسی برای موساد بازداشت شدند ؛ به گزارش خبرگزاری مهر به نقل از خبرگزاری الجزیره، تلویزیون ترکیه امروز سه شنبه اعلام کرد: موساد (سازمان جاسوسی رژیم صهیونیستی) افرادی را برای انجام عملیات در خاک ترکیه علیه فلسطینی‌ها و فعالان مخالف سیاست تل آویو استخدام کرد.
این اتفاق تروریستی در کرمان روز سیزدهم اتفاق افتاد ( حادثه تروریستی و غیرانسانی روز چهارشنبه 13 دیماه 1402 - کرمان.)
به گزارش خبرنگار ایرنا، زینب سلیمانی روز پنجشنبه در حاشیه عیادت از مجروحان انفجارهای تروریستی شهر کرمان در بیمارستان شهید باهنر در جمع اصحاب رسانه تصریح کرد: اگر دشمنان این اقدامات را انجام می دهند تا مردم را منزجر و عشق و علاقه به این شهید را در دل ها کمرنگ کنند، باید به تصویر شب گذشته گلزار شهدای شهر کرمان نگاه کنند که بعد از حادثه دیروز مملو از جمعیت بود.
۲۰ دیماه ۱۴۰۲ :
impressed me a lot
cease killing
مرگ بر اسرائیل :
کلمه « اسرائیل » 43 بار در قرآن مجید ذکر شده که 41 بار آن به لفظ بنی اسرائیل می باشد . این کلمه ترکیب شده از « اسراء » که در زبان سریانی به معنای عبد و « ایل » که به معنای الله است یعنی « عبدالله » می باشد لذا یعقوب (ع) را بدان جهت اسرائیل نامیدند.
در خبر زیر کاملا هشدار از طرف سازمان ملل داده شده ( ۷ اکتبر ۲۰۲۳ در پی بدرفتاری در مسجد الاقصی و طبعاً پاسخ حماس با حمله موشکی ، بیش از ۸۰۰۰ نفر توسط اسرائیل و پشتیبانی آمریکا کشته شدند : حمله به منازل-بیمارستان و مساجد و کلیسا )
اسرائیل : ما می جنگیم تا زنده بمانیم !!!
خبر ۹ آبان ۱۳۹۴ ( متن زیر ) : هشدار سازمان ملل در این تاریخ
اول آبانماه ۱۴۰۲ :
به گزارش گروه بین الملل خبرگزاری فارس، آمریکا، کانادا، فرانسه، آلمان، ایتالیا و انگلیس در بیانیه‌ای مشترک حمایت کامل خود را از اسرائیل و حق دفاع از خود مجدا اعلام کردند.
سران این شش کشور غربی بدون اشاره به جنایات این رژیم علیه زنان و کودکان غزه گفته اند: ما حمایت خود را از اسرائیل و حق آن برای دفاع از خود اعلام می کنیم.
در بیانیه سران این شش کشور غربی بر تعهد آنها در زمینه حمایت از شهروندان خود و خروج کسانی که مایل به ترک غزه هستند تاکید شده است.
10 آبانماه ۱۴۰۲ بیت رهبری :
یک سری احمق گفته اند تظاهرات ( در بمباران مردم غزه ) علیه اسرائیل ؛ در انگلیس کار ایرانه ، آقای خامنه ای : حتما بسیج لندن یا بسیج پاریس بوده ( با خنده )
بیانیه زیر برای همدردی با آرمان های صهیونیستی یهودی که به هیئت وزیران ارائه شده و به تصویب رسیده است.
Balfour Declaration 1917
November 2nd, 1917
Arthur James Balfour
مرگ بر آمریکا :
یقینا بارها نام ایمپلنت آمریکایی را شنیده اید. ایمپلنت های دندان آمریکایی به سبب کیفیت بالایی که دارد دارای طرفداران زیادی در سراسر دنیا می باشد و سالانه حجم بالایی از ایمپلنت های ساخت کشور آمریکا تولید شده و در سراسر جهان عرضه می شود. قیمت ایمپلنت دندان آمریکایی به نسبت برندهای دیگر ایمپلنت ، بالاتر می باشد. ایمپلنت های دندانی تولید آمریکا خود دارای برند های مختلف می باشند که یکی از معروف ترین آنها ایمپلنت آمریکایی زیمر zimmer می باشد. در زیر برخی از برندهای آمریکایی را نام میبریم.
دارین حمزه :
اخیراً در مصاحبه‌ای جنجالی به MTV لبنان گفت: وقتی رفتم فکر می‌کردم آنها (ایرانیان) در داخل خانه هم حجاب می‌پوشند، منم حجاب پوشیدم، بالاخره نظام اسلامی است نه مثل ما. ولی من فکر می‌کردم نظام اسلامی‌اشان مثل کشورهای عربی است، نمی‌دانستم آنها فرق می‌کنند. کارگردان من را برای شام به خانه‌اش دعوت کرد و غذای ایرانی خوشمزه برایم درست کردند. منم با حجاب کامل از بالا تا پایین آنجا رفتم. ولی دیدم زن کارگردان لباس کوتاه پوشیده و همه بی‌حجاب و عادی انگار که اینجاست، موسیقی و مشروب و همه چی بود. در داخل خانه هر دلشان می‌خواهند می‌پوشند، حکومت به داخل خانه‌ها کاری ندارد. در کل مهمانی من تنها مثل پیرزن‌ها لباس پوشیده بودم و آنها همه لخت بودند.
به قولی در داخل خانه بعضی ایرانی ها عیسی به دین خود و موسی به دین خود است و مثل همیشه خدا ناظر بر رفتارشان
۱۱ آبان ۱۴۰۲ :
محمدصادق رضاقلی‌زاده، مدیر جهادکشاورزی شیروان در گفت‌و‌گو با خبرنگار فارس در این شهرستان اظهار کرد: پس از بررسی تراکنش نانوایی‌های سطح شهر توسط بازرسین جهاد کشاورزی، شخصی با هویت مشخص اقدام به خرید ماهانه ۱۰ هزار نان از سطح نانوایی‌های سطح شهر کرده بود که پس از بررسی دقیق و تشکیل پرونده جهت طی مراحل قانونی تحویل پلیس امنیت عمومی شهرستان شد.
وی گفت: این کار سوء استفاده اقتصادی است، زیرا نانی که توسط دولت به آن یارانه تعلق گرفته تا به مصرف مردم برسد، توسط افراد سودجو با سود چندبرابری به مصارف دام می‌رسد.
آبان ماه ۱۴۰۲ پس از رونمایی تندیس حاج قاسم سلیمانی در ورزشگاه جلوی ورودی بازیکنان :
سرانجام پس از چند هفته ابهام درباره وضعیت بازی سپاهان و الاتحاد که قرار بود در چارچوب هفته دوم رقابت‌های لیگ قهرمانان آسیا در ورزشگاه نقش جهان برگزار شود، کمیته انضباطی "ای‌اف‌سی"، حکم نهایی خود را درباره این مسابقه اعلام کرد و طلایی پوشان ایرانی را با یک حکم سنگین و بی‌سابقه با نتیجه 3 بر صفر بازنده شدند.
Tbl
A
test1
test1
test2
test3
test2
test1
test4
test3
test1
راه اول : تعریف Primary Key برای فیلد A در نمای دیزاین ، اگر فایل به accde ( اجرایی) تبدیل شود قادر به تغییرات در نمای دیزاین اشیاء نخواهید بود.
راه دوم : ساخت کوئری و استفاده از عبارت Group by یا Distinct و اجرای کوئری Make Table برای اکسپورت به جدول New
راه سوم : ایجاد رکوردست ، لوپ در فیلد مورد نظر و کپی رکورد [بدون تکرار] در جدول دیگر.
البته کد زیر خالی از اشکال نیست پس سعی کنید اشکالات را برطرف کنید
RsSource : Tbl
RsTarget : tTbl
RsSource=db.OpenRecordSet("Tbl",dbOpenSnapShot")
RsTarget=db.OpenRecordSet("tTbl")
RsSource.MoveFirst
Do
RsTarget.MoveFirst
Do
if (RsSource!A=RsTarget!A) Then
NewValue=RsSource!A
End If
RsTarget.AddNew
RsTarget!A=NewValue
RsTarget.Updats
RsTarget.MoveNext
Unlti RsTarget.EOF=-1
RsSource.MoveNext
Until RsSource.EOF=-1
| OrderID | Product | Price |
|---|---|---|
| 10280 | AAA | 280 |
| 10280 | AAA | 280 |
| 10280 | AAC | 267 |
| 10285 | CCC | 350 |
| 10285 | CCC | 350 |
| 10285 | CCC | 350 |
| 10285 | CCA | 348 |
Select distict * from t
| OrderID | Product | Price |
|---|---|---|
| 10280 | AAA | 280 |
| 10280 | AAC | 267 |
| 10285 | CCC | 350 |
| 10285 | CCA | 348 |
| ID | Last Name | National Code |
|---|---|---|
| 1 | Akbari | 0012020400 |
| 2 | Akbari | 0012020400 |
| 3 | Akbari | 0012021400 |
| 4 | Asghari | 0011021400 |
| 5 | Asghari | 0012021400 |
| 6 | Asghari | 0012021400 |
| 7 | Rajabi | 0032029400 |
| 8 | Rajabi | 0032029400 |
| 9 | Rajabi | 0032029400 |
| 10 | Rajabi | 0032129400 |
Select distinct [Last Name],[National Code] from t1
Or
Select [Last Name],[National Code] from t1 Group By [Last Name],[National Code]
| Last Name | National Code |
|---|---|
| Akbari | 0012020400 |
| Akbari | 0012021400 |
| Asghari | 0011021400 |
| Asghari | 0012021400 |
| Rajabi | 0032029400 |
| Rajabi | 0032129400 |
در جدول ماقبل بالا چون دو رکورد در فیلد اول و دوم وجود دارد ( Zero Base ) نمی توانید ID را به جدول قبل اضافه کنید مگر با نوشتن سلکت کوئری درون آن
create table CC (ID int not null,Code int not null)
Insert into CC Values(1,123)
| ID | Code |
|---|---|
| 1 | 123 |
| 2 | 123 |
| 3 | 123 |
| 4 | 121 |
| 5 | 122 |
| 6 | 122 |
| 7 | 123 |
| 8 | 124 |
| 9 | 124 |
| 10 | 123 |
| 11 | 125 |
| 12 | 123 |
Delete From CC Where ID Not In(Select ID From (SELECT distinct Code,(Select ID from CC C where C.id<=CC.ID And C.Code=CC.Code) ID FROM CC order by code Asc))
| ID | Code |
|---|---|
| 1 | 123 |
| 4 | 121 |
| 5 | 122 |
| 8 | 124 |
| 11 | 125 |
برای انتخاب مقادیر یکتا در یک فیلد می تواند استفاده شود و مستقیم در نمای SQL فقط بکار برده می شود.
SELECT DISTINCT can be used in Microsoft Access SQL to select unique values in a field. Note that you cannot use this keyword in Query Design View, you can only use it directly in SQL View.
The outcome of DISTINCT is exactly the same as GROUP BY if you only try to find the unique values, but GROUP BY can be used together with other Aggregate Functions such as COUNT, SUM, AVERAGE. In terms of performance, they should be the same or nearly the same.
| ID | Code |
|---|---|
| 1 | 123 |
| 2 | 123 |
| 3 | 121 |
| 4 | 122 |
| 5 | 123 |
| 6 | 121 |
| 7 | 120 |
| 8 | 124 |
| 9 | 123 |
| 10 | 124 |
| 11 | 121 |
| 12 | 122 |
| 13 | 125 |
| 14 | 122 |
| 15 | 126 |
| 16 | 125 |
| 17 | 126 |
| 18 | 127 |
| 19 | 125 |
| 20 | 128 |
-Delete Query ( SQL View )
| ID | Code |
|---|---|
| 1 | 123 |
| 3 | 121 |
| 4 | 122 |
| 7 | 120 |
| 8 | 124 |
| 13 | 125 |
| 15 | 126 |
| 18 | 127 |
| 20 | 128 |
-Nested Select ( Count(ID) And Where Clause )
| RowNun | ID | Code |
|---|---|---|
| 1 | 1 | 123 |
| 2 | 3 | 121 |
| 3 | 4 | 122 |
| 4 | 7 | 120 |
| 5 | 8 | 124 |
| 6 | 13 | 125 |
| 7 | 15 | 126 |
| 8 | 18 | 127 |
| 9 | 20 | 128 |
در نمودار ER ( روابط موجودیت ) بالا موجودیت ( جدول ) با Rectangle یا مستطیل و صفات ( فیلدهای جدول ) با بیضی نمایش داده شده
صفت ( Attribute ) :
یک صفت ویژگی یک موجودیت ( Entity ) را توصیف میکند.یک صفت در نمودار ER یا Entity Relationship با یک بیضی نمایش داده می شود.چهار نوع صفت وجود دارد:
1-صفت کلید
2-صفت ترکیبی
3-صفت یا ویژگی چند مقداری ( فیلد Multivalued )
4-صفت مشتقی
1-صفت کلید (Key attribute) :
این صفت می تواند بصورت یکتا یک موجودیت را از یک مجموعه موجودیت مشخص نماید.برای مثال شماره گردش دانشجو می تواند بصورت یکتا و یونیک یک دانشجو از مجموعه دانشجویان را تعیین نماید.صفت کلید با بیضی بعنوان سایر صفات نمایش داده می شود اگر چه متن صفت کلید را Undeline می کنند.( یعنی صفت در بیضی است و یک خط ممتد زیر متن آن کشیده می شود)
2-صفت ترکیبی ( Composite attribute ) :
صفتی (Attribute) که ترکیبی از صفات دیگر است بعنوان صفت ترکیبی یا composite attribute شناخته می شود.برای مثال در موجودیتِ ( entity ) ( منظور table در اکسس ) دانشجو ، آدرس یک صفت ترکیبی است که از صفات دیگری تشکیل شده مثل پین کُد ، ایالت و کشور.
3-صفت چندمقداری ( Multivalued ) :
صفتی که قابلیت نگهداری چند مقدار را در خود دارد که در نمودار ER با دو تا بیضی نمایش داده می شود. برای مثال یک شخص می تواند بیش از یک شماره تلفن داشته باشد بنابراین Phone number صفتی چندمقداری است.
4-صفت مشتقی :
صفت مشتق شده ، صفتی است که مقدر آن پویا (Dynamic) بوده و از ویژگی دیگری مشتق شده است.درنمودار ER با یک بیضی چین دار( خط چین ) نمایش داده می شود.برای مثال سن فرد (Age) یک ویژگی مشتق شده است زیرا در طول زمان تغییر می کند و می تواند از ویژگی دیگری ( DateOfBirth) مشتق شود.
به نسخه تمیزی از کتاب برنامه نویسی در اکسس ۲۰۰۰ یا ۲۰۰۲ پیتر نورتون نیازمندم اگر شخصی قصد فروش داشت لطفا کامنت بذاره.
اردیبهشت ۱۴۰۲ ( تاخیر در پخش آخرین قسمت زندگی پس از زندگی )
دادگاهی در لاهه هلند روز جمعه به مردی که به گفته قضات این دادگاه، پدر ژنتیکی حدود 600 کودک و نوجوان در سراسر جهان است، دستور داد از اهدای اسپرم خود خودداری کند.
به گزارش عصرایران به نقل از رویترز، در حکم دادگاه آمده است که این مرد هلندی 41 ساله که با نام "جاناتان میجر" معرفی شده است، از اهدای اسپرم به کلینیک های داخلی و خارجی منع شده است. دادگاه حکم داده در صورت سرپیچی از حکم دادگاه، برای هر بار 100 هزار یورو جریمه شود.
سلبریتی ها خیلی دوست دارن زمان طاغوت برگرده چون راحتترن
Don't look back
دو تصویر بالا ملاحظه بشه سوریه یک کشور اسلامی و ایران نیز ، تفاوت تا کجا ، خودتون قضاوت کنید به همراه خوش و بش جناب رئیسی با ایشان 
و نوع پوشش !!!
حضرت علی ـ علیه السّلام ـ فرمودند: روزی من و فاطمه ـ سلام الله علیها ـ به خدمت رسول خدا ـ صلّی الله علیه و آله ـ رسیدیم، در حالی که آن حضرت ـ صلّی الله علیه و آله ـ بسیار گریه می کردند. گفتم پدر و مادرم فدای تو باد ای رسول خدا ـ صلّی الله علیه و آله ـ چه چیز شما را به گریه انداخته است؟
حضرت فرمود: یا علی! شبی که به آسمان برده شدم، عده ای از زنان امّت خود را در عذاب شدید دیدم، پس شأن آن ها را انکار کردم و در این حال به خاطر شدت عذاب آن ها گریه می کنم.
1. زنی را دیدم که به موی سر آویزان شده بود و مغز سرش (از شدت عذاب) می جوشید. « همانا او موی خود را از مردان نامحرم نمی پوشاند.»
2. و زنی را دیدم که از پاهایش در تنوری از آتش آویزان شده بود. «و آن زنی بود که بدون اجازه شوهر از منزل خارج می شد.»
3. و زنی را دیدم که گوشت تن خود را می خورد و آتش از زیرش شعله می کشید.
« و او آن زنی بود که خود را برای دیگران آرایش و زینت می کرد. (نه برای شوهرش)»
4. و زنی را دیدم که گوشت بدنش از جلو و پشت به وسیله قیچی هایی از آتش بریده می شد. «و آن زنی بود که خود را در معرض دید مردان (نامحرم) در می آورد.»
شیخ حسین انصاریان در «پخش زنده» مراسم شب بیست و یکم ماه رمضان از شبکه سه سیما گفت: روی گنهکاران اسم بد و زشت نگذارید؛ خلاف قرآن و حرام است. گناهکار را نترسانید، اگر گنهکاری بازداشت شد، به دروغ نگویید که فردا صبح اعدام می‌شوی. عباد خدا را نترسانید. وحشت در دل او و خانواده‌اش نیندازید.
موزه آینده ، دُبی دُبی
دلایل نصب آینه در آسانسور
جواب این سؤال احتمالا شما را غافلگیر خواهد کرد. حقیقت این است که نصب آینه در آسانسور دلیل روانی دارد.
مردم در آغاز دوران استفاده از آسانسور، برای جابجایی بین طبقات، از کندی حرکت آن شکایت داشتند. متخصصان دریافتند که این مشکل از نگاه کردن آنها به دیوارهای آسانسور ناشی میشود که کاری بسیار خسته کننده است. همچنین باعث میشود گذر زمان کند به نظر برسد.
دو راه حل برای این مشکل وجود داشت: نخست، نوسازی آسانسور و افزایش سرعت آن.
دوم، منحرف کردن توجه مردم به چیز دیگری که حرکت آسانسور را در نظرشان سریعتر کند.
(18) و درود بر سفیران بزرگوار نیکوکار و نویسندگان ارجمندی که حافظان اعمال مردم‌اند؛ و درود بر فرشتۀ مرگ و یارانش؛ و منکر و نکیر؛ و رومان، آزمایش‌کنندۀ مردگان قبرها؛ و درود بر طواف کنندگان بیت معمور و بر مالک و خازنان دوزخ و رضوان و خدمتگزاران بهشت.
عبدالله بن سلام میگوید که از پیامبر(ص) در مورد فرشته‌ای پرسیدم که پیش از نکیر و منکر به سراغ مردگان می‌رود؟ و آن‌حضرت فرمود: «اى پسر سلام! فرشته‌اى به نام رومان که رویش چون خورشید می‌درخشد، به قبر آمده و به مرده میگوید: کردار نیک و بد خود را با انگشت خود به‌جاى قلم و با آب دهان به‌جاى دوات بر قطعه‌ای از کفن خود به‌جاى کاغذ بنویس! وقتی نوبت به کار بد او می‌رسد، میّت شرم میکند. فرشته میگوید: اى خطاکار! در دنیا از خدا شرم نکردى و گناه را انجام دادی و اکنون شرم دارى؟! این فرشته همه کار نیک و بد را در آن می‌نویسد و میگوید این نامه را مُهر کن. میّت میگوید مُهر ندارم. فرشته «رمان» میگوید: انگشت بزن و آنرا در گردنش می‌اندازد تا روز قیامت باقی است، همانطور که خدای تعالی می‌فرماید: "و هر انسانى، اعمالش را بر گردنش آویخته‌ایم"[4] سپس منکر و نکیر می‌آیند».[5]
نوعی از حجاب مورد قبول : فرهنگ از سینمایی ها شروع می شود نه پاساژها و ...
همچنین با توجه به حضور بدون حجاب یکی از بازیگران زن ( پانته آ بهرام) و عدم اقدام درست و به موقع مدیریت سینما در کنترل برنامه و عدم هدایت فرد متخلف و قانون شکن به بیرون از فضای سینما، مدیر آن به‌علت ضعف مدیریت از سمت خود برکنار شد.
تخلفات سینمای لوتوس نیز در دست بررسی است که به‌زودی درباره آن تصمیم گیری خواهد شود.
پایگاه اطلاع رسانی «چند ثانیه» نوشت: برمبنای کدام اختیار قانونی، یک امام جمعه دستور پلمب میدهد؟ اگر امر امام جمعه را پیشنهاد در نظر بگیریم، پلیس اساسا بر مبنای کدام قانون و قاضی بر مبنای کدام قانون به دلیل ارائه خدمات به یک بانوی بدون روسری دستور پلمب اصناف را میدهد؟
دندان های شیری بچه ها دارای سلول های بنیادین پس دورش نندازید حتما مکان هایی وجود دارند که خریدارشن 
آذری جهرمی ( اردیبهشت ۱۴۰۲ نماز عید فطر ) : من شانزده نفر را در این عکس شمردم که چادر مشکی بر سر نداشتند. حتی دیدم چند نفری بدون چادر و با مانتو و روسری نماز را خواندند. عده‌ای را هم دیدم بعد از نماز چادرهای‌شان را تا کردند و توی کیف‌شان گذاشتد. یاد صحبت‌های آقای انصاریان افتادم؛ «این مردم دل‌هایشان با خداست.». رهبری هم فرمودند که: «در یک جامعه سلایق، عقاید و نگاه‌های مختلف به مسائل است. مانعی ندارد در کنار هم همه زندگی کنند، کار کنند.». من مصداق همین جملات را در صفوف مقابل خودم در نماز دیدم؛ چادر سفید، چادر مشکی، مانتو و روسری. این جامعه‌ست. سلایق و عقاید مختلف کنار هم قرار می‌گیرند.
حالا وظیفه‌ی ما چیست؟ پیامک بفرستیم؟ عکس بگیریم؟ سطل ماست بر فرق یک‌دیگر بکوبیم؟
۱۴۰۲ :
تسنیم نوشت: در راستای اجرای طرح مبارزه با بی‌حجابی (قانون عفاف و حجاب) رستوران‌های "زئوس" در سعادت آباد و "چیلای" در بوستان نهج البلاغه توسط ماموران پلیس امنیت پلمپ شدند.
به این دو رستوران قبلا اخطار پلمب به دلیل عدم رعایت قانون عفاف و حجاب داده شده بود، اما فیلم‌هایی که به تازگی از این دو محل در فضای مجازی منتشر شد، نشان‌دهنده عدم رعایت حجاب از سوی مشتریان و کارکنان بوده است.
چندی پیش، لیست رستوران‌هایی که متعلق به سلبریتی‌ها هستند همچنین لیست برخی از مراکز خرید و داروخانه‌هایی که قانون عفاف و حجاب را رعایت نکردند و توسط پلیس اخطار پلمپ گرفتند در خبرگزاری تسنیم منتشر شد.
ساعد نیوز: گردشگر و بلاگر روسی فعال در ایران نوشت: در خیابان‌های شهر میتوان بلوندهای خوش‌آرام و دخترانی را دید که به‌عنوان سرپیچی از همه قوانین، روسری را روی شانه‌های خود می‌اندازند، و دخترانی را که به شدت حجاب را رعایت می‌کنند
در روایتی که از امام باقر علیه السلام نقل شده است: زنى به نزد رسول خدا صلّى اللَّه علیه و آله آمد و عرض کرد: یا رسول اللَّه حقّ مرد بر زوجهاش چیست؟ فرمود: آنکه او را فرمان ببرد و از نافرمانیش بپرهیزد و از مال شوهر (بدون رضاى او) چیزى به فقیر ندهد، و نیز بدون اجازه او روزه مستحبّى نگیرد، و او را از کامیابى مانع نشود هر چند بر جهاز شترى سوار باشد
اردیبهشت ۱۴۰۲ :
پرده حجاب در مترو ... اردیبهشت ۱۴۰۲
بنظرم اتوبوس رو هم باید جدا کنند یا یه پرده سرتاسری بزنن
don't look back
البته باید می نوشت
don't look boy 
چشارو درویش کن پسر
بنر شهید الداغی ۴۰ ساله که توسط دو ضارب جوجه لات کوچولو در دفاع از تعرض به دختر خانمی به شهادت رسید.
سرکار خانم باران کوثری در مراسمی ختم با کلاه گیس
افغانستان طالبانی :
فهیمه، مجری ۲۶ ساله تلویزیونی که در برنامه‌های خبری و سرگرمی، چهره‌ای ترگل ورگل از خود نشان می‌داد، حالا برای تأمین معاش خانواده مجبور به تن‌فروشی شده است. یکی دیگر از کسانی که حالا وادار به انجام این کار شده هم از هجوم رقبای خانواده‌های متوسط به این وادی گفته است: «این کار حالا پرریسک‌تر و مخفیانه‌تر شده است… مخصوصاً که دیگر نمی‌شود به پلیس رشوه داد.»
یکی میره کلی دوندگی میکنه تا مجوز راه اندازی یه کارخونه رو بگیره یکسری افراد هم دنبال سوء استفاده از بانوان
پایتخت میزبان خوبی برای این دختر ۲۲ ساله کردستانی نبود ... تسلیت و روحش شاد ۲۵ شهریور ۱۴۰۱
لطفا برای مطالعه توابع پرکاربرد اکسل وقت بگذارید ، چنانچه مطالب زیر مفید بودند فاتحه ای نثار درگذشتگان و پدر مرحومم قرائت فرموده و منت گذاشته در نظرسنجی نیز شرکت فرمائید . به سایت W3Schools هم سر بزنید.
تابع Match یعنی تطابق دادن ... موقعیت مقدار را در محدوده مشخص می نماید و برگشتیش شماره ردیف مقدار مورد نظر در محدوده انتخاب شده است .
=MATCH(lookup_value,lookup_array,[match_type])
آرگومان ها طبق زیر : دو آرگومان اول در تابع بالا اجباری هستند ، اولی مقدار مورد جستجو ... دومی محدوده مورد جستجو فرضا A1:D5 ... و آخری نوع تطابق یا همسانی که انتخابی یا Optional است و سه عدد -1 و 0 و 1 می شود قرار داد.
توضیح آرگومان آخر یا Match_Type :
اگر صفر بگذارید دنبال مقداری در محدوده انتخاب شده در آرگومان دوم می گردد که با آرگومان اول کاملا مطابق باشد
اگر یک بگذارید دقیقا دنبال مقداری در محدوده می گردد که حالت کوچکتر مساوی را داشته باشد.
اگر منهای یک بگذارید حالت بزرگتر مساوی یا طبق توضیحات خودش مقدار دقیق یا نزدیک به بزرگترین مقدار
در زیر اشاره شده ، استفاده از تابع Index به تنهایی مقداری در محل برخورد ردیف و ستونی که مشخص کرده اید را باز می گرداند برای مثال مقدار ردیف 2 از ستون 3
When used alone, the INDEX function returns a value at the intersection of a row and column you specify. For example, you can have Excel return the value at the intersection of row 2 and column 3.
نوشتاری تابع INDEX نیز در زیر آمده شامل ۳ آرگومان که دو تای اولی Required یا اجباری هستند ذکرشون و آخری نام ستون که Optional یا انتخابی است.
The syntax for the INDEX function is fairly basic: =INDEX(array, row_num, [column_num]).
در جدول زیر مقدار برگشتی در A2 برابر Nelson است، یعنی تابع ایندکس لطفا مقدار ردیف ۲ از ستون ۳ ( محل برخورد ) در محدوده انتخاب شده A4 تا G58 را نمایش بده.
این مطالب گفته شد تا شما عزیزان نحوه عمل تصویر اول را درک کنید که با استفاده از چه توابعی باید به نتیجه برسیم تصویر اول در سر ستون ها یا هِدِر بازه ای از اعداد البته پشت سرهم نه جابجا داده شده و در سمت راست قرار است با وارد کردن تعداد محصول در ستون Qty مبلغ اتومات از جدول طبق سر ستون ها گرفته شده و در سلول فرمولمون بیافتد البته در ستون ها چون یک Dash بین اعداد قرار داده شده پس رشته داخل آنها عددی نیست و اکسل آنرا تکست خواهد گرفت می بایست از تابع IFERROR نیز در MATCH بهره برد.
MATCH(G2,A:A,0)?
IFERROR(MATCH(H2:$A1:$A4,1),0)+1?
انجام این کار در اکسس بسیار راحت است و تنها با DlookUp یا نوشتن SubQuery ، در سایت W3Schools این کار را انجام دادم . تصاویر اس کرین شات گرفته زیر را برای مطالعه و تشریح مراحل کار قرار دادم . فقط لطفا فاتحه و نظر سنجی فراموش نشود متشکرم
1-ساخت جدول T1 با ۳ فیلد یا ستون شامل Label ، Qty ، Price
2-ورود اطلاعات به جدول T1
3-روئت داده فیلدهای جدول T1
4-ساخت جدول T2
5-روئت داده فیلدهای جدول T2
6-واکشی داده ستون Price جدول T1 ( با توجه به تطبیق دادن داده فیلد Label هر دو جدول T1وT2 و شرط Qty ) در کوئری ساخته شده.
بر اساس جدول T1 قیمت هایی بر اساس Label و تعداد خرید زده شده فرضا اگر شخصی کالایی با نام A و تعداد زیر خود ۱۱ خریداری کند مبلغ 150000 باید پرداخت کند و اگر فرضا بین 12 تا 18 بخرد مبلغ 145000.
سایت W3Schools زمانیکه به سیستم دسترسی ندارید و می خواهید جدولی بسازید و کوئری تست کنید واقعا مناسب است.پیشنهاد می کنم از این سایت که مکررا توصیه شده استفاده کنید البته تابع DlookUp موجود نبود وگرنه آموزش این تابع را قرار می دادم.
۴ تیر ۱۴۰۱ : حجت‌الاسلام سید اسماعیل خطیب با صدور پیامی به‌مناسبت بزرگداشت شهدای هفتم تیر و هفته‌ی قوه قضائیه با بیان اینکه سربازان گمنام آقا امام زمان (عجل‌الله) در سنگر عظیم مبارزه و جهاد به عنوان ضابطین قضایی تمام کوشش و همراهی خود را در انجام رسالت خطیر حفظ امنیت این مرز و بوم و احقاق حقوق امّت شهید پرور به‌کار خواهند گرفت، تاکید کرد: تروریست‌های روسیاه آلبانی نشین هیچ‌گاه از آتش انتقام دوازده هزار شهید جنایات آنها در امان نخواهند بود.
۵ تیر ۱۴۰۱ : دادستان عمومی و انقلاب میناب گفت: ۴ خواننده زن در عروسی‌ها در میناب بازداشت شدند و در صورت تکرار هم خواننده و هم صاحب عروسی بازداشت خواهند شد.
۵ تیر ۱۴۰۱ باشگاه خبرنگاران نوشت : بازرس سازمان جهاد کشاورزی استان اصفهان گفت : نیروهای سازمان اطلاعات سپاه و بازرسان جهاد کشاورزی ۵۰ هزار تن گندم دولتی احتکار شده را در یکی از کارخانه‌های تولید آرد حومه اصفهان کشف و ضبط کردند..... بخوانند مطالب زیر را محتکرین و کسانیکه حق الناس ناآگاهانه به گردنشان است .
در روایتی از امام باقر نقل است که: آب فرات از بهشت دنیوی نشات میگیرد و ایشان فرمودند برای خدا در مغرب بهشتی است که آب فرات از آن نشات میگیرد و ارواح مومنان هنگام غروب از قبرهایشان خارج و به آن منطقه وارد میشوند و از نعمت های آن استفاده مینمایند.این روایت به این معناست که ارواح مومنان در ابتدای شب از قبورشان خارج شده، در جای دیگری متنعم میشود. از طرف دیگر به نقل از روایات صاحب قبر از زیارت قبر خود توسط دیگران مطلع میشود و با آن زائر انس میگیرد، و دلش نمی‌خواهد از قبرش خارج شود و بنابراین از بهره مندی از نعمت های شبانه محروم میشود؛ بنابراین شاید به این دلیل گفته اند که شب به زیارت اهل قبور نروید تا آنان بتوانند از نعمات شبانه بهره مند گردند. نکته : مگر نه این است که می گویند ارواح به سوی خدا می روند ( ما از خدائیم و به سوی او باز می گردیم ) پس چرا از قبورشان خارج می گردند ؟!!!
مردم! تقواى الهى را پیشه کنید و بدانید به سوى او باز مى گردید... بدان نخستین چیزى که آن دو فرشته از تو سؤال مى کنند: پروردگارت را که مى پرستیدى، و از پیامبر که به سوى تو فرستاده شده، و از دینى که به آن پایبند بودى، و از کتابى که آن را مى خواندى، و از امامى که ولایتش را پذیرفته بودى، سپس از عمرت سؤال مى کنند که در کدام راه بر باد دادى، و از اموالت که از کجا آورید و در کجا مصرف کردى؟ جانب احتیاط را نگه دار و درباره خود بیندیش! و قبل از آزمایش و سؤال و امتحان، پاسخ را آماده کن، که اگر با ایمان و متقى و آگاه به دین و پیرو صادقین و موالى اولیاء الله باشى، خداوند پاسخ لازم را به تو تلقین مى کند، و زبانت را به حق مى گشاید، و جواب خواهى داد، و در این هنگام از سوى خدا بشارت جنت و رضوان و خیرات فراوان به تو داده مى شود، و فرشتگان الهى با روح و ریحان از تو استقبال مى کنند، و اگر چنین نباشد زبانت به لکنت مى افتد و دلیلت باطل مى شود و از دادن پاسخ فرو مى مانى و نابینا مى شوى، و بشارت به آتش داده مى شوى، و فرشتگان عذاب به استقبال تو مى آیند...).
تبلیغ منافی عفت و جریحه دار کردن جامعه زنان مسلمان ایران :
علیرضا گالش
جدال ابوالفضل رجبی و هومن حاج عبداللهی
۱۱ تیر ۱۴۰۱ : به گزارش به نقل از ایلنا، براساس اخبار رسیده، حجت الاسلام سید محسن اخوان در ساعات ابتدایی امروز برای اقامه نماز جماعت صبح به مسجد بقیة الله(عج) خیابان برازنده اصفهان مراجعه می کند که در هنگام بازگشت، راکب موتورسیکلتی با اسلحه به سمت او شلیک کرد که البته خوشبختانه آسیب جدی به این نرسید.
تیر ۱۴۰۱ ... فقط دلجوئی و اظهار تاسف
سیدمحمد شاهچراغی استاندار و جمعی از مسئولان استان قم با حضور در شهرک دامشهر، ضمن بررسی موضوع حمله سگ‌های ولگرد به اهالی این شهرک، با خانواده‌های دو کودک جان‌باخته بر اثر حمله این سگ‌ها در هفته اخیر دیدار و از آنان دلجویی کرد.
سلام به اساتید اکسسی
لطفا در نظرات این پست مشکلات برنامه نویسی تون در محیط Vbe اکسس رو عنوان کنید فقط اکسس طبق داکیونت آفیس !!!
یک تیر ۱۴۰۱ اجتماع هنجارشکنانه جمعی از دختر ( بدون روسری ) و پسرهای حدود ۱۶ ساله در شیراز : شجاعی با بیان اینکه دستگیرشدگان ( منظور عوامل اصلی یعنی لیدرها یا راهبرها ) برای سیر مراحل قانونی تحویل مرجع قضائی شدند، گفت: برگزاری هرگونه تجمع ورزشی یا غیر ورزشی مختلط بدون رعایت موازین شرعی و قانونی از نظر پلیس ممنوع بوده و خلاف مقررات است و برابر قانون با برگزارکنندگان آن برخورد خواهد شد.
۲ تیر ۱۴۰۱ کراماتی بیان داشت: استاندار بوشهر تمامی فرمانداران و مدیران را از بازنشستگان استفاده کرده، جز یکی دو مورد که آن هم به گمانم از دستش در رفته است.
۲ تیر ۱۴۰۱ باور فعالان اقتصادی این است که در دوران تحریم و تورم بالا که به شدت روی کسب‌وکار آنها اثر گذاشته، دریافت مالیات از تراکنش‌های بانکی، فشار بسیار به آنها وارد خواهد کرد. رضا صولتی، فردی که فروشنده گوشی تلفن‌همراه است، دراین باره میگوید: بحث مالیات از تراکنش یک روی سکه است. روی دیگر سکه، جدول ضریب سود ناعادلانه ای است که ممیزها براساس آن مالیات را تعیین می‌کنند. ممیز برای فروش گوشی موبایل مربوط به سال ۹۹ آمده و ۱۹ درصد سود فروش لحاظ کرده؛ در حالی که اتحادیه رسما اعلام کرده سود فروش موبایل کمتر از ۴ درصد است، اما سازمان امور مالیاتی ضریب سود ناعادلانه و دلخواه خودش را اعمال میکند.
فرد دیگری که تابلوفروشی دارد، میگوید: تراکنش‌ها همه سود نیستند که بر آنها مالیات در نظر گرفته شود!
۲ تیر ۱۴۰۱ در بیانیه وزارت خارجه سوئد که امروز صادر شده آمده است: «به دلیل وضعیت امنیتی، وزارت امور خارجه انجام هر سفری به ایران را توصیه نمی‌کند.»
وزیر امنیت داخلی و وزیر امور خارجه، با مشورت دادستان کل ایالات متحده، به این نتیجه رسیدند که این ممنوعیت در مورد فردی که حمایت مادی ناچیز یا محدودی از سازمان‌های ذیل FTO (مانند سپاه پاسداران انقلاب اسلامی) تحت معاملات اجتماعی معمول داشته باشد، اعمال نخواهد شد.
ما کد نویس هستیم نه برنامه نویس !!!
دوستان اگر نیازمند کد نویسی هستن در سایت هایی فریلنسرهایی هستند که با مبلغ اندکی کد را برای شما می نویسند البته حداقل مبلغ کارها ۵۰ هزار تومان است ( سال 1401 ) و حدود ۴۰ درصد پورسانت سایتی است که از مبلغ پروژه برداشت می کند ، در نظر داشته باشید یا باید دانش تحلیل و الگوریتم را بلد باشید یا در جاهایی از برنامتون از این فریلنسرها بهره ببرید یا در تلگرام گروه های اکسسی را بیابید که در کدنویسی ساده یاریِتان بُنُمایند.
فرض کنید در کنترل تکست باکسی ، داده متنی مثل "محمد علی" را تایپ می کنید و بعد از ترک فوکِس از کنترل می خواهید هر حرف داخل یک کنترل تکست باکس که در جلوی تکست باکس ورودی تعبیه کردید منتقل شود.
مراحل :
1- باید با استفاده از تابع Replace فضاهای خالی یا Space را از متن بردارید .
2-در انتهای نام کنترل های ایجاد شده ، عدد ترتیبی مثل 1 ، 2 و ... اضافه بُنُمائید. مثل ctl1 ، ctl2 و ..... به اندازه هر چند کنترلی که جلوی تکست باکس دارید .
3- به اندازه طول رشته بعد از حذف Space ها در مرحله یک لوپ بزنید .
4- داخل لوپ نوشته شده در هر کنترل که اسم آن ctl1 یا ... باشد در پراپرتی کنترل سورس آن ، حرف مورد نظر در متن را با توجه به موقعیت آن در متن ، قید میکند البته با استفاده از تابع Mid که چند پارامتر دارد ( از کجای متن شروع کند و چه تعدادی را برای شما نشان دهد (طول) در اینجا معلوم است یک حرف )
ولی لطفا نفرمائید 
که استفاده از تابع Replace و Mid را بلد نیستید !!! 
چنانچه متوجه شدید لطفا در نظرات این پست بنویسید !!!
نماینده دوآتشه حامی طرح صیانت در توئیتی منتقدان و مخالفان این طرح را گرگ‌های مجازی و سگ‌های قلاده بلند خطاب کرد.
مروری بر نحوه ساخت بارکد خطی 128
طراحی بارکد خطی نسبت به Qr Code آسانتر است و کسانیکه داکیونت مربوطه را مطالعه بنمایند می توانند در Report و با تابع line اقدام به کشیدن خطوط با وزن مشخص بنمایند که دستگاه اسکنر بارکد قادر به شناسایی آن باشد برای ساخت Qr Code نظر خاصی ندارم کسانیکه به Matrix مسلط هستند فقط می توانند نسبت به ساخت طبق داکیومنت اقدام بنمایند ولی در اینجا Code 128 فقط بیان می شود.هر چقدر خطوط پررنگتر و از وزن قابل قبولی برخوردار باشد سریعتر خوانده میشود خطوط کمرنگ اسکنر را به اشتباه می اندازد پس زمان چاپ باید به این نکته دقت بنمائید. ( کمرنگی خطوط یا وزن غیر استاندارد مساویست با نتیجه اشتباه و دور از انتظار !!! )
بارکد خطی 128 هفت بخش دارد :
منطقه آرام یا Quiet Zone که سفید است
علامت شروع
داده کد شده
علامت چک و بررسی
علامت پایان
میله نهایی یا Final Bar
منطقه آرام ... سفید است
Check Symbol ازمانده جمع وزنی تمام سمبل ها به 103 بدست می آید
چنانچه به مطالب زیر یا مطالعه داکیونت آن در لینک یاد شده مسلط شوید با مداد می توانید بارکد خودتان را در برگه با زمینه سفید ترسیم کرده اسکنر را روی آن قرار داده و لذت ببرید !!!
شروع کار :
کد 128 شامل 108 علامت است : 103 علامت داده ، 3 علامت شروع و 2 علامت پایان . هر علامت حاوی سه میله سیاه و سه فضای سفید با عرض های گوناگون می باشد. هر بار و فضای خالی یک تا چهار ماژول پهنا دارد، و علامت ها عرض های غیر قابل تغییر دارند : جمع عرض های سه میله سیاه و سفید 11 ماژول است.
داده کد شده ، شروع / پایان :
هر علامت در بارکد شامل سه میله و سه فضای خالی است . هر میله یا فضا 1 تا 4 واحد پهنا دارد ، جمع عرض های میله ها باید زوج باشند ( 4 ، 6 یا 8 واحد ) ، جمع عرض فضاها باید فرد باشند ( 3 ، 5 یا 7 واحد ) و جمع کل 11 واحد برای هر علامت است ، برای مثال کد کردن کاراکتر اسکی 0 می تواند بعنوان 10011101100 دیده شود ( view ) ( در جدول لینک مربوطه کد صفر و یکی برای هر کاراکتر داده شده ) ... عدد 1 یک میله است و 0 یک فضا ، عدد یک اگر تک باشد نازکترین میله ( از نظر عرض ) در بارکد است . سه تا یک پشت سرهم نشان می دهد که میله سه برابر ضخیم تر از عدد یک تکی است.
بارکد خطی کد 128 سه مدل دارد A تا C که C حروف هم بزرگ و هم کوچک انگلیسی را هم شامل می شود برای مثال زیر در جدول لینک بالا از مدل یا ایندکس A برای محاسبه Check Sum استفاده شده.
در محاسبه Check Sum کد شروع دارد که عدد 103 در نظر گرفته شده و بعد موقعیت هر کاراکتر در رشته PJJ123C در عدد دسیمال کاراکتر ضرب شده فرضا موقعیت کاراکتر C در رشته PJJ123C هفت است یا هفتمین کاراکتر در نتیجه عدد 7 در دسیمال کاراکتر ( 35 ) ضرب شده و عدد 245=35×7 بدست آمده. ( در جداول ببینید کد هگزا و دسیمال هر کاراکتر داده شده می توانید جدول را به جداول اکسس اضافه کنید و با Dlookup دسیمال هر کدام را بگیرید و در پوزیشن یا موقعیت کاراکتر در رشته ضرب کنید ... در آخر 103 باضافه اعداد بدست آمده باهم جمع می شوند و بر 103 تقسیم خواهند شد عدد باقیمانده میشود Check Sum که در ستون دسیمال عدد مورد نظر ملاحظه می شود در دو ستون آخر این عدد کد ( صفر و یک ) و ضخامت هر میله چه یک که سیاه است و چه 0 که فًای خالی یا سفید است مشخص شده ( در بالا گفته شد 3 تا عدد 1 پشت سرهم در باینری کاراکتر یعنی نسبت به عدد 1 تکی سه برابر ضخامتش بیشتر است )
C : Hex=23
2×16^1+3×16^0=2×16+3×1=32+3=35(Decimal)
البته در اکسس تابع Decimal احتمال زیاد وجود دارد نیازی به محاسبات توسط شما نیست !!!
حروف a تا f در هگزا معرف اعداد 10 تا 15 است
Hex ( 3f ) =3×16^(1)+15×16^(0)=63 ( Dec )
اگر بخواهید تک تک کاراکترها را در نظر بگیرید طول بارکدتون زیاد میشه ، در نتیجه اگر رشته مورد نظرتون فقط عددی باشد می توانید دو تا دوتا در نظر بگیرید و اگر تک افتاد همان عدد جداگانه در نظر گرفته شود فرضا
27895023457824045
27 89 50 23 45 78 24 04 5
و از FNCx استفاده می شود که طول بارکد کمتر از زمانی شود که کاراکتر ها بصورت تکی در نظر گرفته می شود ترکیبی از عدد و حرف در این بارکد خطی قوانین مخصوص به خود را دارد که باید مطالعه شود
شرح تصویر بالا ، بارکد خطی Wikipedia : ( کد B شامل حروف کوچک و بزرگ )
1-Quiet Zone : Min 10x Wide
2-Start B (104 ) 211214
3-Encode Data
4- Calc Check Sum :
1×104+1×55+2×73+3×75+4×73+5×80+6×69+7×68+8×73+9×65=3281
مانده تقسیم 3281/103 می شود 88
88 in table : 421211
5-Stop Pattern : 2331112
6-Quiet Zone
برای تعیین ضخامت پهنای میله های سیاه و سفید ( اولین میله توپُر یا Bar در هر مرحله سیاه است و یک درمیان سفید ) به جدول مراجعه شد برای فقط اعداد از Code C استفاده شود ... چنانچه رشته شامل اعداد و حروف باشد حتما حروف در اول یا وسط یا آخر در نظر گرفته شود تا طبق FNC1 رویه یکسانی تولید شود اگر حروف پراکنده باشد چندین تابع برای تولید یک بارکد باید استفاده کنید.
سن 43 سالگی :
%D8%B2%D9%87%D8%B1_%D9%81%DA%A9%D9%88%D8%B1_%D8%B5%D8%A8%D9%88%D8%B1_%D8%AF%D8%B1%DA%AF%D8%B0%D8%B4%D8%AA_6kjq.png)
کلید خوردن عملیات پرچم دروغین توسط زِلنسکی :
عملیات پرچم دروغین (به انگلیسی: False flag operations) به عملیاتهایی گفته میشود که توسط نهادهای نظامی، شبه نظامی، اطلاعاتی یا سیاسی به گونه‌ای انجام میشود که این تصور به وجود آید که گروه‌ها یا کشورهای دیگری این عملیاتها را انجام داده‌اند.[۱] برای مثال استفاده نیروهای یک طرف درگیر در جنگ از پرچم و لباس نظامی طرف مقابل برای حمله و قتل عام ساکنین یک روستا و سپس متهم کردن آن طرف به انجام این کشتار نمونه‌ای از عملیات پرچم دروغین محسوب میشود. هدف از انجام عملیات پرچم دروغین مخفی نگه داشتن هویت مرتکبین اصلی یا بدنام کردن طرف مقابل و ایجاد بهانه‌ای برای حمله به او است.
سریال «نرگس» به تهیه کنندگی مهران مهام در سال ۱۳۸۵ پخش شد،نقش اصلی این سریال را پوپک گلدره بازی می‌کرد که در اواسط بازی، بر اثر تصادف با اتومبیل به کما رفته و پس از ۸ ماه درگذشت. نقش او را ستاره اسکندری ادامه داد.
«بی همگان» اخرین هنرنمایی زهره فکور را ثبت خواهد کرد.
۶ اسفند 1400 :
عضو شورای مرکزی موتلفه:خانواده‌های ولایی باید با لبیک به رهبری و فرزند آوری، دشمن را ناامید کنند
چون روسیه به خوبی از قبل می دانست در صورت موفقیت مذاکرات وین، احیای برجام و لغو تحریم ها ایران می تواند در کمترین زمان به پتانسیل بالایی برای صادرات نفت و گاز به اروپا و دیگر کشورها بدل شود. لذا مسکو عملاً سعی کرد مذاکرات وین را از طرف جمهوری اسلامی ایران به دست بگیرد. در این بین متاسفانه و صد افسوس دولت رئیسی و باقری کنی هم به طور کامل مدیریت مذاکرات را به روس ها سپردند تا عملا فضای مناسبی برای کرملین شکل بگیرد که اهداف و منافع خود را در وین پیش ببرد و نتیجه آن این است که تا امروز برجام و مذاکرات وین به نتیجه نرسید تا این مذاکرات به عنوان یک کارت برنده در اختیار روسیه قرار بگیرد. از دیروز پنج شنبه هم که پوتین جنگ در اوکراین را آغاز کرد یقین بدانید که کرملین نگاه دیگری به مذاکرات وین خواهد داشت.
بهمن 1400 :
هشدار مهم: هر پیام حاوی لینک از شماره شخصی با مضمون شکایت علیه شما جعلی و به قصد خالی کردن حساب شماست. لطفا کلیک نکنید.
از صحت درگاه ها حتما اطمینان حاصل کنید و ترجیحا از کارتی استفاده کنید که مبلغ پول خیلی کمی در آن دارید
هشدار: سامانه ثنا از شماره شخصی پیامک ارسال نمی‌کند، به هیچ وجه روی لینک‌های ارسالی کلیک نکنید، بدانید که: کلیک=خالی شدن حساب
در نشست خبری فیلم سینمایی «نمور» که در در واپسین روز چهلمین جشنواره فیلم فجر برگزار شد، یکی‌از خبرنگاران حاضر در نشست از نوشین معراجی نویسنده فیلم «نمور» پرسید: باتوجه به حلال‌زاده نبودن یکی از شخصیت‌های فیلم، چرا این اثر به مقام مادر تقدیم شده است؟ و معراجی در پاسخ گفت: «وقتی دو نفر همدیگر را دوست دارند، عشقی که بین‌شان وجود داشته، آن قدر حرمت دارد که به‌نظر من بچه‌ای که از آنها به دنیا می‌آید حلال‌زاده است! »
عیدی دولت و حکومت در تولید ملی : بهمن 1400
مبلغ وام فرزندآوری به ازای فرزند اول ۲۰ میلیون تومان، به ازای فرزند دوم ۴۰ میلیون تومان، به ازای فرزند سوم ۶۰ میلیون تومان، به ازای فرزند چهارم ۸۰ میلیون تومان و به ازای فرزند پنجم و بیشتر از آن، ۱۰۰ میلیون تومان است.
فرمانده سپاه ثارالله استان کرمان با اشاره به اینکه ترویج مکتب شهید سلیمانی مصونیت آور است و برای جامعه وحدت ایجاد میکند گفت: مدیر اسلامی باید در بین مردم حضور داشته باشد و به مردم نوکری کند و مدیری که به‌دنبال آقایی کردن باشد ( روحانی نعوذ بالله) به درد حکومت اسلامی نمی‌خورد.
حجت الاسلام مسعود عالی استاد حوزه در اظهاراتی از نوشین معراجی، فیلمنامه‌نویس «نمور» در پی مواضع اخیرش در خصوص روابط زن و مرد به شدت انتقاد کرد و گفت: آن خانم داوری که در جشنواره حرف ازدواج سفید را زد، مسئولین ارشاد تو دهنش باید می‌زدند. تو غلط میکنی ...
مراسم ازدواج نازنین جعفریان مدل ایرانی الاصل پر زرق و برق ترین مراسمی بود که با ثروتمندترین سیاه پوست برگزار کرد.
نازنین جعفریان، فارغ التحصیل رشته مهندسی زیست پزشکی از دانشگاه منچستر که به عنوان مدل و نیز مشاور بازاریابی مشغول به فعالیت است، مراسم عروسی خود را با آقای فولارین الاکیا، کارآفرین، سرمایه گذار و فیلمبردار نیجریه ای برگزار کرد. ( .... جالبه مادر داماد یکی از چند سرمایه دار نفتیه تو دنیا کشور ما کجا اونا کجا ما هم سیدعلی سرمایمونه)
سه مدیر دولتی که قبلا به عنوان متهم در پرونده اتوبوس خبرنگاران معرفی شده بودند، از سوی بازپرس ارومیه تبرئه شدند.
سید علی خشگمین می شود ، 28 بهمن 1400 : رهبر معظم انقلاب فرمودند: امروز نوبت سپاه است که ، به سپاه تهمت بزنند و لجن‌پراکنی کنند و در ضمن به شهید بزرگ شهید سلیمانی، و اگر جرات می کردند و از خشم مردم نمی‌ترسیدند به امام هم اهانت میکردند.
حمید حسینی، عضو اتاق بازرگانی: مدیران برخی شرکت هایی که کار مهاجرت انجام می‌دهند، شخصا به من اعلام کردند که قبلا هفته ای سی تا چهل درخواست برای مهاجرت داشتند که از سوی افرادی با تخصص های بالا و درس خوانده ارائه می شد اما در شرایط فعلی تعداد این درخواست برای این شرکتهای معمولی به ۱۸۰ درخواست رسیده است که نشان از افزایش میل به مهاجرت در ایران دارد.جالب است در میان متقاضیان مهاجرت از لوله کش تا کابینت‌ساز و آشپز و برق کار و آرایشگر و ... نیز دیده می شوند،این یعنی اگر تا دیروز فقط درس خوانده‌ها می خواستند از ایران بروند، امروز صاحبان حرف و افرادی که حرفه‌ای را بلدند نیز متقاضی مهاجرت هستند و این نشانه‌های باید سیاستگذار را نگران کند.
روح الامینی، نماینده مجلس گفت: قبلا توقع‌ها کمتر بود؛ مردم از سرویس‌های بهداشتی مشترک استفاده میکردند. الان همه به دنبال تجهیزات و وسایل مستقل هستند. توقع‌ها باید تنظیم شود.
لطفا توقعتان را به تنظیمات کارخانه بازگردانید مصرف آب و برق و گاز را خیلی کم کنید تا بتوانند از تحریم ها عبور نمایند و به یکسری کشورهای تحت حمله رژیم شیطانی کمک بنمایند.
رستم قاسمی : به خانوارهایی که سه تا چهار فرزند داشته باشند، زمین مجانی برای ساخت مسکن داده میشود.
البته رستم خان قاسمی فکر نکرده که قشر کارگر حقوق بگیر ۵ میلیونی با ۳ تا ۵ فرزند چطوری و با کدام درآمد می تواند هزینه ساخت و ساز را فراهم نماید.
تصویر زیر گویای این است که نگران نباشید ، همیشه ، حتی در سختی ها لبخند بزنید تا همه چیز درست شود چون بنیان درست است.
کوبا توانست با استفاده از ظرفیت پزشکان، خود را از تحریم‌ها نجات دهد و در عملیاتی با نام معجزه، پزشکان خود را به کشورهای آمریکایی و همجوار فرستاد تا بتواند مانع بروز بیماری در آن مناطق شود، از این طریق خود را از حصار تحریم نجات داد.
همسران بخوانند ( تجسس در گوشی )
► حضرت آیت الله العظمی شبیری زنجانی:
► حضرت آیت الله العظمی خامنه ای:
► آیت الله العظمی مکارم شیرازی:
سجاد غریبی ۲۹ ساله، ملقب به هالک ایرانی به حریف انگلیسی خود، مارتین فورد که به ترسناک‌ترین مرد جهان معروف است، هشدار دارد که مبارزه را روی برانکارد ترک خواهد کرد.
مدیر کل خیلی جوان !!!
29 بهمن 1400 : در پی اهانت یک افسر هندی به سردار سلیمانی و رهبر انقلاب، مردم منطقه بدگام کشمیر به خیابان‌ها ریختند و در حمایت از سردار سلیمانی شعار سردادند و با ماموران پلیس درگیر شدند و اقدام مامور هتاک را محکوم کردند. یکی از افسران هندی در حین عملیات سرشماری یکی از شهرهای کشمیر با ورود به منزل یکی از شهروندان عکس شهید سلیمانی و رهبرانقلاب را که در خانه او بود به آتش میکشد.
۲۸ بهمن ۱۴۰۰ گفتگو با رفیق دوست : ( هویدا ) گفت من هنوز هم بر عقیده خودم هستم! جنگی بین ما و شما بود و شما بردید و ما را هم می‌کشید! آن وقت که این چهار نفر را برای اعدام می‌بردند، او باز سر موضعش بود! وقتی می‌خواست از پله‌ها بالا برود، گفت دست‌ها و چشم‌های مرا نبندید و همان طور هم اعدام شد. بقیه را از زیر بغل‌هایشان می‌کشیدند و می‌بردند! یادم است که خسروداد، آنچنان می‌لرزید که زانوهایش به هم می‌خورد! خسرودادی که معروف بود از دیوار راست بالا می‌رود و از ارتفاع ۱۰ متری می‌پرد، آنچنان خودش را باخته بود که حساب نداشت!...».
حرف های ضد و نقیض و گفته زیر در سایتی دیگر : کشته شد اعدام نشد
دست‌کم بر اساس گزارش روزنامه‌های وقت از جمله آیندگان می‌دانیم که جلسه دادگاه تا ساعت ۶ و نیم به طول انجامید و باز گزارش همین روزنامه میگوید که هویدا در ساعت ۷ و ۲۵ دقیقه هدف گلوله قرار گرفت. یعنی چیزی حدود یک ساعت از اتمام جلسه دادگاه تا تیر خوردن او فاصله بوده است. پس احتمال قریب به یقین او را به سلولش منتقل کرده بودند و شلیک گلوله از جانب خلخالی یا شخص دیگری در زمانی اتفاق افتاده که او در سلولش به سر می‌برده و نه هنگامی که در حال انتقال به سلول بوده است.
یا ممکن است از سوی ضدانقلاب بوده باشد عمال رجوی چون اوایل انقلاب مملکت حساب و کتاب و قانون درستی نداشته .
رادیو پس فردا : بهمن 1400 - یکی از مسئولان سازمان بنادر و دریانوردی در همین زمینه به ایلنا گفته است از آنجایی که این کشتی با پرچم ایران در حال تردد نیست، بنابراین سازمان بنادر و دریانوردی امکان ورود به این موضوع را ندارد.
او توضیح نداده است که کشتی «کابل» با پرچم چه کشوری در حال تردد بوده، اما داده‌های «مرین ترفیک» نشان میدهد که این کشتی ایرانی با پرچم جمهوری لیبریا، از کشورهای آفریقای غربی، در حال تردد بوده است.
6 اسفند 1400 : عضو شورای مرکزی موتلفه:خانواده‌های ولایی باید با لبیک به رهبری و فرزند آوری، دشمن را ناامید کنند
چون روسیه به خوبی از قبل می دانست در صورت موفقیت مذاکرات وین، احیای برجام و لغو تحریم ها ایران می تواند در کمترین زمان به پتانسیل بالایی برای صادرات نفت و گاز به اروپا و دیگر کشورها بدل شود. لذا مسکو عملاً سعی کرد مذاکرات وین را از طرف جمهوری اسلامی ایران به دست بگیرد. در این بین متاسفانه و صد افسوس دولت رئیسی و باقری کنی هم به طور کامل مدیریت مذاکرات را به روس ها سپردند تا عملا فضای مناسبی برای کرملین شکل بگیرد که اهداف و منافع خود را در وین پیش ببرد و نتیجه آن این است که تا امروز برجام و مذاکرات وین به نتیجه نرسید تا این مذاکرات به عنوان یک کارت برنده در اختیار روسیه قرار بگیرد. از دیروز پنج شنبه هم که پوتین جنگ در اوکراین را آغاز کرد یقین بدانید که کرملین نگاه دیگری به مذاکرات وین خواهد داشت.
9 اسفند 1400 :
نماینده دوآتشه حامی طرح صیانت در توئیتی منتقدان و مخالفان این طرح را گرگ‌های مجازی و سگ‌های قلاده بلند خطاب کرد.
[;database;path;pwd].[tbl]
به نمای دیزاین بروید روی سکشن Detail کلیک کنید و بر گه پراپرتی آن را بیاورید به تب Format بروید و بگردید دنبال AlternateBackColor از اونجا می توانید گزینه ای را انتخاب کنید یا رنگ دلخواهتون رو از جداول RGB استخراج کنید و به هگزادسیمال در این تکست باکس وارد کنید .
RGB =RED , GREEN , BLUE
RGB(255,255,255)=#FFFFFF
اعداد داخل پرانتز به دسیمال است برای تبدیل دسیمال به هگزادسیمال عدد را بر 16 تقسیم می کنید عدد های خارج قسمت و مانده را در کنار هم می گذاریم البته معادل آنها را ، مثل A برابر 10 ، B برابر 11 تا F برابر 15 و زیر 10 همان خود عدد در نظر گرفته میشود
255÷16=15
255-15×16=15
1515=FF
Decimal : 109
109÷16=6
109-6×16=13
Hex : 6 13 =6D ' هگزا میشود معادل 6 و 13 کنار هم
RGB(109,109,109)=#6D6D6D
در لینک زیر امتحان کنید 
www.w3schools.com/colors/colors_rgb
اعداد دسیمال را داخل پرانتز جانمایی کنید و روی لینک Use this color in our Color Picker بزنید هگزا و رنگ در باکس نمایش داده خواهد شد
برای White شدن یا ازبین بردن کالر ردیف های یک در میان ، داخل تکست باکس ویژگی Alternative در تب Format سکشن Detail یا Blank کنید اگر ارور ندهد یا FFFFFF# را وارد کنید یعنی (RGB(255,255,255 معادل رنگ سیفید
حال برای اینکه روی هر ردیف که کلیک می کنید کل فیلدهاش BackColor یکسان بگیرند از ConditionalFormatting یا قالب بندی شرطی استفاده می کنند البته برای هر فیلد باید یک شرط نوشت !!! نسخه اکسس تا کنون قابلیت اینکه تمام فیلدهای ردیف را رنگی یا Coloured بنماید ندارد. چه شرطی بنویسید ؟!!! روش کار : باید حتما در فرمتان یک آیدی وجود داشته باشد !!! یا کد یونیک !!! یک تکست باکس در Header تعبیه کنید و در رویداد Current فرم آنرا معادل فیلد ID یا فیلد عددی قرار دهید سپس چک کنید هر وقت به رکوردهای دیگر می روید آن تکست باکس همان ID که در آن هستید را به شما نشان می دهد ... حال به Conditional Formatting فیلد مورد نظر بروید در حالت LayOutView هم تنظیم امکانپذیر است. در آنجا یک شرط ایجاد کنید باکس مربوطه را به Expression تنظیم نمائید . عبارت شرطی شما ، اگر نام فیلد در فرم کانتینیوس ID و نام تکست Txt1 باشد می شود
[ID]=[Txt1]
با روش FormatConditions.Add می توان یک قالب شرطی به فیلد اضافه نمود. برای اصلاح از روش Modify بهره ببرید.
expression.Add (Type, Operator, Expression1, Expression2)
مثال :
Field1.FormatConditions.Add acFieldValue,acEqula,"id Mod 2=0)
Field1.BackColor=RGB(255,255,255)
Field1.ForeColor=RGB(240,240,240)
یک پراپرتی Count هم دارد که تعداد آیتم های موجود در قالب شرطی هر فیلد را میشمرد و بر پایه صفر یا Zero Base است یعنی از صفرشروع و تا پراپرتی Count منهای یک ادامه می یابد البته تعداد آیتم ها محدود است
در Load فرم اگر لوپی در TextBox و TextBox مربوط به ComboBox لوپ می زنید که کاندیشنال فرمتینگ به فیلدها اضافه بنماید می توانید قبلش با پراپرتی Count فیلد چک کنید اگر صفر بود اضافه کند البته اگر کاندیشنال ضروری دیگری در آن نداشته باشید.
برای تعیین رنگ BackColor آیتم خاص در کاندیشنال فرمتینگ هر فیلد از پراپرتی Item که ایندکس از صفر شروع میشود استفاده کنید . نحوه استفاده (Module.Item(0 با (Module(0 فرقی نمیکنند. ایندکس کنترل ها هم Zero Base است
Controls("ID").FormatConditions.Item(0).BackColor=(0,100,200)
یک Type کاندیشنال به نام DataBar هم دارد که داده عددی را بصورت میله ای نمایش می دهد.
کافئین منجر به کم آبی بدن میشود و در نتیجه افزایش لخته شدن خون و همچنین کاهش عناصر کمیاب خون مانند پتاسیم میشود که بر عملکرد قلب و سیستم قلبی عروقی تاثیر منفی می‌گذارد. اگر اُمیکرون گرفتید از خوردن چای پرهیز کنید !!!
22 بهمن 1400 :
23 بهمن 1400 : صبح امروز به دلیل اتصال شبکه برقِ جنبِ بازار کفاشانِ تهران ، دچار آتش سوزی شد که خوشبختانه هیچکدام از مغازه های کفش آسیب ندیده و این حادثه متوجه صنف لوازم خانگی بوده است.
23 بهمن 1400 ( مسکن ملی - مجردها ) محمودزاده در پاسخ به این سئوال که آیا در زمان برگشت پول و آورده اولیه به مجردهایی که نتوانستند در مدت زمان معین متاهل شوند، بحث پرداخت سود برای خواب سپرده و پول افراد در نظر گرفته شده، گفت: خیر، برگشت پول به افراد بدون سود است چراکه بنگاه معاملاتی باز نکرده‌ایم که واحدی را از کسی بخریم و به فرد دیگر بفروشیم و از این محل سودی کسب کنیم.
گزارش-میدانی-آیا-مردم-از-انقلاب-پشیمان/
23 بهمن 1400 : یک استاد دانشگاه در اهواز که تمایلی به معرفی خود ندارد میگوید: «مسئله‌ی امروز ما انقلاب نیست که بگوییم مردم پشیمان شده‌اند یا نه، بلکه موضوع اصلی این است که نظام سیاسی که پس از انقلاب بر سر کار آمد به درستی انتخاب نشد و اشکالات و تناقضات موجود در قانون اساسی نیز دقیقا به همین دلیل به وجود آمده است. ریشه‌ی بسیاری از مشکلات امروز به همین موضوع بازمی‌گردد که اصطلاحا مردم می‌دانستند چه نمی‌خواهند اما نمی‌دانستند چه می‌خواهند، حتی رهبران انقلاب هم نمی‌دانستند که پس از انقلاب باید چه کار کرد و به همین دلیل این وضعیت به وجود آمده است».
هشدار: پیامک حاوی لینک دانلود اپلیکیشن از شماره‌های شخصی، جعلی و به قصد سرقت از حساب شماست، به هیچ وجه کلیک نکنید.
در اختتامیه جشنواره فیلم فجر، اُمیکرون؛ رفته بود گل بچیند!
22 بهمن 1400 : میثم مطیعی امروز در مراسم جشن پیروزی انقلاب، در شعرش گفت: «حق مردم نه چنین صنعت خودروسازی‌ست» و سپس بینندگان با قطع ناگهانی پخش زنده مواجه شدند.
بدون سقف !!!
[;Database;Path;Pwd=].[T1]
لطفا در صورتِ "استفاده" حتما در نظر سنجی شرکت و فاتحه ای برای پدر مرحومم قرائت بفرمائید.
فروش مطالب ارزنده زیر به غیر ممنوع و اشکال شرعی دارد ( پیوند دادن منعی ندارد ) لطفا رعایت نمائید !!!
مطالب زیر صرفا به اشتراک گذاشتنِ تجربیات ، و در سایت های خارجی نیز کم و بیش بدان اشاره شده است.(گردآوری از سایت های خارجی جهت مطالعه عموم )
Case WM_NCLBUTTONDBLCLK '&HA3 Client درمنظقه بیرون
SetWindowTextA hWnd, "Dbl Clicked"
WM_NCRBUTTONDOWN 'constant : &HA4 Client درمنطقه بیرون
Using SetWindowTextA
EXIT FUNCTION
تبدیل متن فارسی به کدهای یونیکد برای استفاده ، در پیوندها با عنوان "کاراکتر فارسی" قرار داده شده که می توانید از آن بهره ببرید.البته کد Space را نمی دهد و کد آن 0020 است.
تنظیم و بازیابی تکست درتکست باکس ادیت کنترل :
با تابع SetWindowText می توان متنی به کنترل ویرایش ارسال کرد
یک برنامه می تواند متن کنترل ویرایش را با استفاده از توابع SetWindowText یا SetDlgItemText و یا با ارسال پیام WM_SETTEXT ، تنظیم نماید. طبق این گفته با SetWindowText می توان متن به کنترل ویرایش ارسال نمود.
SetWindowTextA wparam(hwnd),"Hi Mr/Mrs"
An application installs the hook procedure by specifying the WH_CBT hook type and a pointer to the hook procedure in a call to the SetWindowsHookEx function.
برای بازیابی تمام متن داخل کنترل ویرایش اول از تابع GetWindowTextLength یا پیام WM_GETTEXTLENGTH برای تعیین اندازه بافر مورد نیاز برای نگهداری تکست استفاده بنمائید.بعد با استفاده از تابع GetWindowText یا GetDlgItemText یا پیام WM_GETTEXT برای گرفتن یا بازیابی متن اقدام نمائید.
EM_GETTEXT :
Rich Edit: If the text to be copied exceeds 64K, use either the EM_STREAMOUT or EM_GETSELTEXT message
تغییر فونت مورد استفاده در کنترل ویرایش ( Edit ) :
یک برنامه توانایی تغییر فونت را با استفاده از ارسال پیام WM_SETFONT دارد.اکثر برنامه ها این کار را در زمان فرآیند پیام WM_INITDIALOG انجام می دهند.تغییر فونت اندازه کنترل ویراش را عوض نمی کند ؛
محدودیت کاربر در ورود متن :
بعنوان مثالی از کاربرد EM_SETLIMITTEX (Edit Message) و ( EN_MACTEXT ( Edit Notification ، فرض کنید برنامه بایستی کاربر را به ورود بیشتر از 4 کاراکتر در کنترل ویرایش محدود کند . برنامه از EM_SETLIMITTEXT برای مشخص نمودن محدودیت 4 کاراکتر استفاده می نماید.اگر کاربر سعی به وارد کردن پنجمین کاراکتر نماید دستگاه کد اعلان EM_MAXTEXT را به برنامه ارسال می نماید.
پیمایش متن در کنترل ویرایش :
ایجاد Style مورد نظر یعنی WS_VSCROLL با حذف کنترل ویرایش با استفاده از DestroyWindow و جایگزینی آن با ایجاد این کنترل در مختصات قبلی ( CreateWindowEx )
Dim p1,p2 As POINTAPI
Dim EditRect As Rect
hFont=SendMessageA(hEdit,WM_GETFONT,0,0)
GetWindowRect hEdit,EditRect
DestroyWindow hEdit
With EditRect
p1.x=.Left : p1.y=.Top
p2.x=.Right :p2.y=.Bottom
ScreenToClient EditRect,p1
ScreenToClient EditRect,p2
.Left=p1.x : .Top=p1.y
.Rigth=p2.x : .Botton=p2.y
End With ' Edit Control Types and Style
برای اضافه کردن Scroll bar افقی از استایل WS_HSCROLL و اسکرول بار عمودی از WS_VSCROLL استفاده بنمائید.یک کنترل ویرایش با اسکرول بارها پیام های اسکرول بار خودش را انجام می دهد یا پروسس می کند.
سیستم سه پیام که برنامه می تواند به کنترل ویر ایش دارای Scroll bar ها ارسال کند را فراهم می نماید.پیام EM_LINESCROLL می تواند بصورت هم افقی و هم عمودی در کنترل ویرایش چند خطه ( MUTILINE ) پیمایش کند ( در خطوط جابجا شود ) . پارامتر lParam شماره تعداد؟ خطوط برای پیمایش عمودی که از خط جاری شروع می شود را مشخص می کند و پارامتر wParam تعداد کاراکترها برای پیمایش افقی ، شروع از کاراکتر جاری را مشخص می نماید. کنترل ادیت پیام دانش تشخیص پیمایش افقی ، اگر استایل EM_CENTER یا EM_RIGHT داشته باشد را ندارد.
پیام EM_LINESCROLL فقط در کنترهای ویرایش چند خطه کاربرد دارد.
پیام EM_SCROLL کنترل ادیت را عمودی پیمایش می کند.پارامتر wParam عمل پیمایش را مشخص می نماید.پیام EM_SCROLL فقط در کنترهای ادیت چند خطه کاربرد دارد. EM_SCROLL همان اثر پیام WM_VSCROLL دارد.
پیام EM_SCROLLCARET چیست ؟
SendMessage RichEdit1.handle, WM_VSCROLL, SB_BOTTOM, 0
تغییر مستطیل قالب بندی Formatting Rectangle :
قابلیت روئت متن کنترل ویرایش توسط ابعاد مستطیل پنجره و مستطیل قالب بندی خودش کنترل می شود. مستطیل پنجره ، .... حاوی کنترل ویرایش است . مستطیل قالب بندی ساختاری است که توسط سیستم برای قالب بندی مان نمایش داده شده در مستطیل پنجره نگهداری می شود.هنگامی که یک کنترل ویرایش برای اولین بار نمایش داده می شود ، دو مستطیل روی صفحه یکسان هستند.یک برنامه می تواند مستطیل قالب بندی را بزرگتر از مستطیل پنجره کند ( در نتیجه دید متن کنترل ویرایش را محدود می کند ) یا کوچک ت از مستطیل پنجره ( درنتیجه فضای سفید اضافی در اطراف متن ایجاد می نماید.)
یک برنامه می تواند مختصات مستطیل قالب بندی کنترل ویرایش را با ارسال پیام EM_SETRECT تنظیم بنماید. پیام EM_SETRECT همچنین بطور خودجوش متن کنترل ویرایش را دوباره ترسیم می نماید.برای تعیین مختصات مستطیل قالب بندی بدون ترسیم مجدد متن کنترل ، یک برنامه می تواند یک پیام EM_SETRECTNP برای کنترل ارسال نماید.برای بازیابی یا گرفتن مختصات مستطیل قالب بندی ، یک برنامه می تواند یک پیام EM_GETRECT به کنترل ارسال نماید. این پیام ها فقط برای کنترل های ویرایش چند خطی کاربرد دارد.
EM_GETLINE :
یک خط از متن کنترل ویرایش را کپی کرده و داخل بافر مشخص شده قرار می دهد. پارامتر wParam درکنترل ویرایش چندخطه یا MultiLine ایندکس لاین است که Zero Base است یعنی ایندکس اولین خط صفر است و اعداد ترتیبی است و برای خط تکی یا SingleL ine از این پارامتر صرفنظر می شود و صفر را قرار می دهید . پارامتر lParam یک بافر است ، برای سیستم Ansi تعداد به Byte نمایش داده میشود و برای unicode تعداد کاراکترهای کپی شده.
برای تنظیم رنگ BackGround برای یک کنترل ویرایش از پیام EM_SETBKGNDCOLOR استفاده بنمائید.
EM_SETCUEBANNER : '&H1501
تنظیم یک تکست محوشو در ادیت کنترل.
نشانه متنی یا Tip که توسط کنترل ویرایش نمایش داده می شود را تنظیم می نماید تا از کاربر اطلاعاتی را درخواست بنماید. در wparam یکی از دو کلمه False یا True استفاده می شود و در پارامتر lparam یک String .
در پارامتر wParam اگر True قرار دهید banner یا نشانه هر وقت که کنترلِ ویرایش فوکس میگیرد می بایست نمایش داده شود.False پیش فرض است و زمانیکه کاربر در کنترل کلیک میکند محو می شود. البته از SendMessageW فقط استفاده کنید چون unicode string هم ارسال می کند مثلا کاراکترهای فارسی که می بایست از Chrw و کد Html مربوطه هر کاراکتر استفاده کنید و حتما داخل StrPtr برای ارسال کدهای Unicode مثل زبان شیرین فارسی !!!
StrPtr : This is often used when passing in UNICODE strings.
EM_LIMITTEXT : '&HC5 محدودیت دروارد کردن کاراکتر
SendMessageA hEdit, &HC5, 5, 0 'lparam not be used
EM_SETPASSWORDCHAR : ' &HCC 'تنظیم نمایش کاراکتردلخواه بجای کاراکترورودی
SendMessageA hEdit, &HCC, Asc("*"), 0 'EM_SETPASSWORDCHAR
تغییر رنگ کنترل Static یا Prompt پنجره با کلاس 32770# :( در اکسس 2016 )
در Caption یا Title پنجره متنی حاوی Num و Typing را ملاحظه می نمائید . با SubClass کردن کنترل ویرایش و استفاده از پیغام با کد دسیمال 258 یا WM_CHAR و با استفاده از تابع SetWindowTextA اینکار صورت گرفته.جلوی Num جواب پیام WM_GETTEXT است که با تابع SendMessageA ارسال شده ( تعداد کاراکترهای کپی شده به متغیر بافر ) و جلوی Typing نیز کد اسکی کاراکتر که wparam است قید می شود البته در اینجا از ((Chr(Clng(wparam استفاده شده برای مشخص کردن کاراکتر، الیته یونیکد را پشتیبانی نمی کند.
Case WM_CTLCOLORSTATIC ',WM_CTLCOLORDLG
'Set the Colors
SetBkMode wParam, 1
SetTextColor wParam, RGB(255, 10, 100)
Dim lfont
lfont = CreateFont(22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "Time New Roman")
SelectObject wParam, lfont
InputBoxProcEx = CreateSolidBrush(RGB(80, 0, 180))
Exit Function
پس با توابع API می توان کاراکترها در کنترل Edit که ماسک شده اند ( یا پوشیده شده زیر کاراکتر دیگر مثل " * ") را گرفته یا بازیابی کرد. "هک"
تغییر رنگ در کنترل ویرایش :
Case WM_CREATE
hBrush=CreateSolidBrush(RGB(255,255,255))
CASE &H133 'WM_CTLCOLOREDIT 307
SetTextColor wParam,cl ' RGB(100,0,250)
InputBoxProc=hBrush
Exit Function ' It Needs
Case WM_DESTROY
DeleteObject hBrush
Sample : InputBoxEx "Hi am here to do somthing !!!","Title",vbRed,"Arial"
CHARFORMATA Structure :
حاوی اطلاعات درباره قالب بندی کاراکتر در یک کنترل rich edit
Type CHARFORMATA
cbSize As Long
dwMask As Long
yHeight As Long
yOffset As Long
crTextColor As Long
End Type
SendMessageA hEdit, EM_SETSEL, start_pos, end_pos
Dim cf As CHARFORMATA
With cf
.cbSize=LenB(cf)
.dwMask=CFM_COLOR
.crTextColor=RGB(255,0,0)
End With
SendMessageA hEdit , EM_SETCHARFORMAT, SCF_SELECTION, cf
yHeight : Character height, in twips (1/1440 of an inch or 1/20 of a printer's point).
طبق جدول لینک بالا ، پارامتر lParam در کنترل هندلی است به پنجره آن البته نوتیفیکیشن یا اعلان نیز می فرستد چه زمان فوکس گرفتن ، تغییر و به روز رسانی ، در EN_CHANGE پیام هایی که دریافت شده را ملاحظه بفرمائید.
' If lparam=hRichEdit Then
SendMessageA hEdit, EM_GETCHARFORMAT,SCF_SELECTION,cf_old
cf_old.dwMask=CFM_COLOR
SendMessageA hEdit,EM_SETSEL, -1, -1
SendMessageA hEdit,EM_SETCHARFORMAT, SCF_SELECTION,cf)
SendMessageA hEdit,EM_REPLACESEL, FALSE,text
SendMessageA hEdit,EM_SETSEL, -1, -1
SendMessageA hEdit, EM_SETCHARFORMAT,SCF_SELECTION,cf_old
Debug.Print SendMessageA(lParam, 177, 0, 1) '1
Debug.Print SendMessageA(lParam, 176, 0, 0) '65536=1 اگر دو کاراکترانتخاب شده باشد عدد *2 می شود
?196608/3 =65536 'سه کاراکتر انتخاب شده
Contains information about character formatting in a rich edit control. CHARFORMAT2 is a Microsoft Rich Edit 2.0 extension of the CHARFORMAT structure. Microsoft Rich Edit 2.0 allows you to use either structure with the EM_GETCHARFORMAT and EM_SETCHARFORMAT messages.
BALLOONTIP : em-showballoontip
Type EDITBALLOONTIP
cbStruct As Long 'LenB
pszTitle As String
pszText As String
ttiIcon As Long
END TYPE
EN_CHANGE & EN_UPDATE : &H300,&H400
wParam : قسمت loword حاوی شناسه کنترل ویرایش است و قسمت hiword آن مشخص کننده کد اعلان یا notification code است.
lParam : هندلی به کنترل ویرایش
پیام EN_CHANGE زمان استفاده از استایل ES_MULTILINE ارسال نمی شود و متن از طریق پیام WM_SETTEXT ارسال می گردد.
پیام EN_UPDATE زمانی ارسال می شود که کنترل ویرایش میخواد خودش را Redraw یا ترسیم بنماید . این کد اعلان بعد از اینکه کنترل متن را قالب بندی یا Formatted کرد ، اما قبل از نمایش متن ارسال می گردد. این امکان تغییر اندازه پنجره کنترل ویرایش را در صورت لزوم فراهم می کند. پنجره والدِ ( Parent Window ) کنترل ویرایش این کد اعلان را از طریق یک پیام WM_COMMAND دریافت می نماید
Select Case uMsg
Case WM_COMMAND
If Hiword(wParam)=EN_CHANGE Then 'Hex(wparam \ &H10000)
SetWindowTextA hwnd,"EN_CHANGE"
End If
End Select
در زیر کدهای اعلان کنترل ویرایش با شناسه 4900 گرفته شده که در نهایت باتن ok فشرده شده و صفر یعنی بسته شدن پنجره
4900...100 ' const EN_SETFOCUS = &H100
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...501 'const EN_MAXTEXT = &H501
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
4900...400
4900...300
1...0 'Push Ok Button
4900...200 ' const EN_KillFOCUS = &H200
بعنوان پیش فرض تابع DefWindowProc رنگ های پیش فرض سیستم را برای کنترل ویرایش انتخاب می کند. کنترل های ویرایش فقط خواندنی یا غیرفعال پیام WM_CTLCOLOREDIT را ارسال نمی نمایند بجای آن ، آنها پیام WM_CTLCOLORSTATIC را ارسال می نمایند.
Case WM_INITDIALOG
RED RGB(127, 0, 0) GREEN RGB( 0,127, 0) BLUE RGB( 0, 0,127) LIGHTRED RGB(255, 0, 0) LIGHTGREEN RGB( 0,255, 0) LIGHTBLUE RGB( 0, 0,255) BLACK RGB( 0, 0, 0) WHITE RGB(255,255,255) GRAY RGB(192,192,192)
ارسال پیام به کنترل ویرایش در subClass کردن پنجره InputBox و قرار دادن در WM_SETCURSOR پارامتر wParam هندلی است به کنترل
Case WM_SETCURSOR '32
SetWindowLongPtr wStatic, GWL_STYLE, GetWindowLongPtr(wStatic, GWL_STYLE) And WS_TABSTOP
'id=4900 is for Edit Control in window Calss #32770 .... use StrPtr To Transfer Unidoe string
If wParam = OkBtn Then 'Use GetDlgIten
SendMessageA hEdit,WM_SETTEXT, 0, ByVal StrPtr() 'lParam as any WM_TEXT:&HC
ElseIf wParam = CancelBtn Then
SendMessageA hEdit, WM_SETTEXT, 0, ByVal 'lParam as any
ElseIf wParam = wStatic Then
SendMessageA hEdit,WM_SETTEXT, 0, ByVal 'lParam as any
Else
SendMessageA hEdit,WM_SETTEXT, 0, ByVal 'lParam as any
End If
When you move or click the mouse over a static child window, the child window traps the WM_NCHITTEST message and returns a value of HTTRANSPARENT to Windows
WindowFromPoint :
The return value is a handle to the window that contains the point. If no window exists at the given point, the return value is NULL. If the point is over a static text control, the return value is a handle to the window under the static text control.
if you change any of the frame styles, you must call SetWindowPos with the SWP_FRAMECHANGED flag for the cache to be updated properly
موقعیت باتن Cancel در Screen :
GetWindowRect hhcl, btnr
With btnr
p1.x = .Left: p1.y = .Top
p2.x = .Right: p2.y = .Bottom
ScreenToClient hhwnd, p1
ScreenToClient hhwnd, p2
.Left = p1.x: .Right = p2.x
.Top = p1.y: .Bottom = p2.y
padding = (.Bottom - .Top) + 5
End With
ساخت لینک در ناحیه Static :
بدست آوردن موقعیت ناحیه Static با ID 4901 ( طبق روش بالا ) و تخریب پنجره با DestroyWindow و سپس ساخت کنترل جدید با نام SysLink و ID جدید
syslink-control-reference-structures
طبق داکیومنت دو پیام اعلان با کنترل SysLink در ارتباطند یکی برای Mouse با کد 2- و دیگری برای KeyBoard با کد 4- یعنی NM_RETURN
There are two notification messages associated with the SysLink control—one for the mouse (NM_CLICK (syslink)), and one for the keyboard (NM_RETURN).
طبق داکیومنت ساختار NMLINK حاوی اطلاعات اعلان یا نوتیفیکیشن است . این ساختار را با پیام های NM_CLICK یا NM_RETURN ارسال کنید.
The NMLINK Contains notification information. Send this structure with the NM_CLICK or NM_RETURN messages.
HTNML Code :
StrLink="<a href="https://www.w3schools.com/">Visit W3Schools.com!</a>"
<a href="https://www.qries.com/"><img alt="Qries" src="https://www.qries.com/images/banne _logo.png" width=150" height="70"></a>
توسط یک Common Control به پنجره والدش زمانیکه رویدادی رخ می دهد ارسال می شود.
Sent by a common control to its parent window when an event has occurred or the control requires some information.
قسمت lParam به ساختار NMHDR اشاره می کند که شامل کد اعلان است.
Dim el As NMLINK
CopyMemory el, ByVal lParam, LenB(el)
Select Case el.hdr.nCode
Case (-2)
SetWindowTextA hWnd, el.item.iLink
End Select
CopyMemory lParam,ByVal el, LenB(lParam)
If el.item.iLink = 0 Then ShellExecute 0, "Open", "D:\pik.png", 0, 0, 4
در لینک بالا استفاده از اعلان های SysLink بیان شده در تصویر زیر نیز nCode استراکچر NMHDR در پنجره immediate window VBE چاپ شده و تصویر زیرین آن از کد 2- استفاده شده وقتی روی هر کدام از لینک ها کلیک می شود کد index ( ساختار LITEM ) مربوطه در Caption و کنترل Edit نمایش داده می شود . ( با موفقیت تست شده با تصویر ارائه گردید.)
Const NM_CLICK = -2
Const NM_DBLCLK = -3
Const NM_RETURN = -4
Const NM_SETFOCUS = -7
Const NM_SETCURSOR = -17
Const NM_CUSTOMDRAW = -12
Const NM_HOVER = -13
Const NM_LDOWN = -20
Const NM_RDOWN = -21
Free Memory
CopyMemory lParam, ByVal nmh, LenB(lParam)
CopyMemory lParam, ByVal nml, LenB(lParam)
CopyMemory nml.item, ByVal tItem, LenB(nml.item)
تغییر رنگ تمام HyperLink ها در WM_NOTIFY و استفاده از ساختار NMCUSTOMDRAW
If the LM_HITTEST message succeeds, the system fills in LITEM.iLink and LITEM.szID. If the LM_HITTEST message fails, do not assume that any information in LITEM is valid
LITEM item{};
item.mask = LIF_ITEMINDEX | LIF_ITEMID | LIF_URL | LIF_STATE;
item.state = LIS_ENABLED | LIS_FOCUSED | LIS_HOTTRACK;
item.stateMask = LIS_ENABLED | LIS_FOCUSED | LIS_HOTTRACK;
'StringcChCopyA
wcscpy_s(item.szUrl, L_MAX_URL_LENGTH, L"http://www.google.com");
SendMessage(syslink_handle, LM_SETITEM, 0, (LPARAM)&item);
SendMessagewParam,WM_NEXTDLGCTL, GetDlgItem(wParam,loword(CLng(SendMessage(wParam, DM_GETDEFID, 0, 0)))), True
WM_NEXTDLGCTL : ارسال می شود به پروسیجور دیالوگ باکس برای تنظیم فوکسکیبوردبه کنترل متفاوت در دیالوگ باکس DM_GETDEFID : &H400پیام ویندوزی : بازیابی شناسه کنترل باتن فشاری پیش فرض برای دیالوگ باکس ،wParam و lParam در اینجا استفاده نمی شود.اگر موفقیت آمیز باشد قسمت loword حاوی شناسه کنترل است
GetDlgItem : تابعی برای بدست آوردن هندل کنترل دو آرگومان دارداولی هندلی به دیالوگ باکس حاوی کنترل و دومی شناسهکنترل مثلا در InputBox آیدی کنترل Ok یک و Cancel دو می باشد Type CHARRANGE
cpMin As Long,cpMax As Long
End Type
Type FORMATRANGE
hdc As LongPtr
hdcTarget As LongPtr
rc As RECT
rcPage As RECT
chrg As CHARRANGE
End Type
Type NMHDR
hwndFrom As Longptr
idFrom As Longptr
nCode As Long 'notification code
End Type
Type ELINK
nmh As NMHDR
Msg As Long
wParam As LongPtr,lParam As LongPtr
chrg As CHARRANGE
End Type
Dim lNMH As NMHDR
Dim lLink As ENLINK
Case WM_NOTIFY
CopyMemory lNMH,ByVal lParam,Len(lNMH)
Select Case lNMH.code
Case EN_MSGFILTER
CopyMemorylLink, ByVal lParam, Len(lLink)
If (lLink.Msg = WM_RBUTTONDOWN) Then
lhMenu=CreatePopupMenu()
AppendMenu lhMenu, MF_STRING, 1, "&Action1"
AppendMenu lhMenu, MF_STRING, 2, "&Action2"
GetCursorPos lPt
lResult=TrackPopupMenuEx(lhMenu, TPM_LEFTALIGN Or TPM_RETURNCMD _ Or TPM_RIGHTBUTTON,lPt.x, lPt.Y,hwnd, ByVal 0&)
DestroyMenu lhMenu
Select Case lResult
Case 1
Case 2
End Select
End If
Case EN_LINK
CopyMemoru lLink,Byval lParam,LenB(lLink)
if lLink.Msg=WM_LBUTTONUP) Then
lText=GetPlainText(hwnd)
ltext=Mid(ltext,lLink.chrg.cpMin + 1, lLink.chrg.cpMax - lLink.chrg.cpMin) ShellE
ShellExecute ...
End If
End Select
Case WM_PAINT
تابع تبدیل Twips به PixelX :
Private Function TwipsToPixelX(pTwipsX As Long) As Long
Static Mult As Long
Dim hdc
If Mult = 0 Then
hdc = GetDC(0)
Mult = 1440 / GetDeviceCaps(hdc, LOGPIXELSX)
ReleaseDC 0, hdc
End If
TwipsToPixelX=CLng(pTwipsX / Mult)
End Function
Private Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim ps As PAINTSTRUCT Dim hdc As Long Dim strMessage As String strMessage = "Hello, Win32 GUI(VBA) World!" Select Case uMsg Case WM_PAINT hdc = BeginPaint(hwnd, ps) TextOut hdc, 0, 0, strMessage, Len(strMessage) EndPaint hwnd, ps Case WM_DESTROY Call PostQuitMessage(0) Case Else WindowProc = DefWindowProc(hwnd, uMsg, wParam, lParam) Exit Function End Select WindowProc = 0 End Function
Public Const NIS_HIDDEN = &H1
Public Const NIS_SHAREDICON = &H2
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIF_STATE = &H8
Public Const NIF_INFO = &H10
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const MAX_TOOLTIP As Integer = 64 '128
Public Const GWL_WNDPROC = (-4)
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
Public nfIconData As NOTIFYICONDATA
' list the icon types for the balloon message..
Public Const vbNone = 0
Public Const vbInformation = 1
Public Const vbExclamation = 2
Public Const vbCritical = 3
Public Sub RemoveIconFromTray()
Shell_NotifyIcon NIM_DELETE, nfIconData
End Sub
Public Sub AddIconToTray(MeHwnd As Long, MeIcon As Long, MeIconHandle As Long, Tip As String)
With nfIconData
.hWnd = MeHwnd
.uID = MeIcon
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.uCallbackMessage = WM_RBUTTONUP
.dwState = NIS_SHAREDICON
.hIcon = MeIconHandle
.szTip = Tip & Chr$(0)
.cbSize = NOTIFYICONDATA_V3_SIZE
End With
0x00000010. Display a balloon notification. The szInfo, szInfoTitle, dwInfoFlags, and uTimeout members are valid. Note that uTimeout is valid only in Windows 2000 and Windows XP.
برای نمایش اعلان بالن NIF_INFO و متن را در szInfo مشخص نمائید.
برای حذف اعلان بالن ، NIF_INFO و رشته خالی را در szInfo مشخص نمائید.
برای اضافه نمودن آیکون ناحیه اعلان بدون نمایش اعلان پرچم یا نشانه NIF_INFO را تنظیم ننمائید.
Private Sub AddToolTip()
Dim tCaretPos As POINTAP
RemoveToolTip
if IsWindow(hToolTip)=0 Then
End If
End If
End Sub
Private Sub RemoveToolTip()
'As Per MSDN Documentary
Function NewWindow(ByVal lngCode As Long,ByVal wParam As LongPtr,ByVal lParam As LongPtr) As Long
if lngCode<0 Then
NewWindow=CallNextHook(hHook,lngCode,wParam,lParam)
Exit Function
End If
CallNextHook hHook,lngCode,wParam,lParam
End Function
switch (message) 'ownerdraw button
{
case WM_MOUSELEAVE:
SetWindowText(hwnd, "Leave!");
break;
case WM_MOUSEMOVE:
SetWindowText(hwnd, "Move!");
tme.cbSize = sizeof(TRACKMOUSEEVENT);
tme.dwFlags = TME_HOVER+TME_LEAVE
tme.dwHoverTime = 1;
tme.hwndTrack = hwnd;
TrackMouseEvent(&tme);
break;
case WM_MOUSEHOVER:
SetWindowText(hwnd, "Over!");
break;
خبر فوری : رهبر انقلاب فرمودند: دشمن میگوید هدفش علی خامنه‌ای است؛ ولی دروغ میگوید؛ هدف دشمن، ملت ایران است.راست میگه اگه سید علی هم نباشه بالاخره سپاه هست که امورات رو بدست بگیره بنده خدا سید علی اون دنیا هم بره مظلوم واقع میشه.
عبداله محمدی : هشدار یک امام جمعه درباره افزایش قیمت برنج ایرانی تا کیلویی یک میلیون ریال / گرانی افسار گسیخته و مشکلات معیشتی مردم را در رنج و مشقت قرار داده است ( دهم بهمن 1400 )
کیومرث اشتریان استاد علوم سیاسی دانشگاه تهران در روزنامه شرق نوشت:«هرچه به غرب نزدیک شوید از ما دور می‌شوید». این منطق روسیه است که به نظر می‌آید در فاصله معنادار «میز روسی»، در ملاقات اخیر «سران» دو کشور، هویدا شده است؛ یعنی چهره‌ای دیگر از سیاست خارجی روسیه و تحکیم پیوند روسی-اسرائیلی در مواجهه با ایران.
بنظرم کیفیت رو باید ببرند بالا حتی اگر متریال خوب با قیمت بالا استفاده شود و آنوقت ببینیم آقا چه تدبیری خواهند نمود.به قول معروف هر چقدر پول بدهی آش میخوری !!! ( یا فراموش کرده یا .... )
ده بهمن 1400 : برخی از رسانه‌های داخل ایران اعلام کردند که تزریق واکسن آسترازنکا در مشهد ممنوع شده است که به دلیل یک مورد فوتی پس از تزریق این واکسن بوده است. اما روابط عمومی دانشگاه علوم پزشکی مشهد اعلام کرد که شایعات درباره آسیب‌زا بودن واکسن آسترازنکا واقعیت ندارد و توقف موقت تزریق آسترازنکا در مشهد به دلیل عدم موجودی مقطعی آن است.....یکی از عوارض نادر التهاب در ستون فقرات است !!!
یازده بهمن 1400 : محمد هاشمی در صفحه توییترش نوشت:« واکسن آسترازنکا از جمله واکسن‌های موثر علیه بیماری کرونا است که صدها میلیون دوز آن در دنیا و حدود ۱۱ میلیون دوز در ایران استفاده شده است. از ابتدا وزارت بهداشت اعلام کرده بود که به دلیل برخی عوارض نادر، در گروه سنی زیر ۵۰ سال سایر واکسن‌ها ارجح هستند.»
بعد از ممنوع‌الکاری ، من اقدامی نکردم و حتی ارشاد هم نرفتم که ببینم اصلا چرا ممنوع شدم یا درخواست بدهم ممنوع‌الکاری‌ام را لغو کنند. حتی کسی به من خبر نداد ممنوع‌الکار شده‌ام. آن موقع کارگردان‌‌ها و تهیه‌کننده‌ها لیست بازیگران‌شان را می‌بردند ارشاد و به آنها می‌گفتند هاشم‌پور فعلا نمی‌تواند کار کند. دلیل خاصی نداشتند فقط گفتند ایشان خیلی دارد پرواز می کند و مطرح میشود»
11 بهمن 1400 : سرپرست شرکت عمران شهرهای جدید با بیان اینکه طبق بررسی‌ها قیمت ساخت واحدهای نهضت ملی مسکن ۴ میلیون و ۷۰۰ هزار تومان در هر متر مربع تعیین شده است گفت: اولویت ما در اجرای پروژه، سازندگان داخلی هستند ولی به منظور ارتقای تکنولوژی ساخت و کاهش سرعت اجرا مذاکراتی با شرکتهای چینی و ترکیه‌ای داشته‌ایم.
11 بهمن 1400 : محمدرضا خباز در گفتگویی درباره ادعای انقلابی‌گری برخی وزرا گفت: از رفتار برخی وزرا احساس می شود، آنها نه انقلابی هستند، نه حق الناس سرشان می شود و نه حقوق مردم برای آنها ارزش دارد. چندی پیش همسر یکی از وزرای دولت سیزدهم که خیلی ادعایش نیز بالاست، برای زایمان به یکی از بیمارستان های خصوصی تهران رفت
وی افزود: نوزاد متولد شده آقای وزیر چون زودتر از موعد به دنیا آمد، تا مدت ها در دستگاه بود بنابراین هزینه بیمارستان زیاد شد. نخست انتظار داشتیم که اگر وزرای دولت سیزدهم انقلابی هستند خود و بستگان‌شان به بیمارستان های دولتی مراجعه کنند، نه به بیمارستان خصوصی پرهزینه. ثانیا با وجود تخفیف فراوان، بیمارستان نهایتا فاکتور ۲۸۰ میلیون تومانی برای آقای وزیر صادر کرد که او باید این مبلغ را پرداخت می کرد اما آقای وزیر فقط با پرداخت یک میلیون تومان، نوزاد را ترخیص کرد.
ملت چه پول هایی که ندارند ماشالله کدوم بیمه است که سقف زایمانش 280 میلیونه یا هزینه بیمارستانیش ؟؟؟؟ و مشخصه به بیمارستان دولتی اعتقادی ندارند چرا چون همه آموزشی اند دکتر باسواد و باتجربه در بیمارستان دولتی یا جراحی نمی کنه یا بعنوان نمادین و دریافا تسهیلات دولتی مجبور به این کاره !!!
12 بهمن 1400 : روز گذشته خبر رسید که یک نفر ۳۰۰۰ واحد مسکن مهر در اختیار دارد؛ این در حالی است که ارزش این تعداد واحد در اوایل دهه ۹۰ به کمتر از ۸۰ میلیارد تومان می‌رسید، حالا اما به دلیل برخورداری مالک این تعداد واحد از زیرساخت‌ها و امکانات دولتی، صاحب حدود ۳۰۰۰ میلیارد تومان سرمایه است. احمدی نژاد و روحانی انقلابی مبارک باد دهه زجر!!!
14 بهمن 1400 : این در حالی بود که امروز بنا به درخواست رئیس جمهور، سیدحسن خمینی قبل از وی به ایراد سخن پرداخت اما در همین هنگام شبکه خبر ضمن قطع برنامه زنده، به پخش ادامه برنامه‌های عادی پرداخت و پس از شروع سخنان رئیس‌جمهور، مجددا پخش زنده را از سر گرفت!
14 بهمن 1400 : فرزندان شهید سلیمانی به عیادت محمد کاسبی بازیگر پیشکسوت سینما و تلویزیون رفتند و انگشتر سردار دلها را به این هنرمند اهدا کردند.
بهمن 1400 : احمدی نژاد در دیدار با جمعی از فرهنگیان که پنجشنبه گذشته، هفتم بهمن انجام شد، اخراج برخی اساتید دانشگاه را به شدت مورد انتقاد قرار داد
بهمن 1400 : حمله یکی از اراذل و اوباش در شیراز به یک مامور پلیس و بریدن شاهرگ او، در فضای مجازی بسیار پربحث شده است. انتشار فیلم تکان‌دهنده این حادثه، این سوال را برای مخاطبان ایجاد کرده است که واقعا چرا سروان علی‌اکبر رنجبر با وجود اینکه اسلحه در دست داشت، به سمت مهاجم مسلح شلیک نکرد؟ پیش از این اتفاق نیز اخبار متعدد از گرفتاری بسیاری از محیط‌بان‌ها بدلیل شلیک به سمت شکارچیان غیرمجاز، این گزاره را پررنگتر میکند که اساسا محافظان محیط زیست سلاح دارند ولی گویی نباید از آن استفاده کنند.
۱۷ بهمن 1400 : با وجود سیر نزولی قیمت دلار، نرخ خرده فروشی انواع برنج خارجی در بازار مصرف همچنان در حال افزایش است به‌نحوی که قیمت برنج هندی و پاکستانی به مرز ۳۳تا ۳۵هزار تومان رسیده است. پیش از این نرخ برخی انواع برنج مرغوب ایرانی از ۹۵هزار تومان عبور کرده بود.
18 بهمن : علیرضا مرندی وزیر پیشین بهداش، درمان و آموزش پزشکی در یک برنامه تلویزیونی در شبکه سلامت ضمن دعوت از مردم برای دریافت دزهای واکسن کرونا، از دریافت دُز سوم واکسن کرونا توسط رهبر انقلاب خبر داد و گفت: همانطور که مقام معظم رهبری سه نوبت واکسن‌شان را تزریق کرده‌اند و واکسن ایرانی و برکت هم زدند، ما هم باید همین‌کار را بکنیم، آنهایی که واکسن نزدند عجله کنند.
مطابق با مستندات منتشر شده از سوی سازمان بورس، زیان انباشته بانک آینده برای عملکرد منتهی به پایان شهریور ماه ۱۴۰۰ به ۸۱ هزار و ۹۰۰ میلیارد تومان رسیده است.
امام جمعه قم ( حسینی همدانی ) با اشاره به اقامه نماز رییس جمهوری اسلامی ایران در کاخ کرملین گفت: احتمال این وجود دارد که رییس جمهور ما در کاخ سفید هم نماز بخواند زیرا این نمازی که در کاخ کرملین خوانده شد پیام های مهمی در پی داشت.
بررسی روش های تبدیل میلادی به شمسی و معایب آن بصورت کاملا تخصصی
بررسی اختلافِ روزها از سال 1300 تا تاریخ شمسی بزرگتر از این تاریخ
بررسی روزِ هفته یِ تاریخ شمسی مورد نظر و مروری بر تابع پربرکت WeekDay در اکسس
بررسی تابع بابرکت Choose در اکسس
بررسی سن فرد
با ما باشید حتی اگر Vba نمی دانید مباحث در انتها شیرین خواهد شد
دوستان گرامی لطفا پس از مطالعه در نظرسنجی شرکت کرده و در صورت لزوم زیر مطلب نظر دهید با تشکر
dDate : "2021/01/04" .... 1400/10/14
گرفتن سال ، ماه و روز بصورت جداگانه با توابعی که اکسس در اختیار ما قرار داده
YY=Year(dDate)=2021
MM=Month(dDate)=1
DD=Day(dDate)=4
Every year that is exactly divisible by four is a leap year, except for years that are exactly divisible by 100, but these centurial years are leap years if they are exactly divisible by 400. For example, the years 1700, 1800, and 1900 are not leap years, but the years 1600 and 2000 are
هر سالی که دقیقا بر 4 بخش پذیر باشد ، سال کبیسه است ( Leap Year ) ، جز سال هایی که بر یک قرن که 100 سال است بخش پذیر باشد . اینها در صورتی کبیسه هستند که دقیقا بر 400 بخش پذیر باشند. مثلا سال های 1700 ، 1800 و 1900 کبیسه نیستند ولی 1600 و 2000 کبیسه هستند.
پس سال 2022 کبیسه نیست و ماه فوریه 28 روز است .
تابع زیر تاریخ میلادی را داخل دابل کوتیشن می گیرد و مقدار Boolean را بر می گرداند.اگر کبیسه نباشد مقدار برگشتی False است.
IsLeapYear(dDate As Date) As Boolean
Dim GetYear As Long
GetYear=Year(dDate)
IsLeapYear=?
'select iif(612 mod 100=0,iif(612 mod '400=0,True,False),iif(612 mod 4=0,True,False))
?IsLeapYear("2021/01/04"
False
Leap years within your range:1600~2004
1600, 1604, 1608, 1612, 1616, 1620, 1624, 1628, 1632, 1636, 1640, 1644, 1648, 1652, 1656, 1660, 1664, 1668, 1672, 1676, 1680, 1684, 1688, 1692, 1696, 1704, 1708, 1712, 1716, 1720, 1724, 1728, 1732, 1736, 1740, 1744, 1748, 1752, 1756, 1760, 1764, 1768, 1772, 1776, 1780, 1784, 1788, 1792, 1796, 1804, 1808, 1812, 1816, 1820, 1824, 1828, 1832, 1836, 1840, 1844, 1848, 1852, 1856, 1860, 1864, 1868, 1872, 1876, 1880, 1884, 1888, 1892, 1896, 1904, 1908, 1912, 1916, 1920, 1924, 1928, 1932, 1936, 1940, 1944, 1948, 1952, 1956, 1960, 1964, 1968, 1972, 1976, 1980, 1984, 1988, 1992, 1996, 2000, 2004
سرآغاز گاهشماری ایران روز جمعه «۱ فروردین سال ۱ هجری خورشیدی» (۲۹ شعبان ۱ سال پیش از هجرت)[۷] برابر با ۱۹ مارس ۶۲۲ میلادی قدیم (یولیانی) و ۲۲ مارس ۶۲۲ میلادی جدید (گرگوری) است؛ یعنی، ۱۱۹ روز پیش از مبدأ گاهشماری هجری قمری و ۱۷۹ روز پیش از هجرت.[۸]
کبیسه گیری گاه شمار رسمی ایران :
تقویم رسمی کنونی ایران معمولاً هر چهار سال یکبار کبیسه میشود و برای جبران کسر سال حقیقی، در آغاز هر دورهٔ ۲۹، ۳۳ یا ۳۷ساله، یک کبیسه پنج ساله وجود دارد. در یک فراز پنج هزارساله، ما به ازای هر دورهٔ ۳۷ساله، نزدیک به پنج دورهٔ ۲۹ساله و تقریباً ۲۰ دورهٔ ۳۳ساله وجود دارد. ترتیب و توالی کبیسه‌ها قاعده‌مند نیست. چنانچه لحظه تحویل سال خورشیدی بعد از ظهر ۳۶۶اُمین روز از سال باشد، آن سال کبیسه و روز بعد نوروز است.[۱۴]
برای تشخیص سالهای کبیسه در گاهشماری رسمی ایران شیوه کاملاً یکنواختی وجود ندارد. برای سالهای ۱۲۴۴ تا ۱۳۴۲ چنانچه باقی‌ماندهٔ حاصل تقسیم سال مورد نظر بر عدد ۳۳، یکی از اعداد (۱، ۵، ۹، ۱۳، ۱۷، ۲۱، ۲۶ و ۳۰) باشد آن سال کبیسه خواهد بود.[۷] و برای سالهای اخیر (سالهای ۱۳۴۳ تا ۱۴۷۲)، به‌جای ۲۱، باقی‌ماندهٔ ۲۲ ملاک خواهد بود
مانده سال شمسی مورد نظر تقسیم بر 128 اگر یکی از اعداد بالا بود آن سال کبیسه است و برای سال های 1 تا 473 گفته اعداد داخل کمان مد نظر است.
البته گفته شده چون در چند دوره 33 ساله قرار گرفته ایم مانده عدد تقسیم بر عدد 33 اگر اعدادی در بازه 1 ، 5 ، 9 ، 13 ، 17 ، 21 ، 26 ، 30 بود آن سال کبیسه است البته اگر عدد 22 شد کبیسه ۵ ساله می شود.
سال 1300، 1304 ، 1309 کبیسه هستند.
128 : 1,309−1,280=29
1,375−1,280=95
33 : 1,309−33×39=22 کبیسه پنج ساله
33 : 1,375−41×33=22 کبیسه پنج ساله
سالهای 1399 و 1403 کبیسه 4 ساله و سال 1408 کبیسه پنج ساله هستند چون مانده تقسیم 1408 بر 33 عدد 22 است.
1,408−42×33=22
1,408−11×128=0 طبق جدول
یک راه قرار دادی دیگر که رایانه ای است و سریع قابل محاسبه است نیز داده شده
(۱۳۹۱+۲۳۴۶)×(۰/۲۴۲۱۹۸۵۸۱۵۶) =۹۰۵/۰۹۶۰۹۹۲۹۱
اگر عدد اعشار که درمثال بالا 0.096099291 از عدد 0.24219858156 کمتر بود آن سال کبیسه است یا
27,399÷365.24=75
1300+75=1375 ' سال شمسی
27399-75×365.24=6 '6+1 =7 روز شمسی
عدد 6 را با عدد یک جمع می کنیم میشود روز هفتم
26,126−365.24×71=193.96 'int(193.96)
193+1-6×31=8 ' روز شمسی
6+1=7 ' ماه شمسی
1921/03/21=?
'select 'datediff("d","1921/03/21","1921/03/21")
0
0\365.24=0
برای این موارد که صفر است هم باید در نظر گرفته شود که عدد بدست آمده باضافه یک شود و در لوپ جمع روزهای سال شمسی قرار بگیرد و ماه مورد نظر و روز را بدست آورد
Function ShamsiDate(dDate As Date)
Dim Miladi As Date, Shamsi
Dim DaysDiff As Long
Miladi = "1921/03/21"
Shamsi = "1300/01/01"
DaysDiff = DateDiff("d", Miladi, dDate)
debug.Print DaysDiff
?shamsiDate("2016/10/31")
34923
جمع بندی برای محاسبه از طریق 365.24
34,923÷365.2421985815 =95.618
(34923+1)-95×365.2421985815=225.99
226 1395/08/10
22,036÷365.2421985815 =60 .33
(22036+1)-365.2421985815×60 =122.46
122 1360/04/29
27,393÷365.2421985815=74.99
(27,393+1)−365.2421985815×74=366.07
366 1375/01/01
33,602÷365.2421985815=91.99
(33,602+1)−365.2421985815×91=365.95
365 1391/12/30
20,993÷365.2421985815÷57.47
(20,993+1)−365.2421985815×57 =175. 19
175 1357/06/20
26,126÷365.2421985815=71.53
(26,126+1)-365.2421985815×71=194.80
194 1371/07/08
روش بالا هم بی اشکال نیست چون یک روز اختلاف در آن اجتناب ناپذیر است اگر روش شما تست نشود مثل تصویر زیر خواهد شد که اختلاف یکروز را منجر خواهد شد:
روش دیگر این است که تعداد کبیسه های دو تاریخ میلای بدست آید یکی از آن کم شود بعد در 366 ضرب شده و از اختلاف روزهای دو تاریخ میلادی کم شوند و سپس بر 365 تقسیم شده .....
1921/03/21 'مبنای ما 1300/01/01
1996/03/20 ' تاریخی که باید تبدیل شود
DateDiff=27393
NumberOfLeapYearsInRange(1921,1996)=19
19-1=18
(27393-18×366)÷365=57
57-1=56
(27393-18×366)-56×365=365
365+1=366 'چون 1300 کبیسه بود
1300+18+56=1374
1374 ' کبیسه نیست و 365 روز دارد
چون عدد 366 بدست آمد به 1374 می افزائیم در نتیجه چون سال 74 کبیسه نیست پس 365 روز و معادل یکسال است در نتیجه سال 75 میشود و یک روز اینجا باقی میماند که میشود روز یکم فروردین
1375/01/01
2013/03/20
NumberOfLeapYearsInRange(1921,2013)=23
DateDiff=33602
23-1=22
(33602-22×366)÷365=70
70-1=69
(33602-22×366)-365×69=365
365+1=366
1300+22+69=1391 ' کبیسه است
چون 1391 کبیسه است لذا 366 روزه است و در نتیجه سال همان 1391 باقی می ماند و ماه سال میشود 12 و روز نیز میشود 30 اُم ...... پس تاریخ میلادی 2013/03/20 معادل 1391/12/30 شد.
2000/03/20 =????? 137901/01
1921/03/21~2000/03/20
DaysDiff=28854
NumberOfLeapYersInRange(1921,2000)=18
18-1=17
(28854-17×366)÷365=62.005
62-1=61
(28854-17×366)-365×61=367
1300+17+61=1378
خب باروش بالا هم به بن بست خوردیم 
پس دقیق ترین روش استفاده از Counter است که تعداد اختلاف روزها را به 1300/01/01 اضافه کنیم و اینکار اگر بخواهد یک روز یک روز به این تاریخ اضافه کند یک مقدار زمانبر است ولی خب بسیار دقیق است البته کبیسه گیری شمسی نیز در این امر بسیار مهم است !!!
در مثال زیر تعداد کبیسه های شمسی از 1300 تا 1391 23 تاست که کبیسه اول ( چون اختلاف اول فروردین تا 30 اسفند 1300 ، 365 روز است ) و آخر ( سال 91 ) از آن کم شده که تا تقریبا یکسال قبلش بدست آید 91=70+21 ، سال 1391 و کبیسه است پس 366 روز میشود همان 12/30
71-1=70
(33,602−21×366)−70×365=366
(6,574−3×366)÷365=15
15-1=14
(6,574−3×366)-14×365=366
1300+3+14=1317 ' کبیسه است
1317/12/30
(6,575−3×366)−14×365=367
1300+3+14=1317 ' کبیسه است
366 '1317/12/30
1 '1318/01/01
نوشتن لوپ برای کم کردن 365 یا 366 روز از اختلاف روزهای میلادی
'1978/09/11=1357/06/20
ii=0
DaysDiff=DateDiff("d","1921/03/21","1978/09/11")
Diff=DaysDiff
Do
x=Diff-iif(IsLeapYears1(1300+i)=True,366,365)
Y=Year(dDate)+1 ' تابع Year("1978/09/11")=1978
YY=1300+i
ii=ii+1
Loop Until Y=Year(dDate)-1
Debug.Print x
Debug.Print YY
???? Maybe Use But Not Reliable
(6,575−4×366)−13×365=366 '1300+4+13=1317/12/30
از 1921 تا 2013 =92
Right Way '2013/03/20
(33,602+1−22×366)−69×365=366 '1300+22×69=1391/12/30
' Loop : To Get jalali leap years from 1300
t=1300+(2013-1)-(1921+1) '1390
For i = 1300 To t '1390
x = x + IIf(IsShamsiLeapYears1(i) = True, 1, 0)
DoEvents
Num=x
If IsShamsiLeapYears1((1390)) = True Then Num = x - 1
Next
Debug.Print Num
?ShamsiDate()
22
e = Int((DaysDiff+1 - Num * 366) / 365) - 1
Y=1300+e+Num '1300+22+69
Debug.Print "Contant :" & e
diff = (DaysDiff+1 - Num * 366) - e * 365
Debug.Print "Diff :" & diff
از یک لوپ بعنوان کانتر می شود استفاده کرد که بین 1 تا عدد 366 یا بیشتر که بدست آمد یک Counter یا شمارنده ایجاد بنماید ( حالت افزایشی تکی ) .Increment مثل عبارت Counter استفاده شده در AutoNumber .
'Counter
Function ShamsiDateCounter(yy, diff)
Dim Y As Single
Dim MM, DD, i, a As Integer
For i = 1 To diff
DD = DD + 1
If DD > IIf(MM=12 And IsShamsiLeapYears1(yy) = True, 30, GetShamsiDays(MM)) Then MM = MM + 1: DD = 1
If MM > 12 Then yy = yy + 1: MM = 1
'CurrentDb.Execute ("delete from table2")
'CurrentDb.Execute ("insert into table2 (mah,rooz) values (" & MM & "," & DD & ")")
Next
Debug.Print yy & "..." & MM & "..." & DD
End Function
?ShamsiDateCounter(1378,36)
1378...2...6
از کانتر بالا نیز می توان برای چند ماه و چند روز از سال گذشته استفاده کرد . تاریخ شمسی طبق روز میلادی جاری بدست آمده و فقط یک پارامتر Optional به آن اضافه کنید ، اگر مقدارآن True بود تاریخ شمسی را بگیرد و سپس لوپ را تا آن ماه مشخص ادامه دهد.
برای وارد کردن صحیح ماه و روز در تکست باکس در زمان Data Entry یا زمان داده گیری ، می توان در رویداد OnExit خود تکست باکس نوشت در صورتیکه Dirty=True شد چک کند که ماه بین یک تا 12 باشد و روز هم طبق ماهی که وارد شده و کبیسه بودنش اگر نبود Undo کند و در BeforeUpdate فرم هم می توان نوشت که تکست باکس اگر خالی باشد Cance=True شود.
پس راه من درآوردی ما بدین شکل شد :
1-مبنای محاسبه را تاریخ 1921/03/21 معادل 1300/01/01 قرار دادیم.
2-بدست آوردن کبیسه های شمسی بین دو بازه تاریخ میلادی البته یک واحد از سال میلادی مورد نظر کم می کنیم و به مبنا اضافه ، فرضا سال میلادی تبدیلی 2013 است
2012-1922=90 ' 1300+90=1390
تعداد سال های کبیسه از 1300 تا 1390 طبق لیست کبیسه ها که در بالاتر ذکر شده 22 است.اگرسال آخر کبیسه بود یک واحد از تعداد کبیسه ها کم می کنیم.
3-اختلاف روزهای دوبازه تاریخی یعنی مبنا و تاریخ تبدیلی را با تابع بسیار پربرکت DateDiff بدست می آوریم و یک واحد بخاطر جبران سال 1300 مبنا که کبیسه است و اختلاف اول فروردین آن تا 30 اسفند آن 365 روز است ، اضافه می نمائیم . از سایت w3Schools نیز می توانید استفاده کنید اگر سیستم ندارید مثال :
DaysDiff=DateDiff("d","1921/03/21","2013/03/20")
پس طبق تصویر اختلاف روزهای دو تاریخ میلادی شد 33602 روز. و با یک جمع می کنید 33603
4-تعدادکبیسه در 366 را از روزهای بدست آمده کم می کنیم و بر 365 تقسیم می کنیم و عدد صحیح آنرا منهای یک می کنیم :
(33603-22×366)/365=70.0027
Int((33603-22×366)/365)=70
70-1=69
5- 69 را با تعداد کبیسه ها جمع می کنیم میشود 91
6- حاصل عدد 69 در 365 را از حاصل تفریق تعداد کبیسه در 366 و تعداد روزها + یک میشود مانده ی ما یا Diff
(33,603−22×366)−69×365=366
7-عدد حاصله را در یک تابع Counter گذاشتیم تا بگوید 366 روز بعد از سال 91 چه تاریخی خواهد شد .
چون 91 کبیسه است 366 اُمین روزش میشود 12/30 در نتیجه خروجی ما 1391/12/30 خواهد بود.
میشود از کانتر استفاده کرد و عدد 33602 باضافه یک را یکی یکی اضافه کرد تا بعد از 1300 را نشان دهد ولی خب کُندِس و حدود 5 ثانیه طول میکشد تا جواب بدهد.
مثال دیگر : 2022/01/08 ( مبنا 1921/03/21 )
DaysDiff=36818
2022-1-1922=99+1300=1399
Leaps Between 1300 ~ 1399=25
چون 1399 کبیسه است پس یک واحد از تعداد کبیسه کم کنیم.
int((36,818+1−24×366)÷365)=76.80
76-1=75
(36,818+1−24×366)-75×365=660
Y=1300+24+75=1399,Diff=660
چون 1399 کبیسه است 366 از 660 کم میشود و 294 می ماند 294 اُمین روز سال هم میشود 10/18 یا 294=18+30×3+31×6 .... کانتر محاسبه بعد از 1399 را انجام خواهد داد.
1921/03/21-1939/03/20:6573
1921/03/21-1939/03/21:6574
1921/03/21-1939/03/22:6575
اول اضافه کردن یک واحد به سال مبنا که 1921 است و کسر کردن یک واحد از سال تبدیلی که 1939 است
1300+(1,939−1)−(1,921+1)=1316
مورد اول تعداد کبیسه ها از 1300 تا 1316 ، عدد 4 است و خوشبختانه 1316 کبیسه نیست اگر بود از 4 یک واحد کسر می شد.
(6573+1-4×366)/365=14
14-1=13
(6,573+1−4×366)−13×365=365
1300+4+13=1317
سال 1317 کبیسه و 366 روزه است پس 365 اُمین روز آن 12/29 می شود 1317/12/29.
'6575
Diff=(6,575+1−4×366)−13×365=367
1300+4+13=1317 , 367
چون 1317 کبیسه است پس 366 از 367 کم شده و یکسال به سال اضافه میشود ( تابع کانتر را ملاحظه بفرمائید ) سال میشود 1318 و روز و ماه هم یک می شود.
1318/01/01
همانطور که شرح داده شد روش آخر اگر چه حدود دو ثانیه طول می کشد ولی Reliable است البته برای زیر 365 یا 366 نیز چاره ای بیاندیشید.
در مورد زیر :
1921/03/21~1922/03/22=366
1301/01/01
1300+1921+1-(1922-1)=1301
در 1300 تا 1301 یک کبیسه وجود دارد
(366+1-1×366)÷365=0.002
0
if 0 Then
Diff=DaysDiff+1 : Y=1300
End if
Counter (1300,367)
چون 1300 کبیسه است لذا 366 روزه است بعد از ارسال به کانتر باید جواب 1301/01/01 استخراج شود.
1921/03/21~1922/03/21=365
1300+(1921+1)-(1922-1)=1301
1 Leap Years ( jalali )
(365+1-1×366)=0
if 0 Then
Diff=365+1 : Y=1300
Counter(1300,365)
1300/12/30
1921/03/21~1922/06/13
DaysDiff(Use DateDiff)=449
1300+(1921+1)-(1922-1)=1301
(449+1-1×366)÷365=0
if 0 Then
Diff=449+1 : Y=1300
Counter(1300,450)
روش دیگری هم می توانید خلق کنید.
اگر روش های بالاتر را بکار ببرید اختلاف یکروز کاملا مشهود خواهد بود مثل تصویر زیر
92×365+22+1=33603
2013/03/20=1391/12/30
'jalali leap year 1300-1390=22-1=21
91×365+21+366=33602
چون تا 12/30 میشود 366 روز لذا اضافه شده
select datediff("d","1921/03/21","2022/01/09")
Equivalant :1400/10/19 - 2022/01/09
=36819
'jalali leap year 1300~1399=25-1=24
1400-1300=100
100×365+24=36524
36819-36524=295
295=6×31+3×30+19
100×365+24+6×31+3×30+19=36819
91×365+21+6×31+3×30+12=33524
33,524+(31+28+21)−91×365−22=367
سال 2012 کبیسه است و 366 روزه در نتیجه چون عدد 367 بدست آمد یک واحد به سال 2012 اضافه و روز و ماه نیز یک میشود
2013/01/01
20,993−365−56×365−14=174
174+80=254
1,920×365+(31+28+21)+480:1920÷4=701360
1300/01/01
1299×365+1+324:1299÷4=474460
701,360−474,460=226900
علت بازداشت وی هنوز مشخص نشده است. با این حال مرادخانی اخیرا در یک برنامه زوم شعری را به فرح پهلوی ملکه سابق ایران تقدیم کرده بود.
این فعال مدنی پیشتر نیز به‌دلیل کمک به خانواده قربانیان اعتراضات ضد نظام و برخی اظهارات انتقادآمیز از شرایط کشور چندین بار توسط نهادهای امنیتی فراخوانده و بازداشت شده بود.
قبیله موسو در چین
این قبیله که موسو نام دارد یکی از نادرترین وعجیب‌ترین قبیله‌ها در جهان است که در آن زن و شوهر با هم زندگی نمیکنند بلکه پیش پدر یا مادر خود می‌مانند. در قبیله‌ای به‌نام موسو، مادربزرگ خانواده در واقع رهبر خانواده است و نامهای خانوادگی و هویت اجتماعی فرد از طریق مادر و اجداد او معنی می‌یابد.
چند شوهری
این قبیله در دامنه‌های هیمالیا وجود دارد و توسط زنان اداره میشود و مردان آن به کلی به حاشیه رانده شده‌اند. در واقع نظام کمونیستی نتوانست تنوع فرهنگی این مردم را بر طبق اهداف کمونیستی، یکسان ساز کند. در این قبیله بسیاری از کارهای مهم توسط زنان انجام میشود اما شکار و ماهیگیری را همچنان مردان انجام می‌دهند.
ازدواج گذری در این جامعه یکی از صورت‌های اصلی ازدواج است. به این ترتیب که زن می‌تواند همسران زیادی داشته باشد. در این قبیله مرد‌ها باید در خانه زن باشند. اما تا قبل از غروب آفتاب هر مرد باید به خانه مادرش بازگردد، اگر از این ازدواج فرزندی به‌دنیا آمد، بزرگ کردن آن به عهده خانواده مادری است.
امام جمعه رفسنجان عنوان کرد: جمعیت عظیمی از شهدای بسیج داریم که به‌دلیل غیرت دینی خود در صحنه به شهادت رسیدند. دشمنان دنبال این هستند که غیرت دینی را در جامعه کمرنگ کنند، اگر به جایگاه رهبری و ولایت فقیه توهین شود، برای کمرنگ‌کردن غیرت دینی است. اگر مسأله بدحجابی یا بی‌حجابی را در جامعه ترویج می‌کنند یا یک خانم را از سر بی‌دینی و نفهمی تشویق می‌کنند که دوچرخه‌سواری کند، با اینکه دوچرخه‌سواری بانوان در انظار عموم حرام است، دنبال خدشه‌دار کردن غیرت دینی مردم هستند.
وی ادامه داد: اگر افسار سگ را به دست دختر و پسر ما در کوچه و خیابان دادند برای خدشه‌دارکردن غیرت دینی است و اگر به مسائل مذهبی، نماز و روزه ما حمله کردند دیدند که غیرت دینی جامعه را از بحران‌ها نجات میدهد که باید خیلی به هوش باشیم و از سر این قضایا به‌سادگی نگذریم و بگوییم دختر جوان دوست دارد دورچرخه‌سواری کند! خیر، باید هوشیار باشیم و نگذاریم چنین کاری در جامعه گسترش پیدا کند.
'Some Constants
Private Const WS_EX_MDICHILD = &H40
xlDesk
Excel7
Form_Activate
OHwnd = FindWindowEx(Application.hwnd, 0, "OMain", vbNullString)GetWindowRect hWndForm, tRect
Form_MOUSEMOVE
If Button = 1 Then
CB_SETDROPPEDWIDTH=&H160
hWndXl = ApphWnd ---> ("XLMAIN")
hWndFormulaBar = FindWindowEx(hWndXl, 0, _
"EXCEL;", vbNullString)
hWndNameCombo = FindWindowEx(hWndFormulaBar, 0, _
"combobox", vbNullString)https://docs.microsoft.com/en-us/windows/win32/controls/cb-getdroppedwidth
'CB_GETDROPPEDWIDTH message
'Parameters
'wParam : Not used; must be zero.
'lParam : Not used; must be zero.
'Return value :
'If the message succeeds, the return value is the width, in pixels. 'drop down width SendMessage hWndNameCombo,CB_SETDROPPEDWIDTH, 200, 0
CB_SETEDITSEL message :
Parameters
wParam :This parameter is not used
lParam [in]
The LOWORD of lParam specifies the starting position. If the LOWORD is -1, the selection, if any, is removed.
The HIWORD of lParam specifies the ending position. If the HIWORD is -1, all text from the starting position to the last character in the edit control is selected.
If the message succeeds, the return value is TRUE. If the message is sent to a combo box with the CBS_DROPDOWNLIST style, it is CB_ERR.
The positions are zero-based. The first character of the edit control is in the zero position. The first character after the last selected character is in the ending position. For example, to select the first four characters of the edit control, use a starting position of 0 and an ending position of 4
webbrowser-open-office-document-in-visual-basic
البته مطلب زیر تکرار مکررات است
The WebBrowser control has several properties, methods, and events that you can use to implement controls found in Internet Explorer. For example, you can use the Navigate method to implement an address bar, and the GoBack , GoForward , Stop , and Refresh methods to implement navigation buttons on a toolbar
Obj.ContextMenu = TRUE 'Boolean Type
در لینک زیر رویداد های یک اکتیو ایکس کنترل Webbrowser نشان داده
vba/api/access.webbrowsercontrol
برای نمایش یک سایت در کنترل webbrowser که در اینجا نام کنترل WebBrowser0 است :
Me.WebBrowser0.Navigate "www.Blogsky.com"
فقط صفحات Html در این Browser قابل مشاهده هستند پس در این کنترل نمی توانید فایل Pdf یا Word باز کنید.
برای Disable کردن اجرای عملیات در webbrowser یا باصطلاح خودمون عدم نمایش ، رویداد BeforeNavigate2 را مطالعه نمائید در تابع آرگومان آخر از نوع Boolean تعریف شده که می توانید آنرا False کنید.
برای استفاده از کلاس ماژول هایی که Microsoft HTML DOCUMENT دارد در Refrence محیط VBE آنرا تیک بزنید همانطور که گفته شد WithEvents متغیری را تعریف می کند که می توانید به رویدادها دسترسی پیدا کنید البته آن متغیر تعریف شده را باید در تابع WebBrowser0_DocumentComplete به پراپرتی Document این کنترل تنظیم کنید.
Private WithEvents HDoc As HTMLDocument
در DocumentComplete که دو آرگومان دارد اولی بعنوان آبجکت و دومی url از نوع Variant بنویسید
Set HDoc=WebBrowser0.Document
از نحوه نوشتاری رویه هایی که در HTMLDocunent وجود دارد اطلاعی ندارم و تنها چیزی که پیدا شد رویداد OnClick است
Private Function Hdoc_OnClick() As Boolean
Msgbox " Clicked Me !!!)
End Function
در رویه بالا اگر شما Boolean را بکار نبرید خطا دریافت خواهید کرد. و حتما باید آنرا بکاربرد
غیر فعال کردن Scroll :
Me.WebBrowser0.Document.Body.Scroll="No"
Event : NavigationStateChanged
دو تا آرگومان دارد و مقدار Boolean دارند یکی CanGoBack و دیگری CanGorward
powerscript_reference/mouseMove_event
WithEvents
Specifies that one or more declared member variables refer to an instance of a class that can raise events.
برای استفاده از عناصر مربوطه در Refrence تیک Microsoft Html library را حتما تیک بزنید البته بدون تیک هم می توان کارهایی انجام داد که مجبور به تیک این آپشن نباشیم البته اگر فایل مربوطه در system32 نباشد دیگر هیچ کاری نمی توان انجام داد.
Public WithEvents ObjHtmlDoc As HTMLDocument
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set objHtmlDoc = WebBrowser1.Document
End Sub
OnMouseMove Event :
زمانیکه ماوس را روی کنترل webbrowser می گیرید مختصات x و y را برمی گرداند
First Tick "Microsoft HTML Object Library" Form VBA Refrences
Important :in Upper Sub Procedures Declared Private WithEvents Doc Ass HTMLDocument ( To use Event )
Important : Set Variable Doc In Sub WebBrowser_DocumentComplete(Byval pDisp as Object,url As Varaint)
Doc_OnMouseMove
Me.text3=Me.Text3 = "X : " & dc.parentWindow.event.clientX & _
"Y : " & dc.parentWindow.event.clientX
OnMouseUp Event
برای Scroll کردن در اکتیو ایکس WebBrowser به سمت پائین و انتهای body روش زیر پیشنهاد شده
To scroll to a specific location, you can use WebBrowser.Document.Window.ScrollTo(x,y) method. For example to scroll down to the end of body:
private void webBrowser1_DocumentCompleted(object sender,
WebBrowserDocumentCompletedEventArgs e)
{
webBrowser1.Document.Window.ScrollTo(0, webBrowser1.Document.Window.Size.Height);
}WebBrowser Events
DocumentComlete Event :
زمانی فعال می شود که یک سند به طول کامل بارگیری و مقدار دهی اولیه شود ( "Object.Navigate="url )
نوشتاری :
Private Sub WebBrowser0_DocumentComplete(ByVal iDisp As Object ,url As Variant)
Zoom Method : زوم کردن
طبق عبارت زیر می توانید صفحه را با درصد انتخابی Zoom in یا Zoom Out کنید.
Me.WebBrowser0.Document.body.Style.zoom = "220%"
Scroll Height : ارتفاع اسکرول در صفحه
برای بدست آوردن ارتفاع اسکرول طبق زیر عمل کنید
To Get Scroll Height Of Body ( Object Must Be Set )
Dim HtmlBody As HtmlBody
Set HtmlBody = Me.WebBrowser0.Document.body
MsgBox HtmlBody.scrollHeight
Click Button : کلیک روی باتن
کلیک روی باتن طبق تصویر زیر و باز شدن منو با کلیک اول منو بازشد و کلیک دوم به حالت قبل برگشت.
HTMLElement . متد Click یک کلیک ماوس روی عنصری را شبیه سازی می کند عنگامی که Click با عناصر پشتیبانی شده مانند <input> استفاده می شود ، رویداد کلیک عنصر را فعال می کند . این رویداد سپس به عناصر بالاتر در شاخه سند ( یا زنجیره رویداد ) تبدیل می شود و رویداد کلیک آنها را فعال می نماید.
در تصویر Gif زیر کامند سمت چپ داکیومنت را در کنترل راهبری می کند و کامند سمت راست منو رو باز میکند البته در حالتی که کنترل وب براوزر را بازتر کنیم آن حالت راهبری بصورت Toggle از بین می رود و در form-header سه دکمه مثل "ورود به سیستم" نمایان می شود وعملا این کد خاصیتی ندارد. برای کلیک کردن روی سه باتن loging یا Signup می توانید ....... لوپ زدن در element ها و چک کردن id یا href یا هر چیز دیگری و Ele.Click
شامل header و content و footer است.
.Document.GetElementsByTagName("Button")(0)
.innerText="Toggle Navigation"
getElementsByName و getElementsByClassName یک آرایه را باز می گردانند بنابراین باید ایندکس آیتم آرایه در براکت ها مشخص شود.
مطلب زیر هم جالبه برای انتخاب تمام کلاس ها با getElementsByClassName و Click
' Input the userid and password ie.Document.getElementById("uid").Value = "testID" ie.Document.getElementById("password").Value = "testPW"
' Click the "Search" button ie.Document.getElementById("enter").Click
Link
Set HTMLdoc = appIE.HTMLDocument
برای کلیک کردن ، حتما متغیر که اینجا myLinks است باید تنظیم شود
Dim myLinks As Object
Set myLinks = Document.getElementsByTagName("a")Add List the Link to ListBox
Private Sub Form_Load()
WebBrowser1.Navigate "www.vbforums.com"
End Sub
Dim HTMLdoc As HTMLDocument
Dim HTMLlinks As HTMLAnchorElement
Dim STRtxt As String
' List the links.
On Error Resume Next
Set HTMLdoc =WebBrowser1.Document
For Each HTMLlinks In HTMLdoc.links
List1.AddItem HTMLlinks.href
STRtxt = STRtxt & HTMLlinks.href & vbCrLf
Next HTMLlinks
'Append means add data to end
Open "C:\Documents and Settings\joe\Desktop\linklog.txt" For Append As #1
Print #1, STRtxt
Close #1
End Sub
CommandStateChange Event :
زمانی ر خ می دهد که حالت فعال یک فرمان یا Command تغییر نماید
Cmmand : | ||
CSC_NAVIGATEFORWARD ( Value : 1) The enabled state of the Forward button has changed. CSC_NAVIGATEBACK ( Value : 3 ) If Command = 2 Then Me.Command5.Enabled = Enable How To Hide Or Show WebBrowser Control Me.WebBrowser0.Visible = False | The enabled statebutton has http:// changed. |
باتنی می توان در فرم تعبیه کرد و از GoBack برای برگشتن به عقب استفاده کرد البته باتن Back د ر کیبورد همین کار را انجام میدهد
On Error Resume Next
Me.WebBrowser0.GoBack
وقتی صفحه وب کاملا Load شد اگر از Goback استفاده کنید ( در رویه یک باتن بنویسید ) با خطا مواجه می شوید چون صفحه قبلی وجود ندارد که شما را به آن بازگرداند ولی اگر از دکمه کیبورد ( Back ) استفاده کنید خطا دریافت نمی کنید ... کد اول بخاطر همین نوشته شد.
بجای استفاده از DONTPROMPTUSER می توانید از PROMPTUSER بهره ببرید برای اینکه به کاربر اعلام نماید و Dialog Box را نمایش دهد. از Shell هم می توان استفاده کرد .
Shell "rundll32.exe C:\WINDOWS\SYSTEM\MSHTML.DLL,PrintHTML " & _ "http://www.developerfusion.com" , vbMinimizedFocus
با SendKeys هم می توان کنترل + P را فرستاد 
راه های رسیدن به پرینت صفحه.
To Fill Edit Box :
WebBrowser1.document.all("username").Value = "Name"
WebBrowser1.document.all("password").Value = "passwort"
WebBrowser1.document.all("Submit").Click
OnMouseDown()
Private Declare Ptrsafe Function GetAsyncKeyState Lib "user32" (ByVal VKey As Long) As Integer
For Key = 1 To 5 '255
If GetAsyncKeyState(Key) Then 'WebBrowser1_MouseDown VKey
Exit For
End If
Next
If Key = 2 Then
Me.Label1 ="Right MouseDown"
End If
استفاده از تابع ویندوری ShellExecute برای اجرای فایل
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
'Declare arguments
(ByVal hWnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
'Used to display a window
Const SW_SHOWNORMAL = 1
'Open pdf occurs on button click
Private Sub cmdPDF_Click()
Dim strPath, strParam As String
strPath = "C:\Example.pdf"
strParam = " /A " & Chr(34) & "page=14" & Chr(34) & strPath
Call ShellExecute(0&, "open", "AcroRd32.exe", strParam, "", SW_SHOWNORMAL)
End Sub
Remove Open\Save Dialog
------------------------------------------------------
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\AcroPDF.FDF.1]
[HKEY_CLASSES_ROOT\AcroPDF.PDF.1]
"EditFlags"=hex:00,00,01,00
------------------------------------------------------
Add Open\Save Dialog
------------------------------------------------------
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\AcroPDF.FDF.1]
"EditFlags"=hex:00,00,00,00
[HKEY_CLASSES_ROOT\AcroPDF.PDF.1]
"EditFlags"=hex:00,00,00,00
لطفا بعد از مطالعه و استفاده فاتحه ای برای پدر مرحومم قرائت فرمائید .... دوستان عزیز لطفا در نظر سنجی شرکت کنید در ضمن مطالب زیر ربطی به اکسس ندارد و فقط برای مطالعه است
صرفا جهت مطالعه ، مطالب زیر ربطی به کنترل بالا ندارد . موارد جدید مربوط به webbrowser اگر یافت شد به بالا اضافه خواهد شد.
WM_NCHITTEST=132
WM_SETCURSOR=32
WM_MOUSEMOVE=512
پیام ویندوزی ارسال به پنجره
WM_MOUSEMOVE :
Private Type POINTAPI
x As Long
y As Long
End Type
'Constants
Public Sub SetMouseHook()
If Not IsHooked Then
OldWndProc = SetWindowsHookEx(WH_MOUSE, AddressOf MouseProc, 0, GetCureantThreadID)
IsHooked = True
End If
End Sub
Public Sub RemoveMouseHook()
UnhookWindowsHookEx OldWndProc
IsHooked = False
End Sub
SubClass Window
Public Declare PtrSafe Function SetWindowLongPtrA Lib "user32" (ByVal Hwnd As LongPtr, _
ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Public Declare PtrSafe Function CallWindowProcA Lib "user32.dll (ByVal lpPrevWndFunc As LongPtr, _
ByVal Hwnd As LongPtr, ByVal Msg As Long, _
ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
Public OldWndProc As LongPtr
Public IsHooked As Boolean
Public cCount As LongLong
Islamic Resistance
نماینده، ولی فقیه در سپاه پاسداران گفت: ۹ دی به همه پیام داد، اما زیباترین پیام آن به رهبری انقلاب بود که در خروش مردم در روز ۹ دی ۸۸ فریاد زده شد و دو جمله آن مهم‌تر بود که یکی از آن خشم و تبری و مقاومت و ایستادگی در برابر دشمنان بود و دیگری این بود که "ما اهل کوفه نیستیم"؛ و یافزود: پیام مردم ما بعد از ۱۲ سال هم خطاب به رهبر انقلاب این است که ما ایستاده ایم و ما فرزندان شماییم و ما حاج قاسم‌هایی داریم که همه چیز خود را می‌دهند که انقلاب آسیب نبیند.
حجت الاسلام والمسلمین عبداله حاجی صادقی خطاب به رهبر انقلاب گفت: ما دیگر اجازه نمی‌دهیم که شما در نماز جمعه مظلومانه با امام زمان عج درد دل کنید و فریاد" این عمار" بزنید.وی گفت: امروز زنان ما در مکتب حضرت زهرا بصیرت، صراحت، شجاعت، پشت دشمن شکستن و فرزند دادن در راه انقلاب را آموخته
اند و هر چند دشمن تحریم و تهدید میکند، فریاد ملت ما هیهات من الذله است.
منظور ایشان از زنان بابصیرت همانانیست که با موی بیرون ریخته از زیر شال ( قطعا روسری پو ش نیستند ) در راهپیمایی ۲۲ بهمن شرکت می کنند و پیروزی انقلاب اسلامی را جشن می گیرند امید که در ۲۲ بهمن شاهد خیل عظیم این بابصیرت ها باشیم که امام زمان هم خشنود بشوند و ایشان فریاد این عمار بر جهانیان بکشند.
