آموزش توابع تاریخ و زمان در Access 2021

توابع تاریخ و زمان در Microsoft Access 2021 به ما کمک می‌کنند تا روی تاریخ‌ها و زمان‌ها عملیات مختلفی انجام دهیم. این توابع برای مدیریت داده‌های تاریخی، محاسبه فواصل زمانی، استخراج قسمت‌های مختلف تاریخ و زمان و نمایش خروجی در فرمت‌های مختلف به کار می‌روند.

📌 انواع توابع تاریخ و زمان در Access

توابع تاریخ را می‌توان به چند دسته کلی تقسیم کرد:

1. دریافت تاریخ و زمان جاری

   • Date() → تاریخ امروز را برمی‌گرداند.
   • Now() → تاریخ و زمان جاری را برمی‌گرداند.
   • Time() → فقط زمان فعلی را برمی‌گرداند.
   • Timer() → تعداد ثانیه‌های گذشته از نیمه‌شب را نمایش می‌دهد.

2. ایجاد تاریخ یا زمان مشخص

   • DateSerial(سال, ماه, روز) → ایجاد یک تاریخ مشخص
   • TimeSerial(ساعت, دقیقه, ثانیه) → ایجاد یک زمان مشخص
   • DateValue("yyyy/mm/dd") → تبدیل یک رشته به تاریخ
   • TimeValue("hh:mm:ss") → تبدیل یک رشته به زمان

3. محاسبه اختلاف بین دو تاریخ/زمان

   • DateDiff("واحد", تاریخ1, تاریخ2) → محاسبه فاصله بین دو تاریخ بر اساس روز، ماه، سال و...
   • DateAdd("واحد", مقدار, تاریخ) → اضافه یا کم کردن یک مقدار به تاریخ

4. استخراج بخش خاصی از تاریخ/زمان

   • Year(تاریخ) → دریافت سال
   • Month(تاریخ) → دریافت عدد ماه
   • MonthName(عدد ماه) → دریافت نام ماه
   • Day(تاریخ) → دریافت روز ماه
   • Weekday(تاریخ) → دریافت عدد روز هفته
   • WeekdayName(عدد هفته) → دریافت نام روز هفته
   • Hour(زمان) → دریافت ساعت
   • Minute(زمان) → دریافت دقیقه
   • Second(زمان) → دریافت ثانیه

5. فرمت‌بندی و نمایش تاریخ و زمان

   • Format(Date(), "yyyy/mm/dd") → نمایش تاریخ در فرمت سفارشی
   • Format(Now(), "hh:nn AM/PM") → نمایش زمان در فرمت ساعت:دقیقه AM/PM

📌 مثال‌های کاربردی در Access

✅ نمایش تاریخ و زمان جاری

SELECT Date() AS CurrentDate, Time() AS CurrentTime, Now() AS DateTimeNow; 

🔹 خروجی:

✅ محاسبه سن از تاریخ تولد

