سئوال بخصوص التاريخ - نسخة قابلة للطباعة

PHP كود :

Public Sub ADD_(ByVal NAME_AR_PERIOD As String,
                   ByVal NAME_EN_PERIOD As String,
                   ByVal NOTE_ As String,
                   ByVal START_DATE As DateTime,
                    ByVal END_DAT As DateTime,
                    ByVal COD_E As Integer)
        Dim CON As New CLS_CON

        CON.EXECUTE_TXT("INSERT CLOSE_PERIOD (NAME_AR_PERIOD,NAME_EN_PERIOD,NOT_E,START_DAT,END_DAT,COD_E)VALUES('" & NAME_AR_PERIOD & "','" & NAME_EN_PERIOD & "','" & NOTE_ & "','" & START_DATE & "','" & END_DAT & "','" & COD_E & "')")
   
 End Sub

 Private Sub SAVE_Click(sender As System.Object, e As System.EventArgs) Handles SAVE.Click
       
        CLS_CLOSE_PERIOD_.ADD_(TXT_NAME.Text, TXT_NAME_ENG.Text, TXT_NOTE.Text, DP1.Value.ToShortDateString, DP2.Value.ToShortDateString(), TXT_CODE.Text)
        MessageBox.Show("   تمت عملية  الحفظ بنجاح ", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
        
    End Sub

PHP كود :

 Public Sub addd_(ByVal code_ As Integer,
                        ByVal name_ar As String,
                        ByVal name_en As String,
                        ByVal note_ As String,
                        ByVal start_date As DateTime,
                        ByVal end_date As DateTime,
                        ByVal p1_non As Integer)

        Dim con As New CLS_CON
        Dim prm(6) As SqlParameter

        prm(0) = New SqlParameter("@COD_E", SqlDbType.Int)
        prm(0).Value = code_
        prm(1) = New SqlParameter("@NAME_AR_PERIOD", SqlDbType.NVarChar, 50)
        prm(1).Value = name_ar

        prm(2) = New SqlParameter("@NAME_EN_PERIOD", SqlDbType.NVarChar, 50)
        prm(2).Value = name_en

        prm(3) = New SqlParameter("@NOT_E", SqlDbType.NVarChar, 500)
        prm(3).Value = note_

        prm(4) = New SqlParameter("@START_DAT", SqlDbType.DateTime)
        prm(4).Value = start_date

        prm(5) = New SqlParameter("@END_DAT", SqlDbType.DateTime)
        prm(5).Value = end_date

        prm(6) = New SqlParameter("@P1_NON", SqlDbType.Bit)
        prm(6).Value = p1_non
        con.EXECUTE_STORE("CLOSEE_PERIOD", prm)
    End Sub


            CLS_CLOSE_PERIOD_.addd_(TXT_CODE.Text, TXT_NAME.Text, TXT_NAME_ENG.Text, TXT_NOTE.Text, DP1.Value.ToShortDateString, DP2.Value.ToShortDateString(), Val(NO_DATE.Checked))