بدست آوردن اول و آخر هر ماه

[akbarg64]

سلام.خسته نباشید دوستان.چطور میتونم اول و آخر هر ماه رو بدست بیارم.ممنون میشم کمکم کنید:قلب:

[setroyd]

با format میتونی این کارو بکنی .

[akbarg64]

ممنون.خب چه جوری؟؟؟؟؟؟میشه توضیح بدین؟

[farboodj1375]

سلام.
منظورت چیه که اول و آخر هر ماه رو بدست بیاریم؟
یعنی بفهمی که اول ماه چندشنبه بوده؟
ولی هر کار میخوای بکنی یک کامپوننت هست ( اگه اتباه نکنم MeSahmsi.Dll مه با سمپلش تو همین سایت هست یه جستجو بکن) امکانات خیلی زیادی در رابطه با تاریخ داره و به احتمال خیلی زیاد مشکلت رو حل میکنه.
تو سمپلش همه امکاناتش استفاده شده.

[akbarg64]

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

[setroyd]

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

[akbarg64]

نه دوستان من با روزها کاری ندارم.نمیدونم چه جوری بگم.مثلا خرداد ماه چه تاریخیه.1/3/1390 و مثلا اخر ماه رو نشونم بده 30/3/1390 یا مثلا اسفند ماه 1/12/1390 اخر ماه 29/12/1390.نمیخوام با جمع کردن به تاریخ اینکار انجتم بشه چون اشتباه میشه و سال های کبیسه مشکل ساز میشه.میخوام اونو بدست بیارم.امیدوارم منظورمو تونسته باشم برسونم.

[farboodj1375]

اون سورس رو که گفتم دانلود کردین؟(MeShamsi.Dll)

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

[akbarg64]

منکه سرچ کردم چیزی پیدا نشد. سمپلش منظورمه.اگه دارین لطفا بزارین .ممنون

[farboodj1375]

سلام.
این ابزار ساخت کاربر همین سایت آقای Mbt925 هست.
توضیحات هم ار وبلاگ خودشون هست.

توابع این ابزار:

Convert_Date: تبدیل تاریخ شمسی به میلادی و برعکس
Convert_Date2Letter: دریافت تاریخ و برگشت سال/ماه/روز/روز هفته
Convert_Month2Letter: دریافت شماره ماه و تبدیل آن به حروف ( 1:فرودین و ... )
Convert_Number2Letter: تبدیل اعداد به حروف ( تا 18 رقم)

DateBetween: مقایسه سه تاریخ ( آیا تاریخ a بین تاریخ b و c می باشد؟)
DateCompare: مقایسه دو تاریخ
DateDiffShamsi: اختلاف دو تاریخ (به سال/ماه/هفته/روز/ساعت/دقیقه/ثانیه) - مشابه تابع DateDiff ویبی

DecreaseDate: کم کردن یک روز از تاریخ ورودی
IncreaseDate: اضافه کردن یک روز به تاریخ ورودی
DecreaseDate_Custom: کم کردن X روز از تاریخ ورودی
IncreaseDate_Custom: اضافه کردن X روز به تاریخ ورودی

Get_CurrentYear: تاریخ روز اول و آخر سال جاری را برمی گرداند.

Get_CurrentMonth: تاریخ روز اول و آخر ماه جاری را برمی گرداند.

Get_CurrentWeek: تاریخ روز اول و آخر هفته جاری را برمی گرداند.
Get_CurrentYearLength: طول سال جاری را برمی گرداند.
Get_CurrentYearMonthDay: روز، ماه، سال، تاریخ جاری را برمی گرداند.
Get_DayOfWeek: روز هفته را برمی گرداند (شنبه، یکشنبه، ...).
Get_First_DayOfCurrentMonth: روز اول ماه جاری را برمی گرداند (شنبه، یکشنبه، ...).
Get_First_DayOfCurrentWeek: روز اول هفته جاری را برمی گرداند (شنبه، یکشنبه، ...).
Get_Month: یک تاریخ دریافت می کند و تاریخ روز اول و آخر ماهی که تاریخ در آن قرار دارد را برمی گرداند.
Get_PreviousMonth: روز اول و آخر ماه قبل را برمی گرداند.
Get_PreviousYear: روز اول و آخر سال قبل را برمی گرداند.
Get_Week: یک تاریخ دریافت می کند و تاریخ روز اول و آخر هفته ای که تاریخ در آن قرار دارد را برمی گرداند.

IsValidDate: یک تاریخ دریافت می کند و درستی آن را بررسی می کند.
Split_Date: یک تاریخ دریافت می کند و آن را به سال/ماه/روز تجزیه می کند.

Today: تاریخ امروز را برمی گرداند.

اونیکه مد نظر شما هست رو با رنگ قزمز مشخص کردم.
----
لینک دانلود ابزار + نمونه : http://mbt925.persiangig.com/ActiveX/MEShamsiDll%20-%20Sample.rar

[mafia5000]

منکه سرچ کردم چیزی پیدا نشد. سمپلش منظورمه.اگه دارین لطفا بزارین .ممنون

Dim i As String
i = Now
Dim Y, M, D As String
Y = Format(i, "yyyy")
text1.Text = Y
M = Format(i, "mm")
text2.Text = M
D = Format(i, "dd")
text3.Text = D