Persian Date 1.0.1
http://www.dihav.com
نوسينده: محمد يوسفي
vahid_you2004@yahoo.com
فروردین 1392
فهرست
- اين برنامه رايگان است و مي تواند توسط هر كسي انتشار يابد.
- هيچ شخص يا شركتي نمي تواند براي انتشار اين برنامه مبلغي دريافت كند.
- هيچ ضمانتي وجود ندارد. شما با مسئوليت خود از اين برنامه استفاده مي كنيد. نويسنده هيچگونه مسئوليتي در قبال از دست رفتن اطلاعات، خرابي يا ضرر و زيان يا هر نوع ديگر صدمات ندارد.
- شما نمي توانيد اين برنامه را بفروشيد و يا كرايه دهيد. هر گونه عمليات غير مجاز باعث لغو فوري و خودكار اين قرارداد مي گردد و تحت پيگرد قانوني قرار مي گيرد.
استفاده از اين برنامه منوط به پذيرفتن موارد فوق مي باشد.
بازگشت
اين برنامه شامل تعدادي تابع كاملاً مشابه توابع دلفي براي تاريخ فارسي است.
شما مي توانيد از راهنماي دلفي با حذف كلمات "Persian" و "Gregorian" از نام توابع استفاده كنيد.
اين برنامه تحت دلفي 7 ساخته و در دلفی XE2 نیز آزمايش شده است.
بازگشت
- دلفي را اجرا كنيد.
- از منوي "Tools" گزينه ي "...Environment Options" را انتخاب كنيد.
- به صفحه ي "Library" برويد.
- دكمه ي "..." مقابل "Library Path" را كليك كنيد.
- دايركتوري فايل "PersianDate.pas" را به آن بدهيد.
- دكمه ي "Add" را كليك كنيد.
- دكمه ي "OK" را كليك كنيد.
- دكمه ي "OK" را كليك كنيد.
- براي استفاده از توابع يونيت "PersianDate" را به ليست uses اضافه كنيد.
بازگشت
- ;(TDateOrder=(doYMD,doYDM,doMDY,doMYD,doDMY,doDYM
الگوهاي تاريخ.
بازگشت
- ;PersianAndGregorianTimeStampDateDifference=226895
تعداد روز هاي بين اول ژانويه ي سال اول ميلادي و اول فروردين سال اول هجري.
- ;PersianDateDelta=DateDelta-PersianAndGregorianTimeStampDateDifference
اختلاف بين TDateTime و TTimeStamp فارسي.(466699 روز)
- )=PersianFormatSettings:TFormatSettings
;CurrencyFormat:2
;NegCurrFormat:3
;',':ThousandSeparator
;'/':DecimalSeparator
;CurrencyDecimals:2
;'/':DateSeparator
;':':TimeSeparator
;'؛':ListSeparator
;'ريال':CurrencyString
;'ShortDateFormat:'yyyy/MM/dd
;'LongDateFormat:'yyyy/MM/dd
;'ق.ظ':TimeAMString
;'ب.ظ':TimePMString
;'ShortTimeFormat:'hh:mm AMPM
;'LongTimeFormat:'hh:mm:ss AMPM
;('اسف','بهم','دي','آذر','آبا','مهر','شهر','مرد','تير','خرد','ارد','فرو'):ShortMonthNames
;('اسفند','بهمن','دي','آذر','آبان','مهر','شهريور','مرداد','تير','خرداد','ارديبهشت','فروردين'):LongMonthNames
;('ج','پ','چ','س','د','ي','ش'):ShortDayNames
;('جمعه','پنج شنبه','چهار شنبه','سه شنبه','دو شنبه','يك شنبه','شنبه'):LongDayNames
;TwoDigitYearCenturyWindow:2
;(
تنظيمات الگوي تبديل رشته هاي فارسي.
- )=EnglishFormatSettings:TFormatSettings
;CurrencyFormat:2
;NegCurrFormat:3
;',':ThousandSeparator
;'/':DecimalSeparator
;CurrencyDecimals:2
;'/':DateSeparator
;':':TimeSeparator
;';':ListSeparator
;'$':CurrencyString
;'ShortDateFormat:'yyyy/MM/dd
;'LongDateFormat:'yyyy/MM/dd
;'TimeAMString:'AM
;'TimePMString:'PM
;'ShortTimeFormat:'hh:mm AMPM
;'LongTimeFormat:'hh:mm:ss AMPM
;('ShortMonthNames:('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec
;('LongMonthNames:('January','February','March','April','May','June','July','August','September','October','November','December
;('ShortDayNames:('Sun','Mon','Tue','Wed','Thu','Fri','Sat
;('LongDayNames:('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday
;TwoDigitYearCenturyWindow:2
;(
تنظيمات الگوي تبديل رشته هاي انگليسي.
- ;PersianDaySaturday=1
- ;PersianDaySunday=2
- ;PersianDayMonday=3
- ;PersianDayTuesday=4
- ;PersianDayWednesday=5
- ;PersianDayThursday=6
- ;PersianDayFriday=7
- )=PersianMonthDays:array [Boolean] of TDayTable
,(29, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31)
(30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31)
;(
بازگشت
- ;function PersianSystemTimeToTimeStamp(PersianSystemTime:TSystemTime):TTimeStamp
- ;function PersianTimeStampToSystemTime(PersianTimeStamp:TTimeStamp):TSystemTime
- ;function PersianTimeStampToDateTime(PersianTimeStamp:TTimeStamp):TDateTime
- ;function DateTimeToPersianTimeStamp(DateTime:TDateTime):TTimeStamp
- ;function PersianSystemTimeToDateTime(PersianSystemTime:TSystemTime):TDateTime
- ;function DateTimeToPersianSystemTime(DateTime:TDateTime):TSystemTime
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
توجه داشته باشيد كه در wDayOfWeek" ،TSystemTime" روز هفته را مشخص مي كند كه از صفر شروع مي شود؛ شنبه = 0, يك شنبه = 1, و ...
بازگشت
- ;function GregorianTimeStampToPersianTimeStamp(GregorianTimeStamp:TTimeStamp):TTimeStamp
- ;function PersianTimeStampToGregorianTimeStamp(PersianTimeStamp:TTimeStamp):TTimeStamp
- ;function GregorianSystemTimeToPersianSystemTime(GregorianSystemTime:TSystemTime):TSystemTime
- ;function PersianSystemTimeToGregorianSystemTime(PersianSystemTime:TSystemTime):TSystemTime
- ;function GregorianDateTimeToPersianTimeStamp(GregorianDateTime:TDateTime):TTimeStamp
- ;function PersianTimeStampToGregorianDateTime(PersianTimeStamp:TTimeStamp):TDateTime
- ;function GregorianDateTimeToPersianSystemTime(GregorianDateTime:TDateTime):TSystemTime
- ;function PersianSystemTimeToGregorianDateTime(PersianSystemTime:TSystemTime):TDateTime
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
توجه داشته باشيد كه در wDayOfWeek" ،TSystemTime" روز هفته را مشخص مي كند كه از صفر شروع مي شود؛ شنبه = 0, يك شنبه = 1, و ...
بازگشت
- ;function MakeSystemTime(wYear,wMonth,wDay,wDayOfWeek,wHour,wMinute,wSecond,wMilliseconds:Word):TSystemTime
- ;function EncodePersianDate(Year,Month,Day:Word):TDateTime
- ;function TryEncodePersianDate(Year,Month,Day:Word;out Date:TDateTime):Boolean
- ;(procedure DecodePersianDate(const DateTime:TDateTime;var Year,Month,Day:Word
- ;function DecodePersianDateFully(const DateTime:TDateTime;var Year,Month,Day,DOW:Word):Boolean
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
توجه داشته باشيد كه در wDayOfWeek" ،TSystemTime" روز هفته را مشخص مي كند كه از صفر شروع مي شود؛ شنبه = 0, يك شنبه = 1, و ...
توجه داشته باشيد كه در تابع "DOW" ، "DecodePersianDateFully"روز هفته را مشخص مي كند كه از يك شروع مي شود؛ شنبه = 1, يك شنبه = 2, و...
بازگشت
- ;function IsPersianLeapYear(Year:Integer):Boolean
- ;function ThePersianYear(aDate:TDateTime):Word
- ;function ThePersianMonth(aDate:TDateTime):Word
- ;function ThePersianMonthLongName(aDate:TDateTime;const FormatSettings:TFormatSettings):String; overload
- ;function ThePersianMonthLongName(aDate:TDateTime):String; overload
- ;function ThePersianMonthShortName(aDate:TDateTime;const FormatSettings:TFormatSettings):String; overload
- ;function ThePersianMonthShortName(aDate:TDateTime):String; overload
- ;function PersianDayOfTheMonth(aDate:TDateTime):Word
- ;function PersianDayOfTheYear(aDate:TDateTime):Word
- ;function PersianDayOfTheWeek(aDate:TDateTime):Word
- ;function PersianDayOfTheWeekLongName(aDate:TDateTime;const FormatSettings:TFormatSettings):String; overload
- ;function PersianDayOfTheWeekLongName(aDate:TDateTime):String; overload
- ;function PersianDayOfTheWeekShortName(aDate:TDateTime;const FormatSettings:TFormatSettings):String; overload
- ;function PersianDayOfTheWeekShortName(aDate:TDateTime):String; overload
- ;function CurrentPersianYear:Word
- ;function CurrentPersianMonth:Word
- ;function CurrentPersianMonthLongName(const FormatSettings:TFormatSettings):String; overload
- ;function CurrentPersianMonthLongName:String; overload
- ;function CurrentPersianMonthShortName(const FormatSettings:TFormatSettings):String; overload
- ;function CurrentPersianMonthShortName:String; overload
- ;function CurrentPersianDayOfMonth:Word
- ;function CurrentPersianDayOfYear:Word
- ;function CurrentPersianDayOfWeek:Word
- ;function CurrentPersianDayOfWeekLongName(const FormatSettings:TFormatSettings):String; overload
- ;function CurrentPersianDayOfWeekLongName:String; overload
- ;function CurrentPersianDayOfWeekShortName(const FormatSettings:TFormatSettings):String; overload
- ;function CurrentPersianDayOfWeekShortName:String; overload
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
توجه داشته باشيد كه "DayOfWeek" روز هفته را مشخص مي كند كه از يك شروع مي شود؛ شنبه = 1, يك شنبه = 2, و...
بازگشت
- ;function IncPersianDay(const DateTime:TDateTime;NumberOfDays:Integer=1):TDateTime
- ;(procedure IncAPersianDay(var Year,Month,Day:Word;NumberOfDays:Integer=1
- ;function DecPersianDay(const DateTime:TDateTime;NumberOfDays:Integer=1):TDateTime
- ;(procedure DecAPersianDay(var Year,Month,Day:Word;NumberOfDays:Integer=1
- ;function IncPersianWeek(const DateTime:TDateTime;NumberOfWeeks:Integer=1):TDateTime
- ;(procedure IncAPersianWeek(var Year,Month,Day:Word;NumberOfWeeks:Integer=1
- ;function DecPersianWeek(const DateTime:TDateTime;NumberOfWeeks:Integer=1):TDateTime
- ;(procedure DecAPersianWeek(var Year,Month,Day:Word;NumberOfWeeks:Integer=1
- ;function IncPersianMonth(const DateTime:TDateTime;NumberOfMonths:Integer=1):TDateTime
- ;(procedure IncAPersianMonth(var Year,Month,Day:Word;NumberOfMonths:Integer=1
- ;function DecPersianMonth(const DateTime:TDateTime;NumberOfMonths:Integer=1):TDateTime
- ;(procedure DecAPersianMonth(var Year,Month,Day:Word;NumberOfMonths:Integer=1
- ;function IncPersianYear(const DateTime:TDateTime;NumberOfYears:Integer=1):TDateTime
- ;(procedure IncAPersianYear(var Year,Month,Day:Word;NumberOfYears:Integer=1
- ;function DecPersianYear(const DateTime:TDateTime;NumberOfYears:Integer=1):TDateTime
- ;(procedure DecAPersianYear(var Year,Month,Day:Word;NumberOfYears:Integer=1
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
بازگشت
- ;procedure PersianSystemTimeToString(var Result:string;const Format:String;PersianSystemTime:TSystemTime;const FormatSettings:TFormatSettings); overload
- ;procedure PersianSystemTimeToString(var Result:string;const Format:String;PersianSystemTime:TSystemTime); overload
- ;procedure PersianTimeStampToString(var Result:string;const Format:String;PersianTimeStamp:TTimeStamp;const FormatSettings:TFormatSettings); overload
- ;procedure PersianTimeStampToString(var Result:string;const Format:String;PersianTimeStamp:TTimeStamp); overload
- ;procedure PersianDateTimeToString(var Result:string;const Format:String;DateTime:TDateTime;const FormatSettings:TFormatSettings); overload
- ;procedure PersianDateTimeToString(var Result:string;const Format:String;DateTime:TDateTime); overload
- ;function PersianDateToStr(const DateTime:TDateTime;const FormatSettings:TFormatSettings):string; overload
- ;function PersianDateToStr(const DateTime:TDateTime):string; overload
- ;function PersianDateTimeToStr(const DateTime:TDateTime;const FormatSettings:TFormatSettings):string; overload
- ;function PersianDateTimeToStr(const DateTime:TDateTime):string; overload
- ;function FormatPersianDateTime(const Format:string;DateTime:TDateTime;const FormatSettings:TFormatSettings):string; overload
- ;function FormatPersianDateTime(const Format:string;DateTime:TDateTime):string; overload
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
براي اطلاعات بيشتر راجع به الگو هاي تبديل تاريخ به رشته عبارت "Date-Time Format Strings" را در راهنماي دلفي جستجو كنيد.
بازگشت
- ;function StrToPersianDate(const S:string):TDateTime; overload
- ;function StrToPersianDate(const S:string;const FormatSettings:TFormatSettings):TDateTime; overload
- ;function StrToPersianDateDef(const S:string;const Default:TDateTime):TDateTime; overload
- ;function StrToPersianDateDef(const S:string;const Default:TDateTime;const FormatSettings:TFormatSettings):TDateTime; overload
- ;function TryStrToPersianDate(const S:string;out Value:TDateTime):Boolean; overload
- ;function TryStrToPersianDate(const S:string;out Value:TDateTime;const FormatSettings:TFormatSettings):Boolean; overload
- ;function StrToPersianDateTime(const S:string):TDateTime; overload
- ;function StrToPersianDateTime(const S:string;const FormatSettings:TFormatSettings):TDateTime; overload
- ;function StrToPersianDateTimeDef(const S:string;const Default:TDateTime):TDateTime; overload
- ;function StrToPersianDateTimeDef(const S:string;const Default:TDateTime;const FormatSettings:TFormatSettings):TDateTime; overload
- ;function TryStrToPersianDateTime(const S:string;out Value:TDateTime):Boolean; overload
- ;function TryStrToPersianDateTime(const S:string;out Value:TDateTime;const FormatSettings:TFormatSettings):Boolean; overload
- ;function ExtractPersianDateFromString(const S:string;DateOrder:TDateOrder;out Value:TDateTime):Boolean; overload
- ;function ExtractPersianDateFromString(const S:string;DateOrder:TDateOrder;out Value:TDateTime;const FormatSettings:TFormatSettings):Boolean; overload
كليه ي توابع مشابه توابع تاريخ دلفي مي باشند.
از تابع "ExtractPersianDateFromString" براي استخراج تاريخ از ميان يك متن مي توانيد استفاده كنيد.
بازگشت
- ;function NumberToPersianText(I:Int64):String
- ;function NumberToPersianOrdinalText(I:Int64):String
- ;function NumberToText(I:Int64):String
- ;function NumberToOrdinalText(I:Int64):String
- ;function NumberToOrdinalNumber(I:Int64):String
از اين توابع براي تبديل عدد به متن استفاده كنيد.
بازگشت
از وب سايت dihav ديدن فرماييد.