function Datum   = zber(Jahr)

coder.extrinsic ('num2str') ;
coder.extrinsic ('datenum') ;
coder.extrinsic ('datestr') ;
coder.extrinsic ('findstr') ;
coder.extrinsic ('str2num') ;
coder.extrinsic ('datevec') ;


 tageA = 0;
 tageB = 0;
 tageBX = 0;
 datum = 0;


 for Monat = 1:12  % Maximale Tagesanzahl im Monat ermiteln
    
   for i=1:32 
        
        tageA(i,1)= datenum(Jahr,Monat,i);
        tageB = datestr(tageA(i));
        tageBX = tageB(1: findstr(tageB,'-')-1);

        if (i > str2num(tageBX))
            tage = i-1;
            break
            
        else
            tage = str2num(tageBX);
        end    
        
    end
    % Ende der Berechnung
    
 end



for M = 1:12 % Monate
       
    for T = 1:tage % Tage
        
        for S = 1:23 % Stunde
            
            datum(S,1) = datenum(Jahr, M, T, S);
            Datum = datestr(datum(S));
        end
        
    end
    
end