Persian Date 1.0.1

فهرست

• توافق نامه
• معرفي
• نصب
• تعاريف يونيت
• ثابت هاي يونيت
• توابع تبديل انواع DateTime
• توابع تبديل تاريخ فارسي /ميلادي
• توابع كدگذاري و كدگشايي
• توابع تاريخ فارسي
• توابع جا به جايي تاريخ
• توابع تبديل به رشته
• توابع خواندن از رشته
• توابع تبديل عدد به متن
• سایت اینترنتی

توافق نامه

• اين برنامه رايگان است و مي تواند توسط هر كسي انتشار يابد.
• هيچ شخص يا شركتي نمي تواند براي انتشار اين برنامه مبلغي دريافت كند.
• هيچ ضمانتي وجود ندارد. شما با مسئوليت خود از اين برنامه استفاده مي كنيد. نويسنده هيچگونه مسئوليتي در قبال از دست رفتن اطلاعات، خرابي يا ضرر و زيان يا هر نوع ديگر صدمات ندارد.
• شما نمي توانيد اين برنامه را بفروشيد و يا كرايه دهيد. هر گونه عمليات غير مجاز باعث لغو فوري و خودكار اين قرارداد مي گردد و تحت پيگرد قانوني قرار مي گيرد.

بازگشت

معرفي

بازگشت

نصب

1. دلفي را اجرا كنيد.
2. از منوي "Tools" گزينه ي "...Environment Options" را انتخاب كنيد.
3. به صفحه ي "Library" برويد.
4. دكمه ي "..." مقابل "Library Path" را كليك كنيد.
5. دايركتوري فايل "PersianDate.pas" را به آن بدهيد.
6. دكمه ي "Add" را كليك كنيد.
7. دكمه ي "OK" را كليك كنيد.
8. دكمه ي "OK" را كليك كنيد.
9. براي استفاده از توابع يونيت "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)
  ;(

بازگشت

توابع تبديل انواع DateTime

• ;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

بازگشت

توابع تبديل تاريخ فارسي /ميلادي

• ;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

بازگشت

توابع كدگذاري و كدگشايي

• ;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

بازگشت

توابع تاريخ فارسي

• ;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

بازگشت

توابع جا به جايي تاريخ

• ;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

بازگشت

توابع خواندن از رشته

• ;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

بازگشت

توابع تبديل عدد به متن

• ;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

بازگشت