Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringToday / Yesterday Mod... Anyone Have?

Author : bobby131313
Subject : Today / Yesterday Mod... Anyone Have?
Posted : 16 February 2008, 19:09
Message :

Does anyone have a copy of this mod anywhere? The links are dead, I installed it eons ago and now want to try and add it to the User Space mod.
Thanks in advance.<

Reply Author: Etymon
Replied on: 17 February 2008, 11:06
Message:

Hi,

The .zip file for this MOD contains only a text file, and it is short. Instead of posting a link to the .zip, here are the contents of the readme.txt file.
Cheers,

Etymon

----------------------------------------------------------------------

Title: Today and Yesterday
Author: Kevin Whipp
Developed for use with Snitz Forums 2000 v3.4
Support: http://whipp.us/forum.asp?FORUM_ID=19
Description: Changes the display of today's date to "Today" and yesterday's date to "Yesterday".

INSTALLATION
============

1. Edit your own files according to the code and instructions below

*******************
INC_FUNC_COMMON.ASP
*******************

-------------------
FIND THIS FUNCTION:
-------------------

function chkDate(fDate,separator,fTime)
if fDate = "" or isNull(fDate) then
if fTime then
chkTime(fDate)
end if
exit function
end if
select case strDateType
case "dmy"
chkDate = Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,1,4)
case "mdy"
chkDate = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
case "ymd"
chkDate = Mid(fDate,1,4) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2)
case "ydm"
chkDate =Mid(fDate,1,4) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2)
case "dmmy"
chkDate = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
case "mmdy"
chkDate = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmd"
chkDate = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
case "ydmm"
chkDate = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
case "dmmmy"
chkDate = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
case "mmmdy"
chkDate = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmmd"
chkDate = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
case "ydmmm"
chkDate = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
case else
chkDate = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
end select
if fTime then
chkDate = chkDate & separator & chkTime(fDate)
end if
end function

--------------------------------
REPLACE THAT WITH THIS FUNCTION:
--------------------------------

function chkDate(fDate,separator,fTime)
if fDate = "" or isNull(fDate) then
if fTime then
chkTime(fDate)
end if
exit function
end if
select case strDateType
case "dmy"
chkDate = Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,1,4)
case "mdy"
chkDate = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
case "ymd"
chkDate = Mid(fDate,1,4) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2)
case "ydm"
chkDate =Mid(fDate,1,4) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2)
case "dmmy"
chkDate = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
case "mmdy"
chkDate = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmd"
chkDate = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
case "ydmm"
chkDate = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
case "dmmmy"
chkDate = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
case "mmmdy"
chkDate = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmmd"
chkDate = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
case "ydmmm"
chkDate = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
case else
chkDate = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
end select
select case Mid(Request.ServerVariables("SCRIPT_NAME"), InstrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1)
case "admin_accounts_pending.asp", _
"admin_config_datetime.asp"
'
' For any page that needs the actual date, add the file name to the above case statement. '
case else
select case left(fDate,8)
case left(DateToStr(date),8)
chkDate = "Today"
case left(DateToStr(date-1),8)
chkDate = "Yesterday"
end select
end select
if fTime then
chkDate = chkDate & separator & chkTime(fDate)
end if
end function

******************************************************************************
* Now upload the edited files to your forum directory on your website. *
* *
* I hope you enjoy this MOD. Please let me know if you have any questions, *
* comments or suggestions! *
* *
* - Kevin Whipp *
* - http://whipp.us *
******************************************************************************<

Reply Author: bobby131313
Replied on: 17 February 2008, 11:47
Message:

Thanks!

<

Reply Author: Shaggy
Replied on: 18 February 2008, 05:20
Message:

See here as well.
<

Reply Author: cripto9t
Replied on: 18 February 2008, 08:54
Message:

I dug this out of my archives. Replace "Today" with a hour time format. "5 hr. 37 min. ago"

Just replace

Code:

chkDate = "Today"

With

