رفتن به مطلب
  • 0

زمان اضافه شدن مطلب


mehrad

سوال

سلام 

من به اينطور چيزي نيازمندم 

 

هر مطلبي از ديتابيس انلاين اضافه شد رو برنامه تاريخشو نشون بده و بگه مثلا چند روز پيش ديروز امروز بك ماه پيش دو ماه پيش 

اينطور چيزي 

ممنون ميشم كمك فرماييد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

درود دوست عزیز وقتی مطلبی به دیتابیس انلاین اضافه میکنید ی فیلدی قرار بدید تحت عنوان date  و تاریخ رو بش بدین و تو برنامه اون تاریخ رو بگیرین و با تاریخ فعلی مقایسه کنید میتونید از کتابخونه DateTimeLibrary برای نشون دادن اینکه چ زمانی گذشته استفاده کنید.

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 7 ساعت قبل، mkabir گفته است :

درود دوست عزیز وقتی مطلبی به دیتابیس انلاین اضافه میکنید ی فیلدی قرار بدید تحت عنوان date  و تاریخ رو بش بدین و تو برنامه اون تاریخ رو بگیرین و با تاریخ فعلی مقایسه کنید میتونید از کتابخونه DateTimeLibrary برای نشون دادن اینکه چ زمانی گذشته استفاده کنید.

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

با تشكر از توجه شما 

 

من تاريخ رو ميدم و ميگيرم فقط مشكلم توي نوشتن ديروز امروز هفته پيش اين چيزاست

اگه ممكنه شما يه كدي چيزي بدين من ياد بگيرم اينو بيش از  دو ماهه كسي توي انجمن بلد نيست بگه بهم 

 

ممنون ميشم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 5 ساعت قبل، mehrad گفته است :

با تشكر از توجه شما 

 

من تاريخ رو ميدم و ميگيرم فقط مشكلم توي نوشتن ديروز امروز هفته پيش اين چيزاست

اگه ممكنه شما يه كدي چيزي بدين من ياد بگيرم اينو بيش از  دو ماهه كسي توي انجمن بلد نيست بگه بهم 

 

ممنون ميشم

درود دوست عزیز ی تابع برات نوشتم که هر عددی بش بدی بهت یه متنی برمیگردونه میتونی خودتم بش اضافه کنید اگر من 2 رو وارد کنم بهم برمیگردونه دو روز پیش 

Sub DateAgoToText(Date As Int) As String
Dim sLastSeen As String
	If Date < 1 Then 
		sLastSeen = "امروز"
	else if Date < 2 Then 	
		sLastSeen = "دیروز"
	Else if Date < 3 Then
		sLastSeen = "دو روز پیش"
	else if Date < 4 Then 	
		sLastSeen = "سه روز پیش"
	Else if Date < 5 Then
		sLastSeen = "چهار روز پیش"
	else if Date < 6 Then 	
		sLastSeen = "پنج روز پیش"
	Else if Date < 7 Then
		sLastSeen = "شش روز پیش"	
	Else if Date < 8 Then
		sLastSeen = "یک هفته پیش"		
	else if Date < 14 Then
		sLastSeen = "بیش از یک هفته پیش"
	else if Date < 15 Then
		sLastSeen = "دو هفته پیش"
	else if Date < 30 Then
		sLastSeen = "حدود یک ماه پیش"
	else if Date < 31 Then
		sLastSeen = "یک ماه پیش"
	Else
		sLastSeen = "بیش از یک ماه"
	End If
Return sLastSeen	
End Sub

برای اینکه بخوای متنای بیشتری بزاری باید شرط هارو بیشتر کنید مثلا اگر بخوای بزاری ده روز پیش باید این کد هم  به شرط ها اضافه کنی

else if Date < 11 Then
 sLastSeen = "ده روز پیش"                 

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

Lbl.Text = DateAgoToText(14)

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

در 4 ساعت قبل، mkabir گفته است :

درود دوست عزیز ی تابع برات نوشتم که هر عددی بش بدی بهت یه متنی برمیگردونه میتونی خودتم بش اضافه کنید اگر من 2 رو وارد کنم بهم برمیگردونه دو روز پیش 

Sub DateAgoToText(Date As Int) As String
Dim sLastSeen As String
	If Date < 1 Then 
		sLastSeen = "امروز"
	else if Date < 2 Then 	
		sLastSeen = "دیروز"
	Else if Date < 3 Then
		sLastSeen = "دو روز پیش"
	else if Date < 4 Then 	
		sLastSeen = "سه روز پیش"
	Else if Date < 5 Then
		sLastSeen = "چهار روز پیش"
	else if Date < 6 Then 	
		sLastSeen = "پنج روز پیش"
	Else if Date < 7 Then
		sLastSeen = "شش روز پیش"	
	Else if Date < 8 Then
		sLastSeen = "یک هفته پیش"		
	else if Date < 14 Then
		sLastSeen = "بیش از یک هفته پیش"
	else if Date < 15 Then
		sLastSeen = "دو هفته پیش"
	else if Date < 30 Then
		sLastSeen = "حدود یک ماه پیش"
	else if Date < 31 Then
		sLastSeen = "یک ماه پیش"
	Else
		sLastSeen = "بیش از یک ماه"
	End If
Return sLastSeen	
End Sub

برای اینکه بخوای متنای بیشتری بزاری باید شرط هارو بیشتر کنید مثلا اگر بخوای بزاری ده روز پیش باید این کد هم  به شرط ها اضافه کنی

else if Date < 11 Then
 sLastSeen = "ده روز پیش"                 

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

Lbl.Text = DateAgoToText(14)

 

با سلام و تشكر 

 

من الان يه ليبيل دارم كه سال و ماه و روز رو بصورت دقيق نشون ميده اسمشم label1 هست 

الان اين كد شمارو چطور بشناسونم به اون؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود دوست عزیز از کتابخونه DataTimeLibrary  استفاده کنید براتون پیوست کردم  و بجای Date  تاریخ رو وارد کنید 

Dim dtl As DateTimeLibrary
lbl.text = DateAgoToText(dtl.GetTimeAgo(Date))

DateTimeLibrary.rar

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 12 ساعت قبل، mkabir گفته است :

درود دوست عزیز از کتابخونه DataTimeLibrary  استفاده کنید براتون پیوست کردم  و بجای Date  تاریخ رو وارد کنید 

Dim dtl As DateTimeLibrary
lbl.text = DateAgoToText(dtl.GetTimeAgo(Date))

DateTimeLibrary.rar

ممنون داداش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...