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

[tolid123456789]

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

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

[mohammads_1347]

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

[gilsoft]

سلام
لطفا میتوانید بفرمایید این تاریخ را 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]

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

[pbm_soy]

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

[pbm_soy]

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

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

        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