چاپ تاريخ سيستم

[ravand]

سلام
من ميخوام سه تا lable و يه دكمه بسازم كه با كليك روي دكمه نام روز و نام ماه و تاريخ سال توي سه تا lable چاپ بشه.
ممنون ميشم راهنماييم بكنيد.
من مبتدي هستم
متشكرم.

[sr2m72]

سلام.

Private Sub Command1_Click()
a$ = Str(Date)
Label1.Caption = Mid(a$, 9, 2)
Label2.Caption = Mid(a$, 6, 2)
Label3.Caption = Mid(a$, 1, 4)
End Sub

[ravand]

خيلي ممنون از توضيحاتتون.
ميشه يه مقداري در مورد اين كدي كه نوشتيد توضيح بديد؟
مثلا در مورد اين مقاديري كه داخل تابع Mid هست.
اين مقادير از كجا امده؟
متشكرم

[sr2m72]

[FONT=Arial]
خيلي ممنون از توضيحاتتون.
ميشه يه مقداري در مورد اين كدي كه نوشتيد توضيح بديد؟
مثلا در مورد اين مقاديري كه داخل تابع Mid هست.
اين مقادير از كجا امده؟
متشكرم

تابع Mid برای جدا کردن رشته بکار میره. ما در اینجا تاریخ سیستم رو خوندیم
a$ = Str(Date)
و در متغیر a ریختیم.
بعد با تابع Mid روز،ماه و سال رو از هم جدا کردیم
پارامتر اول تابع Mid رشته ای است که می خواهیم جداسازی رو از روی اون انجام بدیم.
پارامتر دوم برای شروع است، یعنی از کاراکتر چندم شروع کنه.
پارامتر سوم که اختیاریه برای طول هستش که اگه استفاده نشه تا آخر در نظر میگیره.
امیدوارم که خوب توضیح داده باشم.

اصلاح شد

[ravand]

ببخشيد يه چيزي كه برام نامفهوم هست اعداد داخل تابع هست:

Mid(a$, 1, 4)
براي چي مثلا توي اين تابع اعداد يك و چهار هست؟
اصلا 1 و چهار اينجا يعني چه؟

[kitcat_m18]

بهتره از اين کد استفاده کني

Label1.Caption = Format(Now, "yyyy")
Label2.Caption = Format(Now, "mmmm")
Label3.Caption = Format(Now, "dddd")

موفق باشي

[ravand]

ببخشيد ميشه كد رو كاملتر بنويسيد؟
چون من مبتدي ام درست متوجه نميشم.
متشكرم

[MohammadGh2011]

ببخشيد ميشه كد رو كاملتر بنويسيد؟
چون من مبتدي ام درست متوجه نميشم.
متشكرم
سلام عليکم
کد جناب kitcat_m18 همونطور که ميخواستيد کامل هستش.
فقط کافيه در مورد تابع Format توي اين سايت و يا توي گوگل جستجو کنيد.
کد زير رو هم امتحان کنيد:
Label1.Caption = Format(Now, "d")
Label2.Caption = Format(Now, "m")
Label3.Caption = Format(Now, "yyyy")


موفق باشيد

[majid12376]

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

Label1.Caption = Year(Date)
Label2.Caption = Month(Date)
Label3.Caption = Day(Date)