SELECT DateDiff("yyyy", #1990/05/20#, Date()) AS Age; 

🔹 خروجی:
اگر امروز 2025/02/27 باشد، نتیجه 34 سال خواهد بود.

✅ محاسبه تعداد روزهای باقی‌مانده تا یک تاریخ مشخص

SELECT DateDiff("d", Date(), #2025/12/31#) AS DaysRemaining; 

🔹 خروجی:
اگر امروز 2025/02/27 باشد، تعداد روزهای باقی‌مانده 307 روز خواهد بود.

✅ پیدا کردن اولین روز ماه جاری

SELECT DateSerial(Year(Date()), Month(Date()), 1) AS FirstDayOfMonth; 

🔹 خروجی:
اگر امروز 2025/02/27 باشد، نتیجه 2025/02/01 خواهد بود.

✅ نمایش نام روز هفته

SELECT WeekdayName(Weekday(Date())) AS TodayWeekday; 

🔹 خروجی:
اگر امروز دوشنبه باشد، مقدار Monday را نمایش می‌دهد.

📌 نتیجه‌گیری

توابع تاریخ و زمان در Access 2021 ابزارهای قدرتمندی هستند که به شما امکان می‌دهند عملیات پیچیده‌ای مانند محاسبه سن، مدیریت تاریخ‌های انقضا، نمایش تاریخ‌های خاص و انجام محاسبات بین دو تاریخ را انجام دهید. این توابع در Queryها، VBA و ماژول‌های Access بسیار پرکاربرد هستند و در طراحی سیستم‌های مدیریت اطلاعات مثل حقوق و دستمزد، حسابداری، ثبت سفارشات و مدیریت منابع انسانی نقش مهمی دارند.

اینجا تمام توابع تاریخ و زمان در Access 2021 را با توضیح و مثال در VBA و Query ارائه می‌کنم:

1. Date Function

کاربرد:

• این تابع تاریخ امروز را برمی‌گرداند.

مثال در VBA:

vba

Sub ShowDate()

    MsgBox "Today's Date is: " & Date

End Sub

نتیجه: نمایش تاریخ جاری مثل 2025/02/27.

مثال در Query:

sql

SELECT Date() AS CurrentDate;

2. DateAdd Function

کاربرد:

• مقدار مشخصی را به تاریخ اضافه یا کم می‌کند.

مثال در VBA:

vba

Sub AddDays()

    MsgBox "Date after 10 days: " & DateAdd("d", 10, Date)

End Sub

نتیجه: 10 روز بعد از امروز نمایش داده می‌شود.

مثال در Query:

sql

SELECT DateAdd("m", 2, Date()) AS TwoMonthsLater;

نتیجه: 2 ماه بعد از امروز.

3. DateDiff Function

کاربرد:

• اختلاف بین دو تاریخ را حساب می‌کند.

مثال در VBA:

vb

Sub DifferenceInDays()

    MsgBox "Difference: " & DateDiff("d", "2024-01-01", Date) & " days"

End Sub

نتیجه: تعداد روزهای بین 2024/01/01 و امروز.

مثال در Query:

sql

SELECT DateDiff("yyyy", "2000-01-01", Date()) AS YearsPassed;

نتیجه: محاسبه سال‌های گذشته از 2000 تا اکنون.

4. DatePart Function

کاربرد:

• یک بخش خاص از تاریخ را دریافت می‌کند.

مثال در VBA:

vba

Sub GetMonth()

    MsgBox "Current Month: " & DatePart("m", Date)

End Sub

نتیجه: عدد ماه جاری.

مثال در Query:

sql

SELECT DatePart("q", Date()) AS CurrentQuarter;

نتیجه: نمایش فصل جاری سال.

5. DateSerial Function

کاربرد:

• ساخت یک تاریخ مشخص.

مثال در VBA:

vba

Sub CustomDate()

    MsgBox "Custom Date: " & DateSerial(2025, 12, 25)

End Sub

نتیجه: نمایش 2025/12/25.

مثال در Query:

sql

SELECT DateSerial(2025, 5, 15) AS CustomDate;

نتیجه: نمایش 2025/05/15.

6. DateValue Function

کاربرد:

• تبدیل یک رشته به تاریخ واقعی.

مثال در VBA:

vba

Sub ConvertStringToDate()

    MsgBox "Converted Date: " & DateValue("March 10, 2025")

End Sub

نتیجه: تبدیل March 10, 2025 به تاریخ واقعی.

مثال در Query:

sql

SELECT DateValue("4/1/2025") AS ConvertedDate;

نتیجه: نمایش 2025/04/01.

7. Day Function

کاربرد:

• دریافت روز ماه از تاریخ.

مثال در VBA:

vba

Sub GetDay()

    MsgBox "Today's Day: " & Day(Date)

End Sub

نتیجه: نمایش عدد روز جاری.

مثال در Query:

sql

SELECT Day(Date()) AS TodayDay;

نتیجه: نمایش روز جاری.

8. Hour Function

کاربرد:

• دریافت ساعت جاری.

مثال در VBA:

vba

Sub GetHour()

    MsgBox "Current Hour: " & Hour(Now)

End Sub

نتیجه: عدد ساعت جاری.

مثال در Query:

sql

SELECT Hour(Now()) AS CurrentHour;

9. Minute Function

کاربرد:

• دریافت دقیقه جاری.

مثال در VBA:

vba

Sub GetMinute()

    MsgBox "Current Minute: " & Minute(Now)

End Sub

نتیجه: عدد دقیقه جاری.

مثال در Query:

sql

SELECT Minute(Now()) AS CurrentMinute;

10. Month Function

کاربرد:

• دریافت ماه از تاریخ.

مثال در VBA:

vba

Sub GetMonth()

    MsgBox "Current Month: " & Month(Date)

End Sub

مثال در Query:

sql

SELECT Month(Date()) AS CurrentMonth;

11. MonthName Function

کاربرد:

• دریافت نام ماه.

مثال در VBA:

vba

Sub GetMonthName()

    MsgBox "Current Month Name: " & MonthName(Month(Date))

End Sub

مثال در Query:

sql

SELECT MonthName(Month(Date())) AS MonthName;

12. Now Function

کاربرد:

• دریافت تاریخ و زمان فعلی.

مثال در VBA:

vba

Sub ShowNow()

    MsgBox "Current Date & Time: " & Now

End Sub

مثال در Query:

sql

SELECT Now() AS CurrentDateTime;

13. Second Function

کاربرد:

• دریافت ثانیه جاری.

مثال در VBA:

vba

Sub GetSecond()

    MsgBox "Current Second: " & Second(Now)

End Sub

مثال در Query:

sql

SELECT Second(Now()) AS CurrentSecond;

14. Time Function

کاربرد:

• دریافت ساعت فعلی.

مثال در VBA:

vba

Sub GetCurrentTime()

    MsgBox "Current Time: " & Time

End Sub

مثال در Query:

sql

SELECT Time() AS CurrentTime;

15. Timer Function

کاربرد:

• تعداد ثانیه‌های گذشته از نیمه‌شب را نمایش می‌دهد.

مثال در VBA:

vba

Sub GetTimer()

    MsgBox "Seconds since midnight: " & Timer

End Sub

16. TimeSerial Function

کاربرد:

• ساخت یک ساعت خاص.

مثال در VBA:

vba

Sub CreateTime()

    MsgBox "Created Time: " & TimeSerial(14, 30, 0)

End Sub

مثال در Query:

sql

SELECT TimeSerial(14, 30, 0) AS SpecificTime;

17. TimeValue Function

کاربرد:

• تبدیل رشته به زمان واقعی.

مثال در VBA:

vba

Sub ConvertTimeString()

    MsgBox "Converted Time: " & TimeValue("3:15 PM")

End Sub

مثال در Query:

sql

SELECT TimeValue("10:45 AM") AS ConvertedTime;

18. Weekday Function

کاربرد:

• دریافت شماره روز هفته.

مثال در VBA:

vba

Sub GetWeekday()

    MsgBox "Today is Day: " & Weekday(Date)

End Sub

19. WeekdayName Function

کاربرد:

• دریافت نام روز هفته.

مثال در VBA:

vba

Sub GetWeekdayName()

    MsgBox "Today is: " & WeekdayName(Weekday(Date))

End Sub

20. Year Function

کاربرد:

• دریافت سال.

vb

MsgBox "Current Year: " & Year(Date)