quote:

---

Originally posted by Shaggy

quote:

---

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.

---

quote:

---

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

---

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