dt=current data table(); col= New Column("Month Abb", character, Formula(Substr( Format( :Date, "Monddyyyy" ), 1, 3 ))); col= New column("Week Num", character, Formula(Floor( (Day( :Date ) - Day Of Week( :Date ) - 1) / 7 + 2 ))); col= New Column("temp",formula(num(:Week Num))); column(dt, "temp") << delete formula; column(dt, "temp") << Data Type ( Character); col= New Column("Weeks",character,<< set each value("W")); col= New Column("Week Number", character, formula(:Month Abb || "-" || :temp || :Weeks));