Code:

                                nDif = DateDiff("n",strToDate(fDate),strForumTimeAdjust) mod 60 & " min. "
                                if DateDiff("n",strToDate(fDate),strForumTimeAdjust) > 60 then
                                        hrDif = DateDiff("h",strToDate(fDate),strForumTimeAdjust) mod 24 & " hr. "
                                else
                                        hrDif = ""
                                end if
                                chkDate = hrDif & nDif & "ago"

And as pointed out in the post that Shaggy linked to, it's important to use strForumTimeAdjust instead of the Date() function in kwipps mod

<

Reply Author: bobby131313
Replied on: 18 February 2008, 10:45
Message:

OK, made these changes and the hour/minute is only working prior to midnight and < 24 hours ago forum time.
The others after midnight, some say Today and some say 2/18. Hmmm...
http://www.coincommunity.com/forum/
Never mind, had an errant paste problem.

<

Reply Author: bobby131313
Replied on: 18 February 2008, 11:05
Message:

Almost, works with everything but the bookmarks now, we're close...
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "Yesterday 11:46:05 P"]'
/forum/user_space.asp, line 1313
Line 1313

if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true <

Reply Author: blackinwhite
Replied on: 18 February 2008, 11:14
Message:

is it possible to get it forward like;

if it's today, just say "2 hours ago" ?<

Reply Author: blackinwhite
Replied on: 18 February 2008, 11:42
Message:

what I mean is more like this one

http://www.tanguay.info/web/codeExample.php?id=543<

Reply Author: bobby131313
Replied on: 18 February 2008, 17:00
Message:

Almost, works with everything but the bookmarks now, we're close...
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "Yesterday 11:46:05 P"]'
/forum/user_space.asp, line 1313

Line 1313

if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true

Function that includes line 1313...

Code:

Function ChkIsRecent(eDate)
        dim blnDate
        blnDate = false
        if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true

        ChkIsRecent = blnDate
End Function

Examining the file it looks like this function is only used to determine the icon used (new or old) so it appears that if on this line I could also check the chkDate value for "ago" and "Yesterday" and set it to true if they exist then I'd be in business. If I had an idea how to do this I'd just try it.

Does any of this make sense?<

Reply Author: cripto9t
Replied on: 18 February 2008, 17:05
Message:

Originally posted by bobby131313

if DateDiff("d",chkDate(eDate,"",true),strForumTimeAdjust) <= intIsNew then blnDate = true

Bobby I posted this in the user space topic, you might have missed it. Use this instead

Code:

if DateDiff("d",StrToDate(eDate),strForumTimeAdjust) <= intIsNew then blnDate = true

<

Reply Author: bobby131313
Replied on: 18 February 2008, 17:13
Message:

No I didn't see that.

However that fixes the bookmarks but breaks the drafts.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'strEditDate'

/forum/user_space.asp, line 658

middle line...

