Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a7d906be

Von Moritz Bunkus vor fast 15 Jahren hinzugefügt

Jahreszahlen mit vier Ziffern ausgeben

Seit 2000 ist es eher unüblich, Jahreszahlen zweistellig zu
schreiben. Außerdem enthalten alle Nicht-ISO-Datumsformate in
Lx-Office bisher nur zwei Stellen bei der Ausgabe (z.B. beim
Ausdruck). Also umstellen auf volle Jahreslänge.

Fix für Bug 1072.

Unterschiede anzeigen:

SL/Locale.pm
358 358 
    sprintf("%0" . (length($&)) . "d", $mm);
359 359 

  		




  360
  360
  
    
  $output_format =~ /y+/;


  		




  361
  
  
    
  if (length($&) == 2) {


  		




  362
  
  
    
    $yy -= $yy >= 2000 ? 2000 : 1900;


  		




  363
  
  
    
  }


  		




  364
  
  
    
  substr($output_format, $-[0], $+[0] - $-[0]) =


  		




  365
  
  
    
    sprintf("%0" . (length($&)) . "d", $yy);


  		




  
  361
  
    
  substr($output_format, $-[0], $+[0] - $-[0]) = $yy;


  		




  366
  362
  
    

  		




  367
  363
  
    
  $main::lxdebug->leave_sub();


  		




  368
  364
  
    

  		












Auch abrufbar als:  Unified diff