کد PHP:
Function J_ADDMONTH(Jdate As String, Number As Integer, Optional Mode As Integer) As String
Dim Slash1, Slash2 As Integer
Dim jRoz, jMah, jSal As String
Dim RozMah As Integer
Dim Kbs As Boolean
On Error Resume Next
Slash1 = InStr(1, Jdate, "/")
Slash2 = InStr(Slash1 + 1, Jdate, "/")
If Slash1 = 0 Or Slash2 = 0 Then
J_ADDMONTH = 1 / 0
Exit Function
End If
jRoz = Mid(Jdate, Slash2 + 1)
jMah = Mid(Jdate, Slash1 + 1, Slash2 - Slash1 - 1)
jSal = Mid(Jdate, 1, Slash1 - 1)
If Len(jSal) <= 2 Then jSal = jSal + 1300
If Number >= 0 Then
For i = 1 To Number
jMah = jMah + 1
If jMah > 12 Then
jSal = jSal + 1
jMah = 1
End If
Next i
ElseIf Number < 0 Then
For i = 1 To -(Number)
jMah = jMah - 1
If jMah < 1 Then
jSal = jSal - 1
jMah = 12
End If
Next i
End If
Select Case Val(jSal) Mod 33
Case 1, 5, 9, 13, 17, 22, 26, 30
Kbs = True
Case Else
Kbs = False
End Select
Select Case jMah
Case 7, 8, 9, 10, 11
If jRoz = "31" Then jRoz = "30"
Case 12
If Kbs = True Then
If jRoz = "31" Then jRoz = "30"
Else
If jRoz = "31" Or jRoz = "30" Then jRoz = "29"
End If
End Select
If Len(jRoz) < 2 Then jRoz = "0" & jRoz
If Len(jMah) < 2 Then jMah = "0" & jMah
If Len(jSal) < 2 Then jMah = "0" & jSal
If Mode = 1 Then
J_ADDMONTH = jSal & "/" & jMah & "/" & jRoz
ElseIf Mode = 0 Then
J_ADDMONTH = Right(jSal, 2) & "/" & jMah & "/" & jRoz
End If
End Function
علاقه مندی ها (Bookmarks)