cA106 ;Datum ;%A106; [ 04/07/95  11:50 AM ]
 ;
T0 ;Datum ;
 ;
T0F ;Date ;
 ;
T0E ;Datum ;
 ;
R6 N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1
R6A F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<DD  S DM=DM+1,DD=DD-%J
R6B S:'DD DJ=DJ-1,DM=12,DD=31 S:DD<10 DD=0_DD S:DM<10 DM=0_DM S DT=DD_"."_DM_"."_$E(DJ,3,4)
R6Z Q  ;V3 01.08.92
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84