home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / DATE.OPT < prev    next >
Text File  |  1995-04-05  |  1KB  |  74 lines
  1.  
  2. def(d)
  3. def(t)
  4.  
  5. defs(dum1$)
  6. defs(dum2$)
  7. defs(day$)
  8.  
  9. procedure day(day,month,year)
  10.   rem *** ermittelt Wochentag zu einem bestimmten Datum:z.B. day(30,12,1958)
  11.   locals(i,j)
  12.   if month-3<0
  13.     i:=-1
  14.   else
  15.     j:=-1
  16.   endif
  17.   year :=(36525*(year+i))/100
  18.   month:=(3060*(month-j-13*i))/100
  19.   day  :=year+month+day-(year/36525)+(year/146100)-428
  20.   day$ :=      'SONNTAG    MONTAG     DIENSTAG   MITTWOCH   '
  21.   day$ := day$+'DONNERSTAG FREITAG    SAMSTAG     '
  22.   mod(day,7)
  23.   mid(day$,day*11+1,10)
  24.   trim(day$)
  25. return
  26.  
  27. begin
  28.  
  29.   setbcolor(7)
  30.   clearscreen(7)
  31.   repeat
  32.     d:=date
  33.     day(d/1000000,d/10000-d/1000000*100,d-d/10000*10000)
  34.     str(d,8,dum1$)                      *** DATESTRING-Formatierung
  35.     dum2$:=dum1$[1]+dum1$[2]+'.'
  36.     if dum1$[3]='0'
  37.       dum2$:=dum2$+dum1$[4]+'.'
  38.     else
  39.       dum2$:=dum2$+dum1$[3]+dum1$[4]+'.'
  40.     endif
  41.     dum2$:=dum2$+dum1$[5]+dum1$[6]+dum1$[7]+dum1$[8]
  42.     printat(100,220,'Datum : '+dum2$+' ('+day$+')')
  43.     t:=time
  44.     str(t,6,dum1$)                      *** TIMESTRING-Formatierung
  45.     if dum1$[1]=' '
  46.       dum2$:='0'+dum1$[2]+':'
  47.     else
  48.       dum2$:=dum1$[1]+dum1$[2]+':'
  49.     endif
  50.     dum2$:=dum2$+dum1$[3]+dum1$[4]+':'
  51.     dum2$:=dum2$+dum1$[5]+dum1$[6]
  52.     printat(100,230,'Zeit  : '+dum2$)
  53.   until mousek<>readkey
  54.  
  55. end
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.