[حل شده] استفاده از توابع شمسی در یوزر فرم

[mohamadali110]

میخوام بیست روز بعد از یه تاریخ خاص رو محاسبه کنه و در لیبل بزاره
فایل پیوست رو ببینید

[iranweld]

با سلام

کدهای خود را بصورت ذیل تغییر بدید

Private Sub TextBox1_Change()

If Len(TextBox1) = 10 Then

Me.Label1.Caption = J_ADDDAY(TextBox1.Text, 20, 1)

End If

End Sub 

[rasools13]

علاوه بر راه حل دوست عزیز iranweld با تغییر کد به صورت ذیل میتونید از ورود اشتباه تاریخ جلوگیری کنید
چون در صورتی که عدد روز رو 50 هم بزنید باز هم جواب رو نشون میده

Private Sub TextBox1_Change()
    If Len(TextBox1) = 10 Then
        Dim Y, M, D, X As Integer
        Dim Date1 As String
        Date1 = TextBox1.Text
        X = 0
        Y = CInt(Mid(Date1, 1, 4))
        M = CInt(Mid(Date1, 6, 2))
        D = CInt(Mid(Date1, 9, 2))
        If M > 12 Then
            X = 1
            MsgBox ("تاریخ را به درستی وارد نمایید")
        Else
            If M < 7 Then
                If D > 31 Then
                   X = 1
                    MsgBox ("تاریخ را به درستی وارد نمایید")
                End If
            Else
                If D > 30 Then
                    X = 1
                     MsgBox ("تاریخ را به درستی وارد نمایید")
                End If
            End If
        End If
        If X = 0 Then
          Me.Label1.Caption = J_ADDDAY(TextBox1.Text, 20, 1)
        Else
          Me.Label1.Caption = ""
        End If
    End If
End Sub