View Full Version : گرفتن تاریخ شمسی جدا جدا در vb.net
naser13
دوشنبه 30 اردیبهشت 1392, 09:15 صبح
سلام من تو دات نت جدیدم.
یه مشکل دارم میتونم تاریخ شمسی رو بگیرم ولی نمی تونم جدا جداش کنم یعنی
ماه , سال , روز من میخوام هر کدوم تو یه باکس باشه
Imports System
Imports System.Globalization
از این استفاده میکنم
behnam2010
دوشنبه 30 اردیبهشت 1392, 10:45 صبح
سلام دوست عزیز naser13
من خودم بعد کلی گشتن این رو پیدا کردم فقط وقتی وارد فرمت میکنی و بعد از run شدن برنامت تاریخ نشون نمیده حتما باید یه کلیدی در این تکست باکس بزنی تا نشون بده
حالا راهی که من پیدا کردم اینه که :
تو رویداد load فرم وارد کن
FarsiDate1.ThisText = Nowدر ضمن برای فارسی کردن اعدادش هم از یک فونت فارسی استفاده کن ( من خودم از B yekan استفاده میکنم )
من این فایل dll رو تو vb.net 2010 امتحان کردم جواب گرفتم
shahryari
دوشنبه 30 اردیبهشت 1392, 10:54 صبح
سلام
3 تا تکست باکس به فرم اضافه کنید
در رویداد فرم کد زیر را به رشته تحریر در بیاورید !!!
Dim g As New Globalization.PersianCalendar
TextBox1.Text = g.GetYear(Now).ToString
TextBox2.Text = g.GetMonth(Now).ToString
TextBox3.Text = g.GetDayOfMonth(Now).ToString
behnam2010
دوشنبه 30 اردیبهشت 1392, 11:00 صبح
سلام
3 تا تکست باکس به فرم اضافه کنید
در رویداد فرم کد زیر را به رشته تحریر در بیاورید !!!
Dim g As New Globalization.PersianCalendar
TextBox1.Text = g.GetYear(Now).ToString
TextBox2.Text = g.GetMonth(Now).ToString
TextBox3.Text = g.GetDayOfMonth(Now).ToString
جناب آقای Shahryari من از این کد زیر واسه نمایش همشون تو یه تکست باکس همون طور که naser13 گفت امتحان کردم
TextBox4.Text = TextBox1.Text + "/" + TextBox2.Text + "/" + TextBox3.Text
اما ایرادی که دارم : وقتی تاریخ پاک میشه دیگه ماسکی وجود نداره . انگار که داریم عدد داخل تکست باکس میریزیم
shahryari
دوشنبه 30 اردیبهشت 1392, 11:20 صبح
جناب آقای Shahryari من از این کد زیر واسه نمایش همشون تو یه تکست باکس همون طور که naser13 گفت امتحان کردم
اما ایرادی که دارم : وقتی تاریخ پاک میشه دیگه ماسکی وجود نداره . انگار که داریم عدد داخل تکست باکس میریزیم
شما باید تنظیمات ماسک تون را برابر 0000/00/00 قرار بدهید
104412
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.