Monday, November 08, 2010 at 12:05 AM.

on getDateString (when, flIncludeSeconds=true) {
		<<1/15/01; 11:00:50 AM by DW
			<<Return the time string if it's today, return the date string if it's earlier.
	local (day, month, year, hour, minute, second, nowday, nowmonth, nowyear);
	date.get (when, @day, @month, @year, @hour, @minute, @second);
	date.get ( (), @nowday, @nowmonth, @nowyear, @hour, @minute, @second);
	if (day == nowday) and (month == nowmonth) and (year == nowyear) {
		return (date.timestring (when, flIncludeSeconds))};
	return (date.shortstring (when))}
<<bundle //test code
	<<dialog.alert (getdatestring (date (0)))
	<<dialog.alert (getdatestring ( ()))

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.