Programowanie w języku Delphi

MinsPerDay

  • 2010-10-31 18:27
  • 0 komentarzy
  • 695 odsłon
  • Oceń ten tekst jako pierwszy
MinsPerDay
Moduł: SysUtils

const
  MinsPerDay = HoursPerDay * MinsPerHour;

Stała zwraca ilość minut w ciągu dnia. Wartość jest osiągana poprzez pomnożenie wartości stałej HoursPerDay i MinsPerHour:

Stała, podobnie jak pozostałe związane z datą i czasem zadeklarowane są w module SysUtils:

program DateTimeConst;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
begin
  Writeln('Godzin na dzień: ', HoursPerDay);
  Writeln('Minut na godzinę: ', MinsPerHour);
  Writeln('Sekund na minutę: ', SecsPerMin);
  Writeln('Milisekund na sekundę: ', MSecsPerSec );
  Writeln('Minut na dzień: ', MinsPerDay);
  Writeln('Sekund na dzień: ', SecsPerDay);
  Writeln('Milisekund na dzień: ', MSecsPerDay);
 
  Readln;
end.



Zobacz też: