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

[mehrad 36]

سلام 

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

 

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

اينطور چيزي 

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

[mkabir 186]

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

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

[mehrad 36]

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

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

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

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

 

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

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

 

ممنون ميشم

[mkabir 186]

در 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)

 

[mehrad 36]

 

در 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 هست 

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

[mkabir 186]

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

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

DateTimeLibrary.rar

[mehrad 36]

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

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

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

DateTimeLibrary.rar

ممنون داداش