۱۵
اردیبهشت

جلسه ۲۴ : توابع تاریخ و زمان در زبان پاسکال (Pascal)

دسته‌بندی‌ها :

جزئیات
نوع محتواآموزشی

علاقمندان به زبان های برنامه نویسی روزتون بخیر. با آموزش زبان برنامه نویسی پاسکال (Pascal) از وب سایت آموزشی پی وی لرن همراهتون خواهیم بود. در این بخش از آموزش پاسکال به بررسی توابع تاریخ و زمان در زبان پاسکال (Pascal) می پردازیم و مباحثی چون دریافت تاریخ و ساعت فعلی را به همراه توابع مختلف تاریخ و زمان خواهیم داشت. با ادامه ی آموزش ها از وب سایت پی وی لرن همراه باشید.

فهرست

توابع تاریخ و زمان در زبان پاسکال (Pascal)

بسیاری از نرم افزارهایی که می نویسید نیاز به اجرای نوعی از توابع تاریخ دارند که تاریخ و ساعت فعلی را برگردانند. تاریخ ها بخشی از زندگی روزمره ما هستند. پاسکال ابزارهای قدرتمندی برای حساب تاریخ ارائه می دهد که دستکاری تاریخ ها را آسان می کند. با این حال ، نام واقعی و عملکرد این توابع برای کامپایلرهای مختلف متفاوت است.

دریافت تاریخ و ساعت فعلی

تابع TimeToString Pascal زمان فعلی را به صورت قطعی همراه با (:) می دهد. مثال زیر نحوه دریافت زمان فعلی را نشان می دهد.

مثال :

program TimeDemo;
uses sysutils;

begin
   writeln ('Current time : ',TimeToStr(Time));
end.

program TimeDemo;

uses sysutils;

begin

writeln ('Current time : ',TimeToStr(Time));

end.

وقتی کد بالا را کامپایل و اجرا می کنید ، نتیجه ی زیر را می دهد.

مثال :

Current time : 18:33:08

1	Current time : 18:33:08

تابع Date تاریخ فعلی را با فرمت TDateTime باز می گرداند. TDateTime یک مقدار double است ، که نیاز به رمزگشایی و فرمت دارد. برنامه زیر نحوه استفاده از آن را در برنامه شما برای نمایش تاریخ فعلی نشان می دهد.

مثال :

Program DateDemo;
uses sysutils;
var
   YY,MM,DD : Word;

begin
   writeln ('Date : ',Date);
   DeCodeDate (Date,YY,MM,DD);
   writeln (format ('Today is (DD/MM/YY): %d/%d/%d ',[dd,mm,yy]));
end.

Program DateDemo;

uses sysutils;

var

YY,MM,DD : Word;

begin

writeln ('Date : ',Date);

DeCodeDate (Date,YY,MM,DD);

writeln (format ('Today is (DD/MM/YY): %d/%d/%d ',[dd,mm,yy]));

end.

وقتی کد بالا را کامپایل و اجرا می کنید ، نتیجه ی زیر را می دهد.

مثال :

Date: 4.111300000000000E+004
Today is (DD/MM/YY):23/7/2012

1 2	Date: 4.111300000000000E+004 Today is (DD/MM/YY):23/7/2012

تابع Now تاریخ و زمان فعلی را بر می گرداند.

مثال :

Program DatenTimeDemo;
uses sysutils;
begin
   writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));
end.

Program DatenTimeDemo;

uses sysutils;

begin

writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));

end.

وقتی کد بالا را کامپایل و اجرا می کنید ، نتیجه ی زیر را می دهد.

مثال :

Date and Time at the time of writing : 23/7/2012 18:51:

1	Date and Time at the time of writing : 23/7/2012 18:51:

Free Pascal یک ساختار stamp زمان ساده با نام TTimeStamp را ارائه می دهد ، که دارای فرم زیر است.

مثال :

type TTimeStamp = record
   Time: Integer;
   Date: Integer;
end;

type TTimeStamp = record

Time: Integer;

Date: Integer;

end;

مبحث توابع تاریخ و زمان در زبان پاسکال (Pascal) را با توابع مختلف تاریخ و زمان ادامه خواهیم داد.

توابع مختلف تاریخ و زمان

Free Pascal توابع تاریخ و زمان را فراهم می کند. در جدول زیر این توابع به همراه توضیحاتی در مورد هر یک آورده شده است.

