1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
inherit Calendar.Gregorian : christ; 
 
void create() 
{ 
   month_names= 
      ({"januari","februari","mars","april","maj","juni","juli","augusti", 
        "september","oktober","november","december"}); 
 
   week_day_names= 
      ({"måndag","tisdag","onsdag","torsdag", 
        "fredag","lördag","söndag"}); 
} 
 
class Week 
{ 
   inherit Calendar.Gregorian.Week; 
 
   string name() 
   { 
      return "v"+(string)this->number(); 
   } 
} 
 
class Year 
{ 
   inherit Calendar.Gregorian.Year; 
 
   string name() 
   { 
      if (this->number()<=0)  
         return (string)(1-this->number())+" fk"; 
      return (string)this->number(); 
   } 
}