ورود

View Full Version : سوال: تغییر تاریخ پیش فرض با تاخیر


hf.farhadi
سه شنبه 21 تیر 1390, 00:05 صبح
با سلام خدمت اساتید و دوستان عزیز

چطوری میتونم تاریخ پیش فرض یه فیلد رو جوری تنظیم کنم که به جای 24 شب 6 صبح عوض بشه (یعنی با 6 ساعت تاخیر)

چون شیفت شبکاری از ساعت 22 شروع میشه و تا 6 صبح ادامه داره و این زمان (تا 6 صبح )جزء تاریخ دیروز محسوب میشه.

ممنون میشم راهنمایی کنین
sanay_esh
سه شنبه 21 تیر 1390, 00:40 صبح
خوب عزیزم یه نگاهی به ساعت میندازی اگر بین 22 شب تا 6 صبح است یک روز از تاریخی که هست کم میکنی که در کامپوننتهای تاریخ شمسی این امکان وجود داره که بتونی به تعداد عددی از تاریخ کسر کنی همین !!!
hf.farhadi
سه شنبه 21 تیر 1390, 16:36 عصر
با سلام
میشه زحمت کدشو بکشین و بگین تو کدوم رویداد باید اعمال بشه
hf.farhadi
جمعه 24 تیر 1390, 17:45 عصر
دوستان منتظر راهنمایی شما عزیزان هستم
hf.farhadi
دوشنبه 27 تیر 1390, 23:35 عصر
همچنان منتظریم
hf.farhadi
یک شنبه 02 مرداد 1390, 17:09 عصر
با سلام
من از ماژول آقای آزادی استفاده میکنم و این کد رو نوشتم
If Time() >= #00:00:00 AM# And Time() <= #6:00:00 AM# Then
حالا میخوام اگه شرط محیا بود از تاریخ ثبث شده یک روز کم شود
چه کدی رو باید اضافه کنم ، یعنی اون تابعی رو که از تاریخ کم میکنه رو نتونستم استفاده کنم . ممنون میشم راهنمایی کنین.
hf.farhadi
دوشنبه 03 مرداد 1390, 16:31 عصر
دوستان یعنی این کار شدنی نیــــــســــــت؟؟؟؟؟؟؟؟؟
hf.farhadi
چهارشنبه 05 مرداد 1390, 18:16 عصر
حتی دریغ از یک نمونه !!!!!!!!!!!!!!!
hf.farhadi
شنبه 08 مرداد 1390, 00:29 صبح
با سلام
من مشکل فوق رو با این روش حل کردم
توی on Got focus اولین فیلد فرمم کد زیر رو نوشتم و فعلاً درست کار میکنه به نظر شما مشکلی پیش نمیاره ؟

If Time() >= #12:00:00 AM# And Time() <= #6:00:00 AM# Then
Me.Text6.Value = SubtractDay(Shamsi(), 1)
Else
Me.Text6.Value = Shamsi()
End If
Zero Defect
شنبه 08 مرداد 1390, 20:54 عصر
سلام

کلیات کدتون درسته

این کد رو در داخل رویداد On Got Focus قرار ندید , چرا که اگر مقداری هم قبلا در داخل اون فیلد ثبت شده باشه منجر به تغییر اون میشه , که قاعدتا مطلوب نیست

توصیه میکنم اون رو در قالب یک تابع بنویسید و در داخل DefaultValue اون فیلد , به نام اون تابع اشاره کنید , تا به عنوان مقدار پیش فرض در هنگام ثبت یک رکورد در داخل اون درج بشه

فرضا تابعی شبیه به تابع فرضی زیر :

Function DateXX() As String

If Format(Time(), "HH:MM") > "00:00" And Format(Time(), "HH:MM") < "06:00" Then
DateXX = DateAdd("d", -1, Date)
Else
DateXX = Date
End If

End Function

( کد فوق رو متناسب با مبدل تاریخ خودتون تغییر بدید )

از تابع Format هم استفاده کنید تا احیاناً فرمتهای متفاوت نمایش زمان بر روی سیستمهای مختلف , ایجاد اشکال نکنه


موفق باشید
hf.farhadi
شنبه 08 مرداد 1390, 21:10 عصر
با تشکر از شما Zero Defect عزیز و ممنون بابت توضیحاتتون

من دستورات فوق رو تو رویداد On Got Focus قرار دادم و مقدار برگشتی رو توی یه تکس باکس Unbound ریختم . وبعد DefaultValue فیلد تاریخمو برابر با تکس باکس Unbound قرار دادم . تا مثلاً پیش خودم گفتم مشکلی پیش نیاد(از قبیل مشکلایی که فرمودین ). به هر حال روش جنابعالی دقیق و عالیه ممنون از زحمتی که کشیدین