كدهاي كاربردي VB.net

سلام
تابع بدست آوردن اختلاف بین دو تاریخ شمسی

Public Function date_diff_persian(ByVal d1 As String, ByVal d2 As String) As Integer

        Dim y, m, d, r As String

        Dim g As New Globalization.PersianCalendar

        Dim in_date1, in_date2 As Date

        If d1.Length <> 10 Or d2.Length <> 10 Then

            MsgBox("فرمت تاریخ صحیح نیست", MsgBoxStyle.Information, "")

            Return -1000000

        End If

        Try

            y = Microsoft.VisualBasic.Left(d1, 4) 'جدا سازی 4 رقم عدد سال 

            m = Mid(d1, 6, 2) 'جدا سازی دو رقم عدد ماه 

            d = Microsoft.VisualBasic.Right(d1, 2) 'جدا سازی 2 رقم عدد روز 

            '------------------------------------------------- 

            in_date1 = g.ToDateTime(Val(y), Val(m), Val(d), 0, 0, 0, 0)

            '********************** 

            y = Microsoft.VisualBasic.Left(d2, 4) 'جدا سازی 4 رقم عدد سال 

            m = Mid(d2, 6, 2) 'جدا سازی دو رقم عدد ماه 

            d = Microsoft.VisualBasic.Right(d2, 2) 'جدا سازی 2 رقم عدد روز 

            '------------------------------------------------- 

            in_date2 = g.ToDateTime(Val(y), Val(m), Val(d), 0, 0, 0, 0)

            '*********************** 

            r = DateDiff(DateInterval.Day, in_date1, in_date2)

        Catch ex As Exception

            MsgBox("بروز خطا هنگام محاسبه تاریخ _ " + ex.ToString)

            r = -1000000

        End Try

        Return r

    End Function

سلام
لطفا میتوانید بفرمایید این تاریخ را 1394/3/3 چطوری می توانیم بصورت ذیل بنویسیم
1394/03/03

نقل قول:

---

نوشته شده توسط mohammads_1347

سلام
لطفا میتوانید بفرمایید این تاریخ را 1394/3/3 چطوری می توانیم بصورت ذیل بنویسیم
1394/03/03

---

سلام دوست عزیز

        Dim YY As UShort

        Dim MM, DD As Byte

        Dim pDate As String





        YY = 1394

        MM = 3

        DD = 5

        pDate = String.Format("{0}/{1:00}/{2:00}", YY, MM, DD)

موفق باشید .....

سلام من یه کد دارم ک برای هر کاراکتر از کلمه یک خط تیره میزاره مثه "حمید حسنی" میشه "---------"!!
ولی مشکل اینجاست ک میخام بعد از اسپیس در کلمه دیگه دش نذاره مثه این"---- ----"
اما نمیتونم میتونین منو راهنمایی کنین؟

کدتان را اینجا میگذاشتید تا دوستان بهتر بتونند راهنمائی کنند

نقل قول:

---

نوشته شده توسط hadi-110

سلام من یه کد دارم ک برای هر کاراکتر از کلمه یک خط تیره میزاره مثه "حمید حسنی" میشه "---------"!!
ولی مشکل اینجاست ک میخام بعد از اسپیس در کلمه دیگه دش نذاره مثه این"---- ----"
اما نمیتونم میتونین منو راهنمایی کنین؟

---

کد موردنظرات میتواند به این شکل باشد
ابتدا کلمات داخل تکست باکس را جدا کردم بعد به اندازه طول هر کلمه دش اضافه کردم به تکست باکس دوم و هر کلمه که تمام شد یک فضای خالی به تکست باکس اضافه کردم

        Dim myWords() As String = TextBox1.Text.Split(" ")

        For i = 0 To myWords.Length - 1

            For j = 0 To myWords(i).Length - 1

                TextBox2.Text = TextBox2.Text + "-"

            Next

            TextBox2.Text = TextBox2.Text + " "

        Next