با سلام
آيا در اكسس اين امكان وجود دارد كه در يك فرم وقتي اطلاعات وارد ميكنم روي يك فيلد كليك ميكنم تاريخ همان روز به صورت شمسي نشان داده شود؟
با تشكر
Dim Sh1 As New ClassShamsi
Dim b
b = Sh1.Shamsi
MsgBox (b)
سلام نجف زاده جان.
این فایلی که فرستادی، فقط مال ویندوز است؟ یا در لینوکس و برنامه نویسی تحت وب هم میشه ازش استفاده کرد. به خصوص با php
اين كد VBA براي تبديل تاريخ ميلادي به هجري شمسي است. سه تا تابعه كه بنده نوشته ام و با يك تابع چهارم براي تاريخ هاي صد و هفتاد سال بعد و قبل تست كرده ام و در كار هاي خودم استفاده ميكنم.لازم نيست كه توضيح بدم سال كبيسه رو هم حساب ميكنه. كدش هم خيلي كوچيكه. شما هم ميتوانيد از اين سورس استفاده كنيد.
توضيحات توابع:
تابع mDateToHKh براي تبديل تاريخ ميلادي به هجري شمسي است. تاريخ ميلادي را با استفاده از تابع now به آن ارسال كرده و تابع، تاريخ هجري شمسي را به صورت رشته بر ميگرداند.
تابع hkhTomDate تاريخ هجري شمسي را به صورت سال، ماه، روز گرفته و به صورت تاريخ ميلادي از نوع تاريخ بر ميگرداند(date type)
تابع hkhStrToDate از تابع قبلي استفاده كرده و تاريخ هجري شمسي را به صورت رشته گرفته و به تاريخ ميلادي از نوع date بر ميگرداند.
فايل را انزيپ كنيد و ماژول رو در اكسس import كنيد.
اميدوارم كمكي كرده باشم
:lol:
مسلما دوستی که لطف کردن کد گذاشتن خیلی نسبت به اعضاء محبت داشتند
امیدوارم بتونم از این کد استفاده کنم
اين كد VBA براي تبديل تاريخ ميلادي به هجري شمسي است. سه تا تابعه كه بنده نوشته ام و با يك تابع چهارم براي تاريخ هاي صد و هفتاد سال بعد و قبل تست كرده ام و در كار هاي خودم استفاده ميكنم.لازم نيست كه توضيح بدم سال كبيسه رو هم حساب ميكنه. كدش هم خيلي كوچيكه. شما هم ميتوانيد از اين سورس استفاده كنيد.
توضيحات توابع:
تابع mDateToHKh براي تبديل تاريخ ميلادي به هجري شمسي است. تاريخ ميلادي را با استفاده از تابع now به آن ارسال كرده و تابع، تاريخ هجري شمسي را به صورت رشته بر ميگرداند.
تابع hkhTomDate تاريخ هجري شمسي را به صورت سال، ماه، روز گرفته و به صورت تاريخ ميلادي از نوع تاريخ بر ميگرداند(date type)
تابع hkhStrToDate از تابع قبلي استفاده كرده و تاريخ هجري شمسي را به صورت رشته گرفته و به تاريخ ميلادي از نوع date بر ميگرداند.
فايل را انزيپ كنيد و ماژول رو در اكسس import كنيد.
اميدوارم كمكي كرده باشم
:lol:
باید توی کد چیزی تغییر بدم ؟اقا من کد این ماژول کپی کردم و یک ماژول تعریف کردم واونجا پیست کردم
ولی میلادی هنوز . بد بخت شدم.چه کنم. کمک
سلام. باید در بخش کد نویسی VBA فایل DLL یا OCX رو تعریف بفرمائین.باید توی کد چیزی تغییر بدم ؟