هل من امكانية في استعمال التأريخ الهجري ؟

[merouane]

السلام عليكم

وجدت طريقة أخرى بالنسبة لعرض التاريخ على شكل 'yyyy/MM/dd'

وذلك باستعمال TFormatSettings ، وهنا تفصيلها من Delphi help

[SIZE="2"][INDENT][INDENT]

Unité[INDENT]SysUtils[/INDENT]

Syntaxe Delphi[INDENT]type[/INDENT]
[INDENT][INDENT]TFormatSettings =record[/INDENT][/INDENT][INDENT][INDENT][INDENT]CurrencyFormat : Byte;
NegCurrFormat : Byte;
ThousandSeparator : Char;
DecimalSeparator : Char;
CurrencyDecimals : Byte;
DateSeparator : Char;
TimeSeparator : Char;
ListSeparator : Char;
CurrencyString : string;
ShortDateFormat : string;
LongDateFormat : string;
TimeAMString : string;
TimePMString : string;
ShortTimeFormat : string;
LongTimeFormat : string;

ShortMonthNames : array[1..12] of string;
LongMonthNames : array[1..12] of string;
ShortDayNames : array[1..7] of string;
LongDayNames : array[1..7] of string;
TwoDigitYearCenturyWindow : Word [/INDENT][/INDENT][/INDENT]

[INDENT][INDENT]end;[/INDENT][/INDENT]

[/INDENT][/INDENT][/SIZE]

كود :

procedure TForm1.Button1Click(Sender: TObject); var MySettings: [color=Blue]TFormatSettings[/color]; s: string; d: TDateTime; begin GetLocaleFormatSettings(GetUserDefaultLCID, MySettings); // أولا لمعرفة المعلومات المحلية MySettings.DateSeparator := '-'; // القيام بما نريد MySettings.TimeSeparator := ':'; MySettings.ShortDateFormat := 'mm-dd-yyyy'; MySettings.ShortTimeFormat := 'hh:nn:ss'; s := DateTimeToStr(Now, MySettings); // استعمالها في عملية التحويل إلى نص ShowMessage(s); d := StrToDateTime(s, MySettings); ShowMessage(DateTimeToStr(d, MySettings)); end;

النتيجة

تحياتي