BBB » 05 июн 2007, 09:52
Новенький писал(а):а подскажите как именно сделать, чтоб паскаль выводил текущую дату?
Фрагмент из встроенного help-а ПАСКАЛЯ:
GetDate (procedure) (Dos unit and WinDos unit)
==============================
Returns the current date set in the operating system.
Declaration:
procedure GetDate(var Year, Month, Day, DayOfWeek: Word);
Target:
Windows, Real, Protected
Remarks:
Ranges of the values returned are Year 1980..2099, Month 1..12, Day 1..31,
and DayOfWeek 0..6 (where 0 corresponds to Sunday).
See Also:
GetTime
SetDate
SetTime
Sample Code:
Код: Выделить всё
{GetDate.PAS}
{Sample code for the GetDate procedure.}
{ For Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
const
days : array [0..6] of String[9] =
('Sunday','Monday','Tuesday',
'Wednesday','Thursday','Friday',
'Saturday');
var
y, m, d, dow : Word;
begin
GetDate(y,m,d,dow);
Writeln('Today is ', days[dow],', ',
m:0, '/', d:0, '/', y:0);
end.
[quote="Новенький"]а подскажите как именно сделать, чтоб паскаль выводил текущую дату?[/quote]Фрагмент из встроенного help-а ПАСКАЛЯ:
GetDate (procedure) (Dos unit and WinDos unit)
==============================
Returns the current date set in the operating system.
Declaration:
[b]procedure GetDate(var Year, Month, Day, DayOfWeek: Word);[/b]
Target:
Windows, Real, Protected
Remarks:
Ranges of the values returned are Year 1980..2099, Month 1..12, Day 1..31,
and DayOfWeek 0..6 (where 0 corresponds to Sunday).
See Also:
GetTime
SetDate
SetTime
Sample Code:
[code] {GetDate.PAS}
{Sample code for the GetDate procedure.}
{ For Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
const
days : array [0..6] of String[9] =
('Sunday','Monday','Tuesday',
'Wednesday','Thursday','Friday',
'Saturday');
var
y, m, d, dow : Word;
begin
GetDate(y,m,d,dow);
Writeln('Today is ', days[dow],', ',
m:0, '/', d:0, '/', y:0);
end.[/code]