-
مقدار فعلی تاریخ و ساعت سیستم(Now)
دوشنبه 10 مرداد‌ماه سال 1390 16:55
با استفاده از تابع Now این تابع میتواند در هر لحظه تاریخ و ساعت جاری سیستم را در اختیار شما قرار دهد . مقدار بازگشتی این تابع از نوع تاریخ است و فاقد آرگومان میباشد. ابتدا در فرم یکCommand و یک Label قرار دهید و سپس برای نمایش تاریخ و ساعت جاری سیستم در ماژول کد Command کد زیر را بنویسید: Private Sub Command1_Click()...
-
کد نمایش تاریخ(روز/ماه/سال)
دوشنبه 10 مرداد‌ماه سال 1390 16:39
با استفاده از دستورهای Day, Month, Year با استفاده از این دستورها میتوان نحوه نمایش تاریخ را مشخص کرد. به عنوان مثال: در تاریخ شمسی از سمت راست روز/ماه/سال 1390/05/09 و در تاریخ میلادی از سمت راست سال/روز/ماه 2011/2/8 برای نمایش تاریخ شمسی کد را به صورت زیر بنویسید: Private Sub Command1_Click() w = Year(Date) &...
-
نمایش تاریخ (Date)
دوشنبه 10 مرداد‌ماه سال 1390 15:57
با استفاده از تابع Date این تابع، تاریخ سیستم را در اختیار شما قرار میدهد و فاقد هرگونه آرگومان است. در فرم خود یک Command و یک Label قرار دهید، و در ماژول کد Command برنامه را به صورت زیر بنویسید: Private Sub Command1_Click() Label1.Caption = Date End Sub و یا با استفاده از دستور Print کد را به صورت زیر تغییر دهید:...
-
کد نمایش سال(Year)
دوشنبه 10 مرداد‌ماه سال 1390 13:34
با استفاده از تابع Year این تابع یک عبارت رشته ای، تاریخی، عددی یا ترکیبی(Variant) را که حاوی داده ای از نوع تاریخ است،دریافت کرده و مقدار سال را به صورت یک عدد صحیح بازگشت میدهد. در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید: Private Sub Command1_Click() e = Text1.Text r...
-
کدنمایش ماه(Month)
دوشنبه 10 مرداد‌ماه سال 1390 13:25
با استفاده از تابع Month تابع Month با دریافت یک مقدار از نوع تاریخ، عددی بین 0تا12 را که بیانگرشماره ماه تاریخ مربوط است، باز میگرداند. در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید: Private Sub Command1_Click() e = Text1.Text r = Month(e) Label1.Caption = (r) End Sub و...
-
کد نمایش روز(Day)
دوشنبه 10 مرداد‌ماه سال 1390 13:18
با استفاده از تابع Day تابع Day یک مقدار از نوع تاریخ را دریافت کرده و یک عدد بین 1تا31 به عنوان شماره روز باز میگرداند. در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید: Private Sub Command1_Click() e = Text1.Text r = Day(e) Label1.Caption = (r) End Sub و یا با استفاده از...
-
کد نمایش ساعت(Hour)
دوشنبه 10 مرداد‌ماه سال 1390 04:26
با استفاده از تابع Hour این تابع با دریافت مقدار رشته ای یا تاریخی شامل زمان،مقدار ساعت را به صورت یک عدد صحیح بین 0 تا 23 باز میگرداند . در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید: Private Sub Command1_Click() e = Text1.Text Label1.Caption = Hour(e) End Sub و یا با...
-
کد نمایش دقیقه(Minute)
دوشنبه 10 مرداد‌ماه سال 1390 03:54
با استفاده از تابع Minute این تابع با دریافت مقدار رشته ای یا تاریخی شامل زمان،مقدار دقیقه را به صورت یک عدد صحیح بین 0 تا 59 باز میگرداند . در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید: Private Sub Command1_Click() e = Text1.Text Label1.Caption = Minute(e) End Sub و یا...
-
کد نمایش ثانیه(Second)
دوشنبه 10 مرداد‌ماه سال 1390 03:35
با استفاده از تابع Second این تابع با دریافت مقدار رشته ای یا تاریخی شامل زمان،مقدار ثانیه را به صورت یک عدد صحیح بین 0 تا 59 باز میگرداند . در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید. Private Sub Command1_Click() e = Text1.Text Label1.Caption = Second(e) End Sub یا با...
-
کد نمایش ثانیه های گذشته از نیمه شب
دوشنبه 10 مرداد‌ماه سال 1390 03:08
با استفاده از تابع Timer به وسیله این تابع میتوان تعداد ثانیه هایی را که از نیمه شب میگذرد را محاسبه کرد.این تابع هیچ آرگومانی ندارد و نوع داده بازگشتی آن نیز از نوع Single(اعشاری) میباشد. روی Form یک Label و یک Command قرار دهید و کد را داخل ماژول کد Command به این صورت بنویسید: () Private Sub Command1_Click...
-
کد نمایش تاریخ
سه‌شنبه 21 تیر‌ماه سال 1390 02:51
برای نمایش کد بر روی ادامه مطلب کلیک کنید کد برای نمایش روز/ماه/سال (تاریخ): روز=Day ماه=Month سال=Year Private Sub Command1_Click() w = Day(Date) & "/" & Month(Date) & "/" & Year(Date) Label1.Caption = w End Sub کد برای نمایش روز(تاریخ): Private Sub Command1_Click() e = Text1.Text...