جمع و تفریق تاریخ و انتخاب رکوردها بین دو تاریخ در vb

شروع موضوع توسط Jaf@r ‏14 نوامبر 2005 در انجمن برنامه نويسي و الگوريتم آن

  1. Jaf@r

    Jaf@r Member

    ارسال‌ها:
    93
    تشکر شده:
    9
    امتیاز دستاورد:
    6
    سلام
    من میخوام رکوردها رو بین دو تاریخ که وارد شده در دیتا بیس انتخاب کنم
    برای مثال حساب شخصی از فلان تاریخ تا فلان
    من ضمنا sql هم یاد ندارم
    میخواستم بدونم چه طور میشه تاریخ ها رو از هم کم کرد مثلا دستور این باشه که دو تاریخ رو بگیره از هم کم کنه و هر تاریخی بین اونها وجود داشت اون رکورد رو انتخاب کنه؟
    متشکرم
     
  2. saeid3d

    saeid3d Member

    ارسال‌ها:
    33
    تشکر شده:
    33
    امتیاز دستاورد:
    6
    نیاز به سرچ تاریخ

    سلام به همه دوستان
    بچه ها من یک برنامه ای نوشتم الان به یک مشکلی برخوردم یعنی یک کد می خوام که ندارمش
    من تویه برنامه ام یک بانک اطلاعاتی دارم که با اکسس هستش
    و توسط یک adodc این بانک در یک datagrid نمایش داده میشه
    دوتا ز فیلدهای این جدول مربوط به تاریخ هست ( تاریخ رفت افراد و تاریخ برگشت افراد )
    می خوام کدی بنویسم که مثلا توی text1 یک تاریخ رفت بنویسیم وتوی text2 یک تاریخ برگشت و با زدن دکمه اطلاعات افرادی رو که بین این دو تاریخ هستن رو به من نشون بده (مثلا تو همون جدول دیتا گرید )

    اگه کدش باشه یا یک نمونه برنامه باشه عالیه
    میشه کمکم کنیین ؟
     
  3. saalek110

    saalek110 Active Member

    ارسال‌ها:
    2,428
    تشکر شده:
    1,265
    امتیاز دستاورد:
    36
    سرچ کنید. گویا در تاپیک (( آموزش و سوالات مربوط به استفاده از دستورات Sql در دلفی )) که در بالا سنجاق است همین اواخر چنین بحثی شده.
    دوستان شاید بیشتر بتوانند بیشتر کمک کنند.
    ولی مطمئنا این بحث خیلی جاها یافت می شود چه در فرومهای فارسی و چه انگلیسی. مخصوصا انگلیسی.
     
  4. saeid3d

    saeid3d Member

    ارسال‌ها:
    33
    تشکر شده:
    33
    امتیاز دستاورد:
    6
    سلام عزیز
    من برنامه رو با vb 6 نوشتیم
    خدایی خیلی سرچ کردم اما نتونستم درمورد تاریخ چیزی پیدا کنم اگه میشه یا شما جایی دیدن یا میتونین همچین کدی بنویسین میشه یک لینکی بزارین یا کدش رو بهم بدین
    ( من همونیم که برا پادگانمون داشتم برنامه می نوشتیم قبلا اط شما هم کمک گرفتم ممنون میشم بازم کمکم کنین )
    مرسی ؟
     
  5. saalek110

    saalek110 Active Member

    ارسال‌ها:
    2,428
    تشکر شده:
    1,265
    امتیاز دستاورد:
    36
    سلام سعید جان.

    اینو سرچ کن در گوگل:
    کد (Text):
    "بین دو تاریخ"
    و بعد در فرومهایی که میاد هم سرچ کن. یعنی بنویس
    xyz site:www.one_forum.com
    فکر کنم پیدا کنید. کلمات دیگر را هم امتحان کن. شرمنده الان نمی تونم سایتی نشون بدهم.

    انگار یکی از دوستان گفته بود مثل اعداد میشه با تاریخ کار کرد. خودم تست نکردم. کمی ور برو. من الان نمی توانم خودم کار کنم.
     
    آخرین ویرایش: ‏1 دسامبر 2008
  6. Dr.Bronx

    Dr.Bronx New Member

    ارسال‌ها:
    5
    تشکر شده:
    6
    امتیاز دستاورد:
    1
    سوال اول : ببینید شما توی این مثال اینهارو دارید ---- Adodc1 که برای ارتباط شما با دیتابیس هست هالا چه Sql هست و چه access یک Tabel دارید با نام Test و این دو فیلدی که می گین با نام های Tt1.text و tt2.text هست و Date2 نام اون فیلدی که شما
    می خواین این عمل روش انجام بشه هست . به کد زیر توجه کنید:

    Adodc1.RecordSource = "SELECT * FROM Test" & _
    " WHERE Date2 Between '" & tt1.Text & "'and'" & tt2.Text & "'"

    خوب قائدا هم بعدش باید ریفرش داشته باشید :cool:
    adodc1.refresh
    datagrid1.refresh


    سوال دوم : شما می تونید از کتابخانه Shamsi.dll استفاده کنید
    دو تاريخ شمسي دريافت مي‌كند و تفاضل تاريخ اول از تاريخ دوم را بر حسب روز برمي گرداند. ShamsiDiff (date1, date2) as long

    تابع ShamsiDiff

    اين تابع دو تاريخ شمسي را دريافت نموده و اختلاف تاريخ اول از تاريخ دوم را بر حسب روز برمي گرداند. به عنوان مثال اگر وردي هاي تابع به ترتيب 12/08/1383 و 05/06/1383 باشد، تابع مقدار 68 را برمي گرداند. يعني بين اين دو تاريخ 68 روز اختلاف هست. خروجيا اين تابع يك عدد است.
    براي فراخواني تابع 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

    دریافت این کتابخانه


    موفق باشید :wink:
     

به اشتراک بگذارید