unsigned long set_Epoch_s( unsigned long year, unsigned long month, unsigned long day, unsigned long hour, unsigned long min, unsigned long sec) 
 {
  unsigned long DMonth[13] = { 0,31,59,90,120,151,181,212,243,273,304,334,365};
  unsigned long iday;
  unsigned long temp;

  iday = 365 * ( year - 1970) + DMonth[month] + ( day-1); // days since 1/1/1970
  iday = iday + ( year - 1969)/4;                         // + leap days since 1/1/1970
  temp = year % 4;
  if ( ( month > 2 ) && (temp ==0))                      // if leap year & past Feb..
     {
       iday = iday + 1;
     }
  return (sec +( 60 * ( min + (60 * ( hour + (24 * iday )))))); //Compute seconds since
 }