home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 3 / MA_Cover_3.iso / bazy / videodb / videodb.swe / calc2.db < prev    next >
Encoding:
Text File  |  1996-07-30  |  1.4 KB  |  96 lines
  1. /* Räknar ut tiden kvar på band i VideoDB
  2. *         Av Andreas Ericsson '96  
  3. *              version 1.2  
  4. */
  5.  
  6. Options Results
  7.  
  8. BlockInput
  9. CurrentRecord
  10. startrec=result
  11.  
  12. Getfield "Band"
  13. bandnr=result
  14. Mode Find
  15. kill
  16.  
  17. CurrentField "Band"
  18. Putfield bandnr
  19.  
  20. Findfirst
  21. hit1=result
  22.  
  23. currentrecord hit1
  24. Getfield "Tid"           
  25. tid=result
  26.  
  27. if tid=? then do
  28.     mode find
  29.     kill
  30.     mode normal
  31.     currentrecord startrec
  32.     Freeinput
  33.     exit
  34. end
  35.  
  36. CurrentField "Tid"
  37. PutField Trunc(tid, 2)
  38.  
  39. mode find
  40. findnext
  41.  
  42. if rc ==5 then do
  43.     mode find
  44.     kill
  45.     mode normal
  46.     getfield "Längd"
  47.     langd=result
  48.     timmar=Trunc(tid)
  49.     minuter=Trunc((tid-timmar)*100)
  50.     CurrentField "Kvar"
  51.     kvarmin=langd-minuter-60*timmar
  52.     sluttim=Trunc(kvarmin/60)
  53.     slutmin=kvarmin-sluttim*60
  54.     EnFilm=sluttim+(slutmin/100)
  55.     PutField trunc(EnFilm, 2)
  56.     freeinput
  57.     exit
  58. end
  59.  
  60. hit2=result
  61. currentrecord hit2
  62. Getfield "Tid"
  63. tid2=result
  64.  
  65. if tid2=? then do 
  66.     exit
  67. end
  68.  
  69. CurrentField "Tid"
  70. Putfield trunc(tid2, 2)
  71.  
  72. mode normal
  73. timmar2=Trunc(Tid2)
  74. minuter2=Trunc((Tid2-timmar2)*100)
  75. Getfield "Längd"
  76. langd=result
  77. timmar=Trunc(tid)
  78. minuter=Trunc((tid-timmar)*100)
  79.  
  80. CurrentField "Kvar"
  81. kvarmin=langd-minuter-minuter2-(60*(timmar+timmar2))
  82. sluttim=Trunc(kvarmin/60)
  83. slutmin=kvarmin-sluttim*60
  84. kvarI=sluttim+(slutmin/100)
  85. PutField trunc(kvarI, 2)
  86.  
  87. currentrecord hit1
  88. mode find
  89. kill
  90. mode normal
  91.  
  92. CurrentField "Kvar"
  93. kvarII=sluttim+(slutmin/100)
  94. Putfield trunc(kvarII, 2)
  95. currentrecord startrec
  96. FreeInput