ردیف	نام تابع و شرح
۱	function DateTimeToFileDate(DateTime: TDateTime):LongInt; نوع DateTime را به تاریخ فایل تبدیل می کند.
۲	function DateTimeToStr( DateTime: TDateTime):; نمایش رشته DateTime را ایجاد می کند.
۳	function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings):; نمایش رشته DateTime را ایجاد می کند.
۴	procedure DateTimeToString(out Result: ;const FormatStr: ;const DateTime: TDateTime); نمایش رشته DateTime را ایجاد می کند.
۵	procedure DateTimeToString(out Result: ; const FormatStr: ; const DateTime: TDateTime; const FormatSettings: TFormatSettings); نمایش رشته DateTime را ایجاد می کند.
۶	procedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime); DateTime را به زمان سیستم تبدیل می کند.
۷	function DateTimeToTimeStamp( DateTime: TDateTime):TTimeStamp;Converts DateTime to timestamp
۸	function DateToStr(Date: TDateTime):; نمایش رشته را date را می سازد.
۹	function DateToStr(Date: TDateTime; const FormatSettings: TFormatSettings):; نمایش رشته را date را می سازد.
۱۰	function Date: TDateTime; تاریخ فعلی را می گیرد.
۱۱	function DayOfWeek(DateTime: TDateTime):Integer; روز هفته دریافت می کند.
۱۲	procedure DecodeDate(Date: TDateTime; out Year: Word; out Month: Word; out : Word); DateTime را به ماه و روز سال رمزگشایی می کند.
۱۳	procedure DecodeTime(Time: TDateTime; out Hour: Word; out Minute: Word; out Second: Word; out MilliSecond: Word); DateTime را به ساعت ها ، دقیقه ها و ثانیه ها رمزگشایی می کند.
۱۴	function EncodeDate(Year: Word; Month: Word; Day: Word):TDateTime; سال ، روز و ماه را به DateTime رمزگذاری می کند.
۱۵	function EncodeTime(Hour: Word; Minute: Word; Second: Word; MilliSecond: Word):TDateTime; ساعت ها ، دقیقه ها و ثانیه ها را به DateTime رمزگذاری می کند.
۱۶	function FormatDateTime(const FormatStr: ; DateTime: TDateTime):; نمایش رشته DateTime را برمی گرداند.
۱۷	function FormatDateTime(const FormatStr: ; DateTime: TDateTime; const FormatSettings: TFormatSettings):; نمایش رشته DateTime را برمی گرداند.
۱۸	function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1):TDateTime; ۱ را به ماه اضافه می کند.
۱۹	function IsLeapYear(Year: Word):Boolean; تعیین می کند که آیا سال، سال کبیسه است.
۲۰	function MSecsToTimeStamp(MSecs: Comp):TTimeStamp; تعداد میلی ثانیه ها را به timestamp تبدیل می کند.
۲۱	function Now: TDateTime; تاریخ و زمان فعلی را می گیرد.
۲۲	function StrToDateTime(const S:):TDateTime; رشته را به DateTime تبدیل می کند.
۲۳	function StrToDateTime(const s: ShortString; const FormatSettings: TFormatSettings):TDateTime; رشته را به DateTime تبدیل می کند.
۲۴	function StrToDateTime(const s: AnsiString; const FormatSettings: TFormatSettings):TDateTime; رشته را به DateTime تبدیل می کند.
۲۵	function StrToDate(const S: ShortString):TDateTime; رشته را به date تبدیل می کند.
۲۶	function StrToDate(const S: Ansistring):TDateTime; رشته را به date تبدیل می کند.
۲۷	function StrToDate(const S: ShortString; separator: Char):TDateTime; رشته را به date تبدیل می کند.
۲۸	function StrToDate(const S: AnsiString; separator: Char):TDateTime; رشته را به date تبدیل می کند.
۲۹	function StrToDate(const S: ShortString; const useformat: ; separator: Char):TDateTime; رشته را به date تبدیل می کند.
۳۰	function StrToDate(const S: AnsiString; const useformat: ; separator: Char):TDateTime; رشته را به date تبدیل می کند.
۳۱	function StrToDate(const S: PChar; Len: Integer; const useformat: ; separator: Char = #0):TDateTime; رشته را به date تبدیل می کند.
۳۲	function StrToTime(const S: Shortstring):TDateTime; رشته را به time تبدیل می کند.
۳۳	function StrToTime(const S: Ansistring):TDateTime; رشته را به time تبدیل می کند.
۳۴	function StrToTime(const S: ShortString; separator: Char):TDateTime; رشته را به time تبدیل می کند.
۳۵	function StrToTime(const S: AnsiString; separator: Char):TDateTime; رشته را به time تبدیل می کند.
۳۶	function StrToTime(const S: ; FormatSettings: TFormatSettings):TDateTime; رشته را به time تبدیل می کند.
۳۷	function StrToTime(const S: PChar; Len: Integer; separator: Char = #0):TDateTime; رشته را به time تبدیل می کند.
۳۸	function SystemTimeToDateTime(const SystemTime: TSystemTime):TDateTime; زمان سیستم را به datetime تبدیل می کند.
۳۹	function TimeStampToDateTime(const TimeStamp: TTimeStamp):TDateTime; stamp زمان را به DateTime تبدیل می کند.
۴۰	function TimeStampToMSecs(const TimeStamp: TTimeStamp):comp; Timestamp را به تعداد میلی ثانیه تبدیل می کند.
۴۱	function TimeToStr(Time: TDateTime):; نمایش رشته ای از Time را برمی گرداند.
۴۲	function TimeToStr(Time: TDateTime; const FormatSettings: TFormatSettings):; نمایش رشته ای از Time را برمی گرداند.
۴۳	function Time: TDateTime; وقت فعلی را دریافت می کند.

مثال زیر استفاده از برخی از توابع فوق را نشان می دهد.

مثال :

Program DatenTimeDemo;
uses sysutils;
var
year, month, day, hr, min, sec, ms: Word;

begin
   writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));
   writeln('Today is ',LongDayNames[DayOfWeek(Date)]);
   writeln;
   writeln('Details of Date: ');
   
   DecodeDate(Date,year,month,day);
   writeln (Format ('Day: %d',[day]));
   writeln (Format ('Month: %d',[month]));
   writeln (Format ('Year: %d',[year]));
   writeln;
   writeln('Details of Time: ');
   
   DecodeTime(Time,hr, min, sec, ms);
   writeln (format('Hour: %d:',[hr]));
   writeln (format('Minutes: %d:',[min]));
   writeln (format('Seconds: %d:',[sec]));
   writeln (format('Milliseconds: %d:',[hr]));
