MetaStock -> Tools -> Indicator Builder -> New ->
Copy and paste complete formula between "---8<---" lines.



==================
Year's Hi/Lo dates
==================
---8<-----------------------------

{ Year's High & Low dd/mm/yy dates v1.0

 ©Copyright 2005 Jose Silva.
  The grant of this license is for personal use
   only - no resale or repackaging allowed.
  All code remains the property of Jose Silva.
  http://www.metastocktools.com }

{ User input }
plot:=Input("plot:  [1]Hi/Lo signals,  [2]dd/mm/yy dates",1,2,1);

{ Start of year }
init:=Cum(1)=2;
nuYear:=Year()<>Ref(Year(),-1) OR init;

{ High signals of year }
YearHi:=H=HighestSince(1,nuYear,H);

{ Last High of current year signal }
event:=YearHi;

{ dd/mm/yy of last High of year's signal }
y:=ValueWhen(1,event,Year());
y:=If(y<2000,y-1900,y-2000);
m:=ValueWhen(1,event,Month())*100;
d:=ValueWhen(1,event,DayOfMonth())*10000;
dateHi:=y+m+d;

{ Low signals of year }
YearLo:=L=LowestSince(1,nuYear,L);

{ Last Low of current year signal }
event:=YearLo;

{ dd/mm/yy of last Low of year's signal }
y:=ValueWhen(1,event,Year());
y:=If(y<2000,y-1900,y-2000);
m:=ValueWhen(1,event,Month())*100;
d:=ValueWhen(1,event,DayOfMonth())*10000;
dateLo:=y+m+d;

{ Plot in own window }
If(plot=1,YearHi,dateHi);
If(plot=1,-YearLo,-dateLo)

---8<-----------------------------


http://www.metastocktools.com