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
ادامه...
در شکل بالا در تصویر اول در یک شیت مجزا اطلاعاتی از قبیل تاریخ ،شماره شناسایی مشتری و یک ستون پرداخت ( بصورت Yes و No ) پر شده .... در تصویر زیر آن قرار است در ستون های عنوان هر شماره شناسایی مشتری طبق سالی که پرداخت کرده تعداد یا کانت Yes یا No درج گردد.
۱-گرفتن شماره ردیف آخرین داده واردشده در ستون ۱ ، اگر داده خالی وجود داشته باشد شماره ردیف ماقبل آنرا را باز می گرداند پس به این نکته دقت کنید تا ستونی را انتخاب کنید که حتما تمام ردیف های آن پر باشد.
lastRow=Sheets("Data").Cells(Rows.Count,1).End(xlUp).Row
۲-معرفی آرایه پویا :
Dim Arr()
ReDim Arr(lastRow-2,1)
۳-شماره رکورد اول در آرایه :
Num=0
۴-ذخیره داده در آرایه :( شیت تصویر اول در شکل)
For L=2 To lastRow
If Sheets("Data").Range("C" & L)=Yes Then
Arr(Num,0)=Year(Sheets("Data").Range("A" & L)
Arr(Num,1)=Sheets("Data").Range("B" & L)
Num=Num+1
End If
Next
کانت یا شمارش با لوپ زدن در آرایه :
Counter=0
For i=0 To Num-1
If Arr(i,0)=YEAR And Arr(i,1)=ID Then
Counter=Counter+1
Next
برای درج کانت یا شمارش Yes و No طبق ID و سال Date در تصویر پائین شکل بالا باید لوپ های تودرتو ایجاد کرد.
For YEAR=2011 To 2026
For ID=1 TO 30
'here use Counter
NEXT
'here display in cells ( Counter )
NEXT
لوپ اول در ردیف ها ( درج تعداد ) و لوپ دوم در ستون ها
۷ دیماه ۱۴۰۲
۷ دیماه ۱۴۰۲ :
سید محمد شفیعی در یادداشتی برای دیپلماسی ایرانی می نویسد: ایران نیازی به دخالت مستقیم خود ندارد و می‌تواند با استفاده از نیروهای نیابتی خود (هدف قرار دادن بلندی‌های جولان از طریق خاک سوریه، تقویت انصارالله برای مختل کردن تجارت دریایی اسرائیل و تقویت حماس برای ایجاد تغییر در موازنه جنگ)، شرایط را برای اسرائیل در ادامه جنگ سخت‌تر کند و با صبر راهبردی می‌تواند این ترور را تلافی کند
۱۳ دیماه ۱۴۰۲ : عملیات تروریستی
ثارالله انکوتی در گفتگو با گروه اجتماعی پایگاه خبری تحلیلی راه آرمان که از شاهدان عینی موج انفجار ترویستی، گفت: مسیر ورودی به گلزار شهدا از سمت ورودی مسجد فروزی قتلگاه بود.
وی ادامه داد: در موکب مشغول خدمت‌رسانی بودیم که متأسفانه صدای بسیار مهیبی شنیده شد با سرعت خود را به سمت محل حادثه رساندم که زمین را از پیکر شهدا پوشیده دیدم.
دیماه ۱۴۰۲
رویا حشمتی براساس رأی شعبه ۲۶ دادگاه انقلاب با اتهام تبلیغ علیه نظام، به یک سال حبس محکوم شد و قرار بود که یک‌بیستم آن اجرا شود، اما در نهایت او دو روز هم بیشتر از حکم خود در زندان ماند.
رأی شعبه ۱۰۹۱ مجتمع قضائی ارشاد نیز چنین بوده است: «این دادگاه مجموعا خانم رویا حشمتی را به ۱۳ سال و ۹ حبس محکوم کرده بود. این شعبه، بابت اتهام حضور در معابر بدون حجاب شرعی، خانم حشمتی را به پرداخت یک میلیون و ۲۵۰ هزارتومان جزای نقدی، بابت اتهام تشویق به فساد و فحشا به تحمل ۱۲ سال و شش ماه حبس، بابت اتهام جریحه‌دارکردن عفت عمومی به تحمل ۷۴ ضربه شلاق تعزیری و بابت اتهام ساخت و انتشار آثاری که عفت عمومی را جریحه‌دار می‌کند، به تحمل یک سال و سه ماه حبس تعزیری، ۷۴ ضربه شلاق و ۱۰۰ میلیون ریال جزای نقدی محکوم کرد».
این حکم مورد اعتراض و تجدیدنظر خواهی قرار می‌گیرد و در نهایت با ارجاع به شعبه ۱۴ دادگاه تجدیدنظر استان تهران، رویا بابت اتهام تشویق به فساد و فحشا و ساخت و انتشار آثاری که عفت عمومی را جریحه‌دار کرده، تبرئه می‌شود. اما با اتهام حضور در معابر بدون حجاب شرعی، به پرداخت یک میلیون و ۲۵۰ هزار تومان جزای نقدی و به جهت اتهام جریحه‌دار کردن عفت عمومی به ۷۴ ضربه شلاق محکوم می‌شود و این حکم درست در روز مادر اجرا می‌شود.
۷ دیماه ۱۴۰۲
خبرگزاری فارس-گروه زندگی: دو خانم مانتویی مسافر مترو تهران به دختری بی‌حجاب می‌گویند که پوشش نامناسبی برای حضور در اماکن عمومی دارد و بهتر است شکم برهنه‌اش را بپوشاند. دختر جوان در مقابل این درخواست، می‌گوید: «زندگی خودمه، دخالت نکنید، اگه با پوشش من مخالفید، جمع کنید و از ایران برید».
در تقویم میلادی نو سال‌هایی که بر ۴ بخش‌پذیر باشند (باقی‌ماندهٔ تقسیم آن سال بر ۴ برابر ۰ باشد) کبیسه هستند با این استثنا که از میان سال‌هایی که بر ۱۰۰ بخش‌پذیرند (سال‌های انتهای سده)، تنها آنهایی که بر ۴۰۰ نیز بخش‌پذیرند کبیسه هستند.
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 - کرمان.)
به گزارش خبرنگار ایرنا، زینب سلیمانی روز پنجشنبه در حاشیه عیادت از مجروحان انفجارهای تروریستی شهر کرمان در بیمارستان شهید باهنر در جمع اصحاب رسانه تصریح کرد: اگر دشمنان این اقدامات را انجام می دهند تا مردم را منزجر و عشق و علاقه به این شهید را در دل ها کمرنگ کنند، باید به تصویر شب گذشته گلزار شهدای شهر کرمان نگاه کنند که بعد از حادثه دیروز مملو از جمعیت بود.
۲۰ دیماه ۱۴۰۲ :