end.

Program DatenTimeDemo;

uses sysutils;

var

year, month, day, hr, min, sec, ms: Word;

begin

writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));

writeln('Today is ',LongDayNames[DayOfWeek(Date)]);

writeln;

writeln('Details of Date: ');

DecodeDate(Date,year,month,day);

writeln (Format ('Day: %d',[day]));

writeln (Format ('Month: %d',[month]));

writeln (Format ('Year: %d',[year]));

writeln;

writeln('Details of Time: ');

DecodeTime(Time,hr, min, sec, ms);

writeln (format('Hour: %d:',[hr]));

writeln (format('Minutes: %d:',[min]));

writeln (format('Seconds: %d:',[sec]));

writeln (format('Milliseconds: %d:',[hr]));

end.

هنگامی که کد فوق کامپایل و اجرا می شود ، نتیجه ی زیر را به دست خواهیم آورد:

مثال :

Date and Time at the time of writing : 7/24/2012 8:26:
Today is Tuesday
Details of Date:
Day:24
Month:7
Year: 2012
Details of Time:
Hour: 8
Minutes: 26
Seconds: 21
Milliseconds: 8

Date and Time at the time of writing : 7/24/2012 8:26:

Today is Tuesday

Details of Date:

Day:24

Month:7

Year: 2012

Details of Time:

Hour: 8

Minutes: 26

Seconds: 21

Milliseconds: 8

بررسی توابع تاریخ و زمان در زبان پاسکال (Pascal) را در این بخش به پایان می رسانیم.

کلام پایانی

تشکر از این که تا این بخش از آموزش همراه بودید. در این بخش از آموزش ها با مبحث توابع تاریخ و زمان در زبان پاسکال (Pascal) همراه بودیم و دریافت تاریخ و ساعت فعلی را به همراه انواع توابع مختلف تاریخ و زمان بیان نمودیم. در جلسه ی آینده با موضوع شی گرایی در خدمتتون خواهیم بود. بنابراین با آموزش زبان برنامه نویسی پاسکال (Pascal) و وب سایت آموزشی پی وی لرن همراه باشید.