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 *
******************************************************************************<

See here as well.
<

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. <

is it possible to get it forward like;

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

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... 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?<