تابع Shamsi

اين تابع تاريخ ميلادي سيستم را به تاريخ شمسي تبديل مي كند و آن را به صورت يك رشته برمي گرداند. براي فراخواني آن كدهاي زير را وارد كنيد:

Public Function Shamsi() as string

dim shms as New ClassShamsi

Shamsi = shms.Shamsi
End Function

حالا شما تابع Shamsi را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsi استفاده كنيد.

تابع IsShamsi

اين تابع يك تاريخ شمسي دريافت كرده و چك مي كند كه آيا اين تاريخ يك تاريخ معتبر هست يا خير. خروجي اين تابع به صورت يك مقدار صحيح يا غلط است.

تاريخهاي معتبر شمسي بايد به صورت روز/ماه/ سال باشند. به اين معني كه در سمت چپ عبارت يك عدد چهار رقمي بزرگتر از 1330 به عنوان شماره ي سال، سپس يك علامت اسلش / به عنوان جداكننده، يك عدد دورقمي بين 1 و 12 به عنوان ماه سال، مجددا علامت اسلش و در نهايت يك عدد دورقمي بين 1 و 31 به عنوان روز ماه قرار دارند. دقت كنيد كه به دليل اينكه تاريخهاي قديمي عملا بلاستفاده هستند، براي محاسبات تاريخ در كلاسهاي شمسي تاريخهاي بعد از29/12/1330 معتبر هستند.

نكته مهم ديگري كه بايد در رابطه با تاريخهاي شمسي مدنظر داشت اين است كه براي نوشتن شماره ي ماه و يا روز در صورتي كه اين شماره ها يك عدد تك رقمي باشند، بايد حتما رقم صفر قبل از آنها قرار بگيرد. به عنوان مثال تاريخ 4/8/1383 نادرست و صحيح آن 04/08/1383 مي باشد.

براي فراخواني تابع IsShamsi از كدهاي زير استفاده كنيد:

Public Function IsShamsi(shdate as string) as boolean

dim shms as New ClassShamsi

IsShamsi = shms.isshamsi(shdate)i
End Function

حالا شما تابع IsShamsi را با خروجي بولين انتخاب كرده ايد و براي استفاده از آن در هر قسمت برنامه مي توانيد از همين نام IsShamsi استفاده كنيد. در صورتي كه تاريخ ورودي تابع معتبر باشد، اين تابع مقدار True و در غير اين صورت مقدار False را برمي گرداند.

تابع IsKabiseh

اين تابع يك تاريخ شمسي دريافت كرده و چك مي كند كه آيا اين سال اين تاريخ كبيسه است يا خير. خروجي اين تابع به صورت يك مقدار صحيح يا غلط است.

براي فراخواني تابع IsKabiseh از كدهاي زير استفاده كنيد:

Public Function IsKabiseh(shdate as string) as boolean

dim shms as New ClassShamsi

IsKabiseh = shms.iskabiseh(shdate)i
End Function

حالا شما تابع IsKabiseh را با خروجي بولين انتخاب كرده ايد و براي استفاده از آن در هر قسمت برنامه مي توانيد از همين نام IsKabiseh استفاده كنيد. در صورتي كه تاريخ ورودي كبيسه باشد، اين تابع مقدار True و در غير اين صورت مقدار False را برمي گرداند.

تابع ShamsiYear

اين تابع يك تاريخ شمسي را به صورت رشته دريافت كرده و عدد مربوط به سال آن را برمي گرداند. خروجي اين تابع به صورت يك عدد صحيح است. به عنوان مثال اين تابع با دريافت تاريخ 12/08/1383 مقدار 1383 را برمي گرداند.

براي فراخواني تابع ShamsiYear از كدهاي زير استفاده كنيد:

Public Function ShamsiYear(shdate as string) as integer

dim shms as New ClassShamsi

ShamsiYear = shms.ShamsiYear(shdate)i
End Function

حالا شما تابع ShamsiYear را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsiYear استفاده كنيد.

تابع ShamsiMonth

اين تابع يك تاريخ شمسي را به صورت رشته دريافت كرده و عدد مربوط به ماه آن را برمي گرداند. خروجي اين تابع به صورت يك عدد صحيح است. به عنوان مثال اين تابع با دريافت تاريخ 12/08/1383 مقدار 8 را برمي گرداند.

براي فراخواني تابع ShamsiMonth از كدهاي زير استفاده كنيد:

Public Function ShamsiMonth(shdate as string) as integer

dim shms as New ClassShamsi

ShamsiMonth = shms.ShamsiMonth(shdate)i
End Function

حالا شما تابع ShamsiMonth را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsiMonth استفاده كنيد.

تابع ShamsiDay

اين تابع يك تاريخ شمسي را به صورت رشته دريافت كرده و عدد مربوط به روز آن را برمي گرداند. خروجي اين تابع به صورت يك عدد صحيح است. به عنوان مثال اين تابع با دريافت تاريخ 12/08/1383 مقدار 12 را برمي گرداند.

براي فراخواني تابع ShamsiDay از كدهاي زير استفاده كنيد:

Public Function ShamsiDay(shdate as string) as integer

dim shms as New ClassShamsi

ShamsiDay = shms.ShamsiDay(shdate)i
End Function

حالا شما تابع ShamsiDay را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsiDay استفاده كنيد.

