% Dim today,disyear,dismonth,disday,h,D today = Date() h=hour(now()) m=minute(now()) s=second(now()) dismonth=month(today) disday=day(today) disyear=year(today) D="MMU:"&disyear&":"&dismonth&":"&disday&":"&h&":"&m&":"&s Dim d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11 d1=2010 d2="16" d3="4" d4="5" d5="6" d8="13" d10="3" d6= DateSerial(d1,d3,d2) d7=DateSerial(d1,d4,d5) d9=DateSerial(d1,d4,d8) d11=DateSerial(d1,d3,d10) %>