Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Definujte poľa v pracovnom ukladania na ukladanie hodnôt . 
 
 01 NUMBER - Z - DAYS PIC 9 ( 09 ) Hodnota nuly . 
 
 01 CURRENT-DA TE - pOLE . 
 
 05 CURRENT-DA TE - VALUE . 
 
 10 CURRENT-YY PIC 9 ( 04 ) Hodnota nuly . 
 
 10 CURRENT-MM PIC 9 ( 02 ) Hodnota nuly . 
 
 10 CURRENT-DD PIC 9 ( 02 ) Hodnota nuly . 
 
 05 CURRENT - TIME - VALUE . 
 
 10 CURRENT-HO UR PIC 9 ( 02 ) Hodnota nuly . 
 
 10 CURRENT-MI N PIC 9 ( 02 ) Hodnota nuly . 
 
 10 AKTUÁLNE - SEC PIC 9 ( 02 ) Hodnota nuly . 
 
 10 CURRENT-MS PIC 9 ( 02 ) Hodnota nuly . 
 
 01 SECONDS-IN - A - DAY PIC 9 ( 05 ) HODNOTA 86400 . 
 
 01 SECONDS-IN - A - HOUR PIC 9 ( 05 ) HODNOTA 3600 . 
 
 01 SECONDS-IN - A - MIN PIC 9 ( 02 ) HODNOTA 60. 
 
 01 UNIX-TIMES TAMP PIC 9 ( 10 ) Hodnota nuly . 
 2 
nájsť aktuálny dátum a čas pomocou tejto funkcie COBOL . klipart
 MOVE FUNCTION prúdu Dátum do CURRENT - DATE - Fields . 
 3 
 Unix timestamp predstavuje počet sekúnd , ktoré uplynuli od 1. januára 1970 . Nájsť rozdiel medzi aktuálnym dátumom a 1. január roku 1970 pomocou príkazu výpočtovej a funkciu integer - of - data v COBOL programe . 
 
 COMPUTE_DIGITAL_SIGNATURE ČÍSLO - OF - DNÍ = FUNKCIE INTEGER - of - data ( CURRENT - DATE - VALUE ) - 
 
 FUNKCIE INTEGER - of - data ( " 19700101 " ) 
 4 
 Nájdite počet sekúnd , ktoré uplynuli od 1. januára 1970 pre výpočet . počet sekúnd , deň , hodinu a minútu a sčítať ich. 
 
 COMPUTE_DIGITAL_SIGNATURE UNIX - TIMESTAMP = 
 
 ( NUMBER - OF - dNÍ * sEKÚND - IN - a - DAY ) + 
 
 ( CURRENT - HOUR * SEKÚND - IN - A - HOUR ) + 
 
 ( CURRENT - MIN * SEKÚND - IN - A - MIN ) + 
 
 CURRENT - SEC . 
 
              
Copyright © počítačové znalosti Všetky práva vyhradené