]چگونکی تابع به یک دکمه یا فیلد فرم منسوب میشود

[lplnhg]

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

[lplnhg]

کسی پاسخ اشکال ایراد قبلی تاپیک 32862را نیز نداده راهنمائی کنید

[lplnhg]

کسی پاسخ اشکال ایراد قبلی تاپیک 33080را نیز نداده راهنمائی کنید

[Sheerkoshan]

دوست عزیز
ماژول یا قطعه کدی که شما میخواهید استفاده کنید کدام است ؟ هرکدام از ماژول ها یا dllها function مربوط به خود را دارند.

[lplnhg]

سلام دوست عزیز متاسنفانه من تاپیک مورد نظر را ندارم ولی مازولی که استفاده نمودم بصورت زیر است و در فیلد تاریخ
عمل میکند ولی من میخواهم استفاده انرا در فرم ها وبرنامه دیگر یاد بگیرم اگر میتوانید کمک کنید
Option Compare Database

Function ConvertDate() As String
Dim temp As Date
Dim kabise As Integer
'******** Get date & Time From Server *********
Y = Year(Date)
d = Day(Date)
m = Month(Date)


'************** Change To Shamsi Date**************
'******************* Leap year
If Y Mod 4 = 0 Then
If m > 2 Then
temp = DateSerial(Y, m, d)
temp = temp + 1
Y = Year(temp)
m = Month(temp)
d = Day(temp)
End If
End If
'*******************
If m < 3 Or (m = 3 And d < 21) Then
Y = Y - 622
Else
Y = Y - 621
End If

If Y Mod 4 = 3 Then ' kabise
kabise = 1
Else
kabise = 0
End If

Select Case m
Case 1
If d < (21 - kabise) Then
m = 10: d = d + 10 + kabise
Else
m = 11: d = d - 20 + kabise
End If
Case 2
If d < (20 - kabise) Then
m = 11: d = d + 11 + kabise
Else
m = 12: d = d - 19 + kabise
End If
Case 3
If d < (21 - kabise) Then
m = 12: d = d + 9 + kabise
Else
m = 1: d = d - 20
End If
Case 4
If d < (21 - kabise) Then
m = 1: d = d + 11 + kabise
Else
m = 2: d = d - 20 + kabise
End If
Case 5, 6
If d < (22 - kabise) Then
m = m - 3: d = d + 10 + kabise
Else
m = m - 2: d = d - 21 + kabise
End If
Case 7, 8, 9
If d < (23 - kabise) Then
m = m - 3: d = d + 9 + kabise
Else
m = m - 2: d = d - 22 + kabise
End If
Case 10
If d < (23 - kabise) Then
m = 7: d = d + 8 + kabise
Else
m = 8: d = d - 22 + kabise
End If
Case 11, 12
If d < (22 - kabise) Then
m = m - 3: d = d + 9 + kabise
Else
m = m - 2: d = d - 21 + kabise
End If
End Select
'************************************************* **
Dim ys As String: ys = Y
Dim ms As String: ms = m
If Len(ms) = 1 Then ms = "0" + ms
Dim DS As String: DS = d
If Len(DS) = 1 Then DS = "0" + DS
ConvertDate = ys & "/" & ms & "/" & DS
End Function