یادآوری تاریخ چک

[silverado]

سلام دوستان
سال نو مبارک

یه دیتابیس دارم که اطلاعات یه چک توش ذخیره میشه مثل مبلغ ، تاریخ ، شماره چک و....
میخوام هربار که برنامه اجرا میشه این دیتابیس رو بررسی کنه و تاریخ هر چک که نزدیک هست رو اعلام کنه
مثلا دیتابیس به این صورته:
شماره چک مبلغ تاریخ
726348763 3000000 1393/02/15
453434545 5000000 1393/04/06
345656555 4500000 1393/07/25

حالا تاریخ هر کدوم که نزدیکه از 4 روز قبلش اعلام کنه

[ahmad abdoli]

سلام

شما باید از تابع DateDiff استفاده کنید:

DateDiff("d", date1, date2)

پارامتر "d" واحد اختلاف رو نشون می ده که اینجا روز هستش

date1 تاریخ جاری سیستم هستش

date2 تاریخ چک

[vbhamed]

سلام
البته تابع DateDiff براساس تاریخ میلادی عمل می‌کنه بنابراین باید تبدیل تاریخ هم صورت بگیره

[isaac23]

On Error Resume Next

Dim a

a = Val(4)

Adodc1.RecordSource = "SELECT *  From T1 Where (instr(TCH ,'" & To_Hejri(Date + a, 0) & "') <> " & 0 & ") order by TCH"

Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

.

.

End If

[silverado]

من هر چی امتحان کردن نشد . این کدی که شما گذاشتی نمیدونم چیه . لطفا اگه کسی می تونه با یه نمونه توضیح بده

[ahmad abdoli]

دوست عزیز اول بگید برای ذخیره تاریخ چطور عمل می کنید؟



من از یه کامپوننت برای وارد کردن تاریخ استفاده می کنم جواب می ده با استفاده از همون کدی که توی پست شماره دو دادم

این هم نمونه:

date diff.rar