ماژولهای اکسس

[lyrart]

سلام
من می خوام بااستفاده ازماژول های اکسس فرمی برای تغییرات ونمایش تاریخ داشته باشم
کسی میتونه کمکم کنه................!؟
ممنون میشم

[mohammadgij]

Function ConvertDate() As String
Dim temp As Date
Dim kabise As Integer
'******** Get date & Time From Server *********
Y = Year(Date)
d = Day(Date)
m = Mount(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