Code:

                                        if strUSDraftAutoDeleteSwitch = 1 and strUSDraftAutoDelete <> "" then
                                                if DateDiff("d",strEditDate,strForumTimeAdjust) >= (strUSDraftAutoDelete - intDraftWarn) then
                                                        strTrimWarning = "<font color=""" & strHiLiteFontColor & """><acronym title=""This Draft will be deleted soon"">*</acronym></font>"

<

Reply Author: bobby131313
Replied on: 18 February 2008, 17:18
Message:

Ha! Changed that line too and all seems swell so far!

Thanks!<

Reply Author: cripto9t
Replied on: 18 February 2008, 17:27
Message:

Originally posted by blackinwhite
is it possible to get it forward like;

if it's today, just say "2 hours ago" ?

The code I posted above does this. If you want something that goes farther back, I have some code that looks like it might do that. Its old and I've forgot if it works or not.<

Reply Author: cripto9t
Replied on: 18 February 2008, 17:32
Message:

I need to go through the code and change everything that compares dates, to use StrToDate()<

Reply Author: Shaggy
Replied on: 19 February 2008, 04:24
Message:

Originally posted by blackinwhite what I mean is more like this one

http://www.tanguay.info/web/codeExample.php?id=543

Might take a crack at a mod that does that soon, if I've the time.
<

Reply Author: blackinwhite
Replied on: 20 February 2008, 12:44
Message:

Originally posted by blackinwhite what I mean is more like this one

http://www.tanguay.info/web/codeExample.php?id=543

Might take a crack at a mod that does that soon, if I've the time.

great news, thank you.<

Reply Author: Andy Humm
Replied on: 22 February 2008, 14:11
Message:

Great so far, but is there a small tweak that will alter the way the Statistics post with the 'last post 5hr. 33 min. ago 10:19:40 by: webmaster'
be changed to show 'last post 5hr. 33min. ago by: webmaster'
In other words when the date post is today it removed the time of post element.
But obviously any other posting time ie yesterday and previous dates the stats still shows post time. kindest regards andy<

Reply Author: blackinwhite
Replied on: 22 February 2008, 15:00
Message:

Originally posted by Andy Humm
Great so far, but is there a small tweak that will alter the way the Statistics post with the 'last post 5hr. 33 min. ago 10:19:40 by: webmaster'
be changed to show 'last post 5hr. 33min. ago by: webmaster'
In other words when the date post is today it removed the time of post element.
But obviously any other posting time ie yesterday and previous dates the stats still shows post time. kindest regards andy

I have changed chkTime function in inc_func_common.asp, try this;

Code:


function chkTime(fTime)
	if fTime = "" or isNull(fTime) then
		exit function
	end If
	
If 	left(fTime,8) = left(DateToStr(strForumTimeAdjust),8) then

minutesTotal = datediff("n",strtodate(fTime),strForumTimeAdjust)
		  			hoursTotal = int(minutesTotal / 60)
		  			daysSince = int(hoursTotal / 24)
		  			hoursSince = hoursTotal mod 24
		  			minutesSince = minutestotal mod 60
'		  			if daysSince = 1 then ChkTime = ChkTime & daysSince & " gün, "
'		  			if daysSince > 1 then ChkTime =  ChkTime & daysSince & " gün, "			
					if hoursSince = 1 then ChkTime =  ChkTime & hoursSince & " hour, "		  
		 			if hoursSince > 1 then ChkTime = ChkTime & hoursSince & " hours, "
		  			ChkTime =  ChkTime & minutesSince & " minutes ago."
else


	if strTimeType = 12 then
		if cLng(Mid(fTime, 9,2)) > 12 then
			chkTime = ChkTime & " " & _
			(cLng(Mid(fTime, 9,2)) -12) & ":" & _
			Mid(fTime, 11,2) & ":" & _
			Mid(fTime, 13,2) & " " & "PM"
		elseif cLng(Mid(fTime, 9,2)) = 12 then
			chkTime = ChkTime & " " & _
			cLng(Mid(fTime, 9,2)) & ":" & _
			Mid(fTime, 11,2) & ":" & _
			Mid(fTime, 13,2) & " " & "PM"
		elseif cLng(Mid(fTime, 9,2)) = 0 then
			chkTime = ChkTime & " " & _
			(cLng(Mid(fTime, 9,2)) +12) & ":" & _
			Mid(fTime, 11,2) & ":" & _
			Mid(fTime, 13,2) & " " & "AM"
		else
			chkTime = ChkTime & " " & _
			Mid(fTime, 9,2) & ":" & _
			Mid(fTime, 11,2) & ":" & _
			Mid(fTime, 13,2) & " " & "AM"
		end if
		
	else
		ChkTime = ChkTime & " " & _
		Mid(fTime, 9,2) & ":" & _
		Mid(fTime, 11,2) & ":" & _
		Mid(fTime, 13,2) 
	end If
	


End if

<

Reply Author: bobby131313
Replied on: 22 February 2008, 15:06
Message:

There's also 2 lines on topic.asp (search "edited by") that I changed to..

Code:

						"Edited by " & Reply_LastEditByName & " - " & chkDate(Reply_LastEdit, " " ,true) & "</font></td>" & vbNewLine & _

Makes better sense in all the scenarios. You don't get "Edited by Joe Blow on 43 minutes ago"
<

Today / Yesterday Mod... Anyone Have?

Topic

Replies ...