نمایش حروفی تاریخ

[خالد غریبی]

سلام
چطور میتوان در دلفی تاریخ روز جاری را به صورت حرفی بدست آوریم
مثال: برای 22/01/84 این را بنویسد دوشنبه 22 فروردین 84

[vcldeveloper]

uses DateUtils,
SolarUtl;

function DateToFarsiString(ADate: TDateTime): string;
const
SolarDays : array [1..7] of string[8] =
('یکشنبه','دوشنبه','سه شنبه','چهارشنبه','پنج شنبه','جمعه','شنبه');
SolarMonths : array [1..12] of string[8] = ('فروردین','اردیبهشت','خردا� �',
'تیر','مرداد','شهریور',
'مهر','آبان','آذر',
'دی','بهمن','اسفند');
var
Year, Month, Day : word;
begin
Year := YearOf(ADate);
Month := MonthOf(ADate);
Day := DayOf(ADate);

// SolarUtl.pas by Mr.Kambiz R. Khojasteh is used.
// To download the unit for free visit his website:
// http://www.delphiarea.com
GregorianToSolar(Year,Month,Day);
Result := Format('%s , %d %s %d',[SolarDays[DayOfWeek(ADate)],Day,SolarMonths[M onth],(Year)]);
end;


مثال


Label1.Caption := DateToFarsiString(Now(;