تابعی مثل تابع تاریخ

[alirezash]

سلام دوستان عزیز

Public Function ark(t1 As String, t2 As String) As String

از طریق کد بالا مقدار t1 , t2 رو از ما میگیره و ark رو بر می گردونه

حالا می خوام ark من مثل تابع تاریخ دارای زیر مجموعه های دیگری باشه مثلاً
datetime.year یا datetime.hour بتونم برای ark چنین چزیزی بسازم
ممنونم که کمک کنید

[xxxxx_xxxxx]

سلام،
برای این کار باید یک کلاس بنویسید.

ولی اگر اونقدر کوچیک هست که ارزش کلاس شدن رو نداره، چند پارامتر دیگه به تابعتون اضافه کنید (به صورت byref)، که نقش همون Property های کلاس رو داشته باشند.
اون وقت توی تابع باید این پارامترها رو مقدار دهی کنید. (همون year و hour در مثال خودتون)

موفق باشید/

[alirezash]

میشه با کد نشون بدید

[xxxxx_xxxxx]

چیو ؟
کلاس یا اون روش دوم؟

[alirezash]

هر کدومش که بهتره
ممنون می شم

[xxxxx_xxxxx]

یک مثال خیلی خیلی ساده و مبتدیانه.
یک کلاس ایجاد کنید و اسمش رو بزارید cMyTime
داخلش اینها رو بنویسید:

Public Property Get MySecond() As Integer
MySecond = Second(Time)
End Property

Public Property Get MyMinute() As Integer
MyMinute = Minute(Time)
End Property

Public Property Get MyHour() As Integer
MyHour = Hour(Time)
End Property

حالا توی فرم اینها رو بنویسید:

Private Sub Form_Load()
Dim tTime As New cMyTime
MsgBox tTime.MySecond
End Sub

اگر میخواید از طریق کلاس این کارو انجام بدید باید با برخی مفاهیم رو یاد بگیرید، انواع Property ها (Let و Get و Set)، متود ها و ...

راه اصولی اون چیزی که شما میخواید همین طراحی کلاس هست، اما این شئ شما خیلی کوچیک و کم کاربرد هست، همون تابع راحت تر هست.

موفق باشید/

[alirezash]

واقعاً ممنونم
خیلی کمک کردین
اگه کمکی درباره ارسال sms از gsm یا وب یا url داشتین در خدمت هستم