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
  
37
  
38
  
// by Martin Baehr <mbaehr@email.archlab.tuwien.ac.at> 
 
inherit Calendar.ISO:ISO; 
 
void create() 
{ 
   month_names= 
      ({"jänner","feber","märz","april","mai","juni","juli","august", 
        "september","oktober","november","dezember"}); 
 
   week_day_names= 
      ({"montag","dienstag","mittwoch","donnerstag", 
        "freitag","samstag","sonntag"}); 
} 
 
class Week 
{ 
   inherit ISO::Week; 
 
   string name() 
   { 
      return "w"+(string)this->number(); 
   } 
} 
 
class Year 
{ 
   inherit ISO::Year; 
 
   string name() 
   { 
      if (this->number()<=0) 
         return (string)(1-this->number())+" v. Chr."; 
      return (string)this->number(); 
   } 
}