تابع ShamsiCurrentYear

براي فراخواني تابع ShamsiCurrentYear از كدهاي زير استفاده كنيد:

Public Function ShamsiCurrentYear() as integer

dim shms as New ClassShamsi

ShamsiCurrentYear = shms.ShamsiCurrentYear()i
End Function

حالا شما تابع ShamsiCurrentYear را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentYear استفاده كنيد.

تابع ShamsiCurrentMonth

براي فراخواني تابع ShamsiCurrentMonth از كدهاي زير استفاده كنيد:

Public Function ShamsiCurrentMonth() as integer

dim shms as New ClassShamsi

ShamsiCurrentMonth = shms.ShamsiCurrentMonth()i
End Function

حالا شما تابع ShamsiCurrentMonth را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentMonth استفاده كنيد.

تابع ShamsiCurrentDay

براي فراخواني تابع ShamsiCurrentDay از كدهاي زير استفاده كنيد:

Public Function ShamsiCurrentDay() as integer

dim shms as New ClassShamsi

ShamsiCurrentDay = shms.ShamsiCurrentDay()i
End Function

حالا شما تابع ShamsiCurrentDay را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentDay استفاده كنيد.

تابع ShamsiMonthName

براي فراخواني تابع ShamsiMonthName از كدهاي زير استفاده كنيد:

Public Function ShamsiMonthName(shdate as string) as string

dim shms as New ClassShamsi

ShamsiMonthName = shms.ShamsiMonthName(shdate)i
End Function

حالا شما تابع ShamsiMonthName را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiMonthName استفاده كنيد.

تابع ShamsiCurrentMonthName

براي فراخواني تابع ShamsiCurrentMonthName از كدهاي زير استفاده كنيد:

Public Function ShamsiCurrentMonthName() as string

dim shms as New ClassShamsi

ShamsiCurrentMonthName = shms.ShamsiCurrentMonthName()i
End Function

حالا شما تابع ShamsiCurrentMonthName را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentMonthName استفاده كنيد.

تابع ShamsiWeekDay

براي فراخواني تابع ShamsiWeekDay از كدهاي زير استفاده كنيد:

Public Function ShamsiWeekDay() as integer

dim shms as New ClassShamsi

ShamsiWeekDay = shms.ShamsiWeekDay()i
End Function

حالا شما تابع ShamsiWeekDay را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiWeekDay استفاده كنيد.

تابع ShamsiWeekDayName

براي فراخواني تابع ShamsiWeekDayName از كدهاي زير استفاده كنيد:

Public Function ShamsiWeekDayName() as string

dim shms as New ClassShamsi

ShamsiWeekDayName = shms.ShamsiWeekDayName()i
End Function

حالا شما تابع ShamsiWeekDayName را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiWeekDayName استفاده كنيد.

تابع Shamsi2Day

براي فراخواني تابع Shamsi2Day از كدهاي زير استفاده كنيد:

Public Function Shamsi2Day(shdate as string) as Long

dim shms as New ClassShamsi

Shamsi2Day = shms.Shamsi2Day(shdate)i
End Function

حالا شما تابع Shamsi2Day را با خروجي Long ايانتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام Shamsi2Day استفاده كنيد.

تابع ShamsiDiff

براي فراخواني تابع ShamsiDiff از كدهاي زير استفاده كنيد:

Public Function ShamsiDiff(shdate1 as string, shdate2 as string) as Long

dim shms as New ClassShamsi

ShamsiDiff = shms.ShamsiDiff(shdate1, shdate2)i
End Function

حالا شما تابع ShamsiDiff را با خروجي Long ايانتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiDiff استفاده كنيد.

تابع Miladi2Shamsi

براي فراخواني تابع Miladi2Shamsi از كد زير استفاده كنيد:

Public Function Miladi2Shamsi(mdate as string) as String

dim shms as New ClassShamsi

Miladi2Shamsi= shms.Miladi2Shamsi(mdate)i
End Function

حالا شما تابع Miladi2Shamsi را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام Miladi2Shamsi استفاده كنيد.

تابع Shamsi2Miladi

براي فراخواني تابع Shamsi2Miladi از كد زير استفاده كنيد:

Public Function Shamsi2Miladi(shdate as string) as String

dim shms as New ClassShamsi

Shamsi2Miladi= shms.Shamsi2Miladi(shdate)i
End Function

حالا شما تابع Shamsi2Miladi را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام Shamsi2Miladi استفاده كنيد.

تابع ShamsiIncrease

براي فراخواني تابع ShamsiIncrease از كد زير استفاده كنيد:

Public Function ShamsiIncrease(shdate as string, amount as long) as String

dim shms as New ClassShamsi

ShamsiIncrease= shms.ShamsiIncrease(shdate, amount)i
End Function

حالا شما تابع ShamsiIncrease را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiIncrease استفاده كنيد.

تابع ShamsiDecrease

براي فراخواني تابع ShamsiDecrease از كد زير استفاده كنيد:

Public Function ShamsiDecrease(shdate as string, amount as long) as String

dim shms as New ClassShamsi

ShamsiDecrease= shms.ShamsiDecrease(shdate, amount)i
End Function

حالا شما تابع ShamsiDecrease را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiDecrease استفاده كنيد.