تبديل تاريخ ميلادي به شمسي

[danesh1351]

با سلام
تقديم به برنامه نويسان عزيز :
من يك فايل dll نوشته ام و حدود 10 سال از آن استفاده كرده ام و تا حالا مشكلي نداشته و سرعت الگوريتم آن بد نيست .



var
Function DATESHAMSI( _InpDate : Pchar ): Pchar ; External 'MpDll.Dll' ;

implementation
{$R *.DFM}

.
.
.
// تاريخ جاري
Var DD : String ;
Begin
DD := DateShamsi(Pchar(Datetostr(Date)));
End ;