home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / compiler / doobject / date.do < prev    next >
Text File  |  1991-05-06  |  852b  |  37 lines
  1. /*
  2.     this is an example of how to define methods for a built-in class
  3.     "cday" returns a character string naming the day
  4. */
  5. method Date::cday(self)
  6. {
  7.     if(dow(self) == 1) return("Sunday");
  8.     if(dow(self) == 2) return("Monday");
  9.     if(dow(self) == 3) return("Tuesday");
  10.     if(dow(self) == 4) return("Wednesday");
  11.     if(dow(self) == 5) return("Thursday");
  12.     if(dow(self) == 6) return("Friday");
  13.     if(dow(self) == 7) return("Saturday");
  14. }
  15.  
  16. /*
  17.     define the same function, using the "switch" statement
  18. */
  19. method Date::cday2(self)
  20. {
  21.     switch(dow(self)) {
  22.         case 1:    return("Sunday");
  23.         case 2:    return("Monday");
  24.         case 3:    return("Tuesday");
  25.         case 4:    return("Wednesday");
  26.         case 5:    return("Thursday");
  27.         case 6:    return("Friday");
  28.         case 7:    return("Saturday");
  29.     }
  30. }
  31.  
  32. /*
  33.     call the methods defined above
  34. */
  35. ? cday(date());
  36. ? cday2(date());
  37.