REXX Datum Beispiele                              goto homepage

 

/* REXX */
/*------------------------------------------------------*/
/* Copyright 2005 YCOS Yves Colliard Software GmbH      */
/*------------------------------------------------------*/
/* */                                                                     
datum="01/01/99"                                                                
t.0="Montag"                                                                   
t.1="Dienstag"                                                                 
t.2="Mittwoch"                                                                  
t.3="Donnerstag"                                                               
t.4="Freitag"                                                                  
t.5="Samstag"                                                                   
t.6="Sonntag"                                                                  
/* */                                                                          
temp=date("B",datum,"E")//7                                                    
say datum "war ein" t.temp                                                     
/* */                                                                          
say "Anzahl Tagen:" date("B")-date("B",datum,"E")                              
say "-----------------"                                                        
/* */                                                                          
datum="03001"                                                                  
/* */                                                                           
temp=date("B")-(date("B","01/01/"left(datum,2),"E")+right(datum,3))+1          
say "Anzahl Tagen:" temp                                                       
say date("J")                                                                   
/* */

 

 

Resultat:

01/01/99 war ein Freitag
Anzahl Tagen: 2384      
-----------------       
Anzahl Tagen: 923       
05193