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

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

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

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

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

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

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

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

Public Function Kabiseh(ByVal OnlySal As Variant) As Integer

Kabiseh = 0

If OnlySal >= 1375 Then

If (OnlySal - 1375) Mod 4 = 0 Then

Kabiseh = 1

Exit Function

End If

ElseIf OnlySal <= 1370 Then

If (1370 - OnlySal) Mod 4 = 0 Then

Kabiseh = 1

Exit Function

End If

End If

End Function

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

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

Dim Tmp As Long

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

Dim Sumation As Single

Dim Flag As Boolean

Flag = False

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

Diff = 0

Exit Function

End If

If FromDate > To_Date Then

Flag = True

Tmp = FromDate

FromDate = To_Date

To_Date = Tmp

End If

r1 = Rooz(FromDate)

m1 = mah(FromDate)

s1 = Sal(FromDate)

r2 = Rooz(To_Date)

m2 = mah(To_Date)

s2 = Sal(To_Date)

Sumation = 0

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

If Kabiseh((s1)) = 1 Then

If m1 = 12 And r1 = 30 Then

Sumation = Sumation + 365

r1 = 29

Else

Sumation = Sumation + 366

End If

Else

Sumation = Sumation + 365

End If

s1 = s1 + 1

Loop

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

Select Case m1

Case 1 To 6

If m1 = 6 And r1 = 31 Then

Sumation = Sumation + 30

r1 = 30

Else

Sumation = Sumation + 31

End If

m1 = m1 + 1

Case 7 To 11

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

Sumation = Sumation + 29

r1 = 29

Else

Sumation = Sumation + 30

End If

m1 = m1 + 1

Case 12

If Kabiseh(s1) = 1 Then

Sumation = Sumation + 30

Else

Sumation = Sumation + 29

End If

s1 = s1 + 1

m1 = 1

End Select

Loop

If m1 = m2 Then

Sumation = Sumation + (r2 - r1)

Else

Select Case m1

Case 1 To 6

Sumation = Sumation + (31 - r1) + r2

Case 7 To 11

Sumation = Sumation + (30 - r1) + r2

Case 12

If Kabiseh(s1) = 1 Then

Sumation = Sumation + (30 - r1) + r2

Else

Sumation = Sumation + (29 - r1) + r2

End If

End Select

End If

If Flag = True Then

Sumation = -Sumation

End If

Diff = Sumation

End Function

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

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

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

R = Rooz(F_Date)

m = mah(F_Date)

S = Sal(F_Date)

K = Kabiseh(S)

Days = MahDays(S, m)

If add > Days - R Then

add = add - (Days - R + 1)

R = 1

If m < 12 Then

m = m + 1

Else

m = 1

S = S + 1

End If

Else

R = R + add

add = 0

End If

While add > 0

K = Kabiseh(s)

Days = MahDays(S, m)

Select Case add

Case Is < Days

R = R + add

add = 0

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

add = add - Days

If m < 12 Then

m = m + 1

Else

S = S + 1

m = 1

End If

Case Else

S = S + 1

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

End Select

Wend

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

End Function

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

۱۳۷۰ ۱۲ ۱۶

add=۲۷۹

R=۱۶

m=۱۲

s=۱۳۷۰

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

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

Days=۳۰

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

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

R=1

m=1

s=۱۳۷۱

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

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

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

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

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

m=1

add = add - days

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

m = m+۱ = ۱ + ۱ =۲

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

add = add - days

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

m = m+۱ = ۱ + ۱ =۲

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

R = R + add

R = ۱ + ۱۸ = ۱۹

S = ۱۳۷۱

۱۳۷۱ ۰۸ ۱۹

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

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

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

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

Select Case mah

Case 1 To 6

MahDays = 31

Case 7 To 11

MahDays = 30

Case 12

If Kabiseh(Sal) = 1 Then

MahDays = 30

Else

MahDays = 29

End If

End Select

End Function

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

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

R = Rooz(F_Date)

m = mah(F_Date)

S = Sal(F_Date)

K = Kabiseh(S)

If Subtract >= R - 1 Then

Subtract = Subtract - (R - 1)

R = 1

Else

R = R - Subtract

Subtract = 0

End If

While Subtract > 0

K = Kabiseh(S - 1)

 

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

Select Case Subtract

Case Is < Days

R = Days - Subtract + 1

Subtract = 0

If m >= 2 Then

m = m - 1

Else

S = S - 1

m = 12

End If

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

Subtract = Subtract - Days

If m >= 2 Then

m = m - 1

Else

S = S - 1

m = 12

End If

Case Else

S = S - 1

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

End Select

Wend

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

End Function

۲۰ آدر ۱۴۰۳

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

independentpersian ✓

Twitter › indypersian

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

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

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

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

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

شاهزاده سادو

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

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

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

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

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

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

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

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

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

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

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

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

expression.Selected(row)

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

Me!Listbox.Selected(4) = True

ListCtl.Selected(intCount) = True

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

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

expression.ColumnCount

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

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

expression.Column (Index, Row)

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

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

expression.BoundColumn

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

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

expression.ItemData (Index)

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

For Each ObjItm In ctl.ItemsSelected

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

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

mFilter = "id in("

For Each varItm In ctl.ItemsSelected

mFilter= mFilter & varItm & ","

Next

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

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

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

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

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

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

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

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

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

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

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

expression.Column (Index, Row)

AddItem Method

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

expression.AddItem (Item, Index)

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

reel ‹ voafarsi ‹ www.instagram.com

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

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

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

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

۱۲ آذر ۱۴۰۳

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

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

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

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

سیاسی ‹ www.tala.ir

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

سیاسی ‹ www.asriran.com

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

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

post ‹ gunaz.tv

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

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

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

news ‹ www.shahrekhabar.com

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

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

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

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

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

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

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

سیاسی ‹ www.asriran.com

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

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

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

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

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

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

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

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

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

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

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

سیاسی ‹ www.asriran.com

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

۱۹ آذر ۱۴۰۳

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

حوادث ‹ www.asriran.com

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

جوایز: Cannes Special Jury Prize

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

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

HyperLink در اکسس

در تکست باکس 

Dim h as Hyperlink

Set h=ctl.Hyperlink

With h

.Address

.SubAddress

.Follow

End With

Properties

Control.Hyperlink.EmailSubject

Control.Hyperlink.Address

Control.Hyperlink.SubAddress

Control.Hyperlink.TextToDisplay

Control.Hyperlink.ScreenTip

Forms.Item(index)

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

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

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

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

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