صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 12

موضوع: نمایش ساعت و تاریخ در فرم

  1. #1


    آخرین بازدید
    12 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    Cool نمایش ساعت و تاریخ در فرم

    سلام دوستان

    تو این آموزش میخوام نحوه قرار دادن ساعت رو در یک فرم بهتون آموزش بدم
    این نکته رو در نظر داشته باشید که روش های مشابه زیادی وجود داره ولی سعی کردم ساده ترین و کارا ترین روش رو خدمتتون ارائه کنم.
    همچنین به این موضوع توجه داشته باشید که ما فقط پایه ای ترین حالت ممکن رو در نظر گرفتیم. خیلی کدها و کارها رو میشه بهش اضافه و یا ازش کم کرد.

    پیش نیاز این آموزش: شما نیاز دارید یکسری مقدمات در مورد فرم و ماژول رو بدونین

    خب اول از همه یک لیبل داخل فرم قرار بدین و اسمش رو بذارین LTime و یک لیبل دیگه هم قرار بدین و اسمش رو بذارین LDate. یک دکمه هم اضافه کنید و اسمش رو بذارین BStop
    حالا داخل کدهای فرم کدهای زیر رو قرار بدین: (روی اسم فرم در بخش project راست کلیک کنید و گزینه view code رو کلیک کنید)

    کد:
    Private Sub UserForm_Activate()
    Application.Run "StartTimer"
    End Sub
    
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    StopTimer
    End Sub
    
    Private Sub BStop_Click()
    Application.Run "StopTimer"
    Unload Me
    End Sub
    خب در مرحله بعد یک ماژول درست کنید و کدهای زیر رو داخلش قرار بدین: (از منوی insert گزینه module رو کلیک کنید)

    کد:
    Option Explicit
    Dim T
    
    
    Sub StopTimer()
    On Error Resume Next
    Application.OnTime T, Procedure:="Update", Schedule:=False
    End Sub
    
    
    Sub StartTimer()
    T = Now + TimeValue("00:00:01")
    Application.OnTime T, "Update"
    End Sub
    
    
    Sub Update()
    UserForm1.LTime.Caption = Format(Now, "hh:mm:ss")
    UserForm1.LDate.Caption = Format(Date, "yyyy/mm/dd")
    Call StartTimer
    End Sub

    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  

  3. #2


    آخرین بازدید
    2023/04/02
    تاریخ عضویت
    July 2018
    نوشته ها
    14
    امتیاز
    11
    سپاس
    0
    سپاس شده
    1 در 1 پست
    سطح اکسل
    20.00 %

    Heart

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    سلام دوستان

    تو این آموزش میخوام نحوه قرار دادن ساعت رو در یک فرم بهتون آموزش بدم
    این نکته رو در نظر داشته باشید که روش های مشابه زیادی وجود داره ولی سعی کردم ساده ترین و کارا ترین روش رو خدمتتون ارائه کنم.
    همچنین به این موضوع توجه داشته باشید که ما فقط پایه ای ترین حالت ممکن رو در نظر گرفتیم. خیلی کدها و کارها رو میشه بهش اضافه و یا ازش کم کرد.

    پیش نیاز این آموزش: شما نیاز دارید یکسری مقدمات در مورد فرم و ماژول رو بدونین

    خب اول از همه یک لیبل داخل فرم قرار بدین و اسمش رو بذارین LTime و یک لیبل دیگه هم قرار بدین و اسمش رو بذارین LDate. یک دکمه هم اضافه کنید و اسمش رو بذارین BStop
    حالا داخل کدهای فرم کدهای زیر رو قرار بدین: (روی اسم فرم در بخش project راست کلیک کنید و گزینه view code رو کلیک کنید)

    کد:
    Private Sub UserForm_Activate()
    Application.Run "StartTimer"
    End Sub
    
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    StopTimer
    End Sub
    
    Private Sub BStop_Click()
    Application.Run "StopTimer"
    Unload Me
    End Sub
    خب در مرحله بعد یک ماژول درست کنید و کدهای زیر رو داخلش قرار بدین: (از منوی insert گزینه module رو کلیک کنید)

    کد:
    Option Explicit
    Dim T
    
    
    Sub StopTimer()
    On Error Resume Next
    Application.OnTime T, Procedure:="Update", Schedule:=False
    End Sub
    
    
    Sub StartTimer()
    T = Now + TimeValue("00:00:01")
    Application.OnTime T, "Update"
    End Sub
    
    
    Sub Update()
    UserForm1.LTime.Caption = Format(Now, "hh:mm:ss")
    UserForm1.LDate.Caption = Format(Date, "yyyy/mm/dd")
    Call StartTimer
    End Sub

    کاش در قالب فایل ارسال می کردین که همه بتونن ازش استفاده کنن. مثل من

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    ♥شیراز♥
    نوشته ها
    2,062
    امتیاز
    6890
    سپاس
    18,190
    سپاس شده
    6,129 در 1,920 پست
    سطح اکسل
    72.00 %

    حسام بحرانی به  ICQ ارسال پیام حسام بحرانی به Yahoo ارسال پیام

    Post فایل نمونه

    با اجازه امیرجان
    یک فایل هم بذاریم بد نیست.
    فايل هاي پيوست شده فايل هاي پيوست شده
    !With God all things are possible




  6. سپاس ها (2)


  7. #4


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    ♥شیراز♥
    نوشته ها
    2,062
    امتیاز
    6890
    سپاس
    18,190
    سپاس شده
    6,129 در 1,920 پست
    سطح اکسل
    72.00 %

    حسام بحرانی به  ICQ ارسال پیام حسام بحرانی به Yahoo ارسال پیام

    Post تاریخ شمسی در یوزرفرم

    برای تقویم شمسی نیاز به ماژول های شمسی ساز دارید که در فایل پیوست وجود داره.

    اگر اونها رو داشته باشید کافیه کد آقای قاسمیان رو بصورت زیر تغییر بدید:
    کد:
    Sub Update()
    UserForm1.LTime.Caption = Format(Now, "hh:mm:ss")
    UserForm1.LDate.Caption = Format(J_TODAY, "yy/mm/dd")
    Call StartTimer
    End Sub
    یعنی بجای
    Date از
    J_TODAY استفاده کنید.

    موفق باشید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    !With God all things are possible




  8. سپاس ها (3)


  9. #5


    آخرین بازدید
    12 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط vahid3822 نمایش پست ها
    سلام خدمت اساتید محترم و همه دوستان
    درصورت داشتنماژول های شمسی ساز تاریخ بصورت دو رقمی یعنی 98/04/07 نمایش داده میشه که میشود بصورت زیر آنرا اصلاح کرد (یعنی 1398/04/07)


    sub update()
    userform1.ltime.caption = format(now, "hh:mm:ss")
    userform1.ldate.caption = format(j_today, "13yy/mm/dd")
    call starttimer
    end sub
    اگر برای آرگومان اول تابع j_today عدد ۱ را وارد کنید سال را چهار رقمی خواهد نوشت. نیازی به نوشتن دستی نیست


  10. #6


    آخرین بازدید
    12 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط vahid3822 نمایش پست ها
    استاد ببخشید یه سوال جانبی
    "چطوری کدها را مثل همین مثال داخل مستطیل میفرستید راهنمایی لطفا البته ببخشید من تازه واردم"
    https://forum.exceliran.com/showthre...ll=1#post70580

  11. سپاس ها (2)


  12. #7


    آخرین بازدید
    12 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    دوست عزیز لطفا برای هر سوال خودتون یک تاپیک مستقل در تالار مرتبط ایجاد بفرمایید

  13. سپاس ها (2)


  14. #8


    آخرین بازدید
    2023/04/02
    تاریخ عضویت
    July 2018
    نوشته ها
    14
    امتیاز
    11
    سپاس
    0
    سپاس شده
    1 در 1 پست
    سطح اکسل
    20.00 %

    لطفا در مورد نحوه کارکرد کد ها یه کم توضیح بفرمایید

  15. #9


    آخرین بازدید
    12 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط 935007410 نمایش پست ها
    لطفا در مورد نحوه کارکرد کد ها یه کم توضیح بفرمایید
    سلام دوست عزیز
    کلیات کار به این صورته که وقتی یوزرفرم فعال میشه (Private Sub UserForm_Activate) ماژول StartTimer فعال میشه که کارش اینه که هر ثانیه عملیات ماژول Update رو انجام بده. عملیات این ماژول هم به این صورت هست که لحظه حال رو بصورت تاریخ و ساعت در LTime و LDate بهمون نشون میده و دوباره ماژول StartTimer رو فراخوانی میکنه و این چرخه همینطور ادامه پیدا میکنه

  16. سپاس ها (2)


  17. #10


    آخرین بازدید
    12 ساعت پیش
    تاریخ عضویت
    March 2017
    محل سکونت
    قزوین
    نوشته ها
    556
    امتیاز
    520
    سپاس
    182
    سپاس شده
    451 در 217 پست
    سطح اکسل
    41.00 %

    سلام آقا امیر
    برای نمایش ایام هفته در این فرم چیکار باید کرد
    من از کد زیر استفاده کردم فقط عدد نمایش میده مثلا بجای پنجشنبه ۵ مینویسه
    کد HTML:
    UserForm1.WeekDay.Caption = Format(J_WEEKDAY (J_TODAY(1)))
    ویرایش توسط میثم مقدم نیا : 2019/10/17 در ساعت 20:15

    در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست


صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پرسش تبدیل ساعت به عدد
    توسط Pardis1431 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2017/08/20, 16:42
  2. [حل شده] محاسبه مجموع ساعت (بیش از 24 ساعت)
    توسط rm58 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2017/02/14, 17:46
  3. محاسبه ساعت ورود خروج
    توسط mostafa_s در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 7
    آخرين نوشته: 2015/07/20, 12:27
  4. شناوری در محاسبه ساعت کاری
    توسط soheyla.gh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2015/05/13, 13:32
  5. تقسیم ساعت بر ساعت
    توسط hamidnnn در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/06/05, 14:24

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

فرم تاریخ در اکسل

درج تاریخ روی یوزر فرم اکسل

نمایش تاریخ در یوزر فرم اکسل

کد نمایش تاریخ در vba

ساخت یوزرفرم تاریخ و ساعت

تعریف ساعت در فرم userform

نمایش تاریخ و زمان در فرم ماکرو اکسل

نمایش ساعت و تاریخ در ویژوال بیسیک

نمایش ساعت 24 ساعت در ویژوال بیسیک

فعال کردن ساعت سیستم روی یوزر فرم اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است