نمایش نتایج 1 تا 2 از 2

نام تاپیک: ایجاد یک تقویم با تاریخ شمسی و میلادی و قمری

  1. #1

    ایجاد یک تقویم با تاریخ شمسی و میلادی و قمری

    سلام به هم استادان عزیز.
    ممنون زحمات شما می شوم اگر بفرمایید که آیا کامپوننتی هست که تاریخ میلادی و شمسی و قمری امروز را نشان بدهد.
    به این حالت

    یکشنبه
    ۲۸ خرداد ۱۳۹۶
    ٢٤ رمضان ١٤٣٨
    18 June 2017


    تشکر ویژه از شما عزیزان.

  2. #2

    نقل قول: ایجاد یک تقویم با تاریخ شمسی و میلادی و قمری

    سلام
    میلادی رو که سیستم خودش میده ...
    اما برای تاریخ خودمون من از این کلاس استفاده میکنم :
    کد HTML:
    Function Datelong() As String
            Dim TimeString As DateTime = DateAndTime.Now()
            Dim Intdiffrenttime As String = "+3.5"
            If Val(Datesal("mah")) < 7 Then
                Intdiffrenttime = "+4.5"
            End If
            If Val(Datesal("mah")) = 6 And Val(Datesal("roz")) = 31 Then
                Intdiffrenttime = "+3.5"
            End If
            Dim theUTCTime As DateTime
            Dim localZone As TimeZone = TimeZone.CurrentTimeZone
            theUTCTime = localZone.ToUniversalTime(TimeString)
            theUTCTime = theUTCTime.AddHours(Intdiffrenttime)
            fary = far30.GetYear(theUTCTime)
            farm = far30.GetMonth(theUTCTime)
            fard = far30.GetDayOfMonth(theUTCTime)
            fardw = far30.GetDayOfWeek(theUTCTime)
            Dim Saat As String = far30.GetHour(theUTCTime)
            Dim Daghighee As String = far30.GetMinute(theUTCTime)
            'Dim Saat As String = DateAndTime.Now.Hour.ToString
            'Dim Daghighee As String = DateAndTime.Now.Minute.ToString
            '-----
            If farm = "1" Then
                farm = "فروردین"
            End If
            If farm = "2" Then
                farm = "اردیبهشت"
            End If
            If farm = "3" Then
                farm = "خرداد"
            End If
            If farm = "4" Then
                farm = "تیر"
            End If
            If farm = "5" Then
                farm = "مرداد"
            End If
            If farm = "6" Then
                farm = "شهریور"
            End If
            If farm = "7" Then
                farm = "مهر"
            End If
            If farm = "8" Then
                farm = "آبان"
            End If
            If farm = "9" Then
                farm = "آذر"
            End If
            If farm = "10" Then
                farm = "دی"
            End If
            If farm = "11" Then
                farm = "بهمن"
            End If
            If farm = "12" Then
                farm = "اسفند"
            End If
    
            '-----
            If fardw = "6" Then
                fardw = "شنبه"
            End If
            If fardw = "0" Then
                fardw = "یکشنبه"
            End If
            If fardw = "1" Then
                fardw = "دوشنبه"
            End If
            If fardw = "2" Then
                fardw = "سه شنبه"
            End If
            If fardw = "3" Then
                fardw = "چهارشنبه"
            End If
            If fardw = "4" Then
                fardw = "پنج شنبه"
            End If
            If fardw = "5" Then
                fardw = "جمعه"
            End If
            '-----
            Return (fardw + " ، " + fard + " " + farm + " " + fary + " ، ساعت " + Saat + ":" + Daghighee)
        End Function
    تو یه کلاس بذارش و از صفحه هایی که میخوای صداش بزن

تاپیک های مشابه

  1. آموزش: تبدیل تاریخ شمسی به میلادی و بالعکس با استفاده از Extension Methods
    نوشته شده توسط clover در بخش ASP.NET Web Forms
    پاسخ: 1
    آخرین پست: سه شنبه 13 تیر 1391, 19:57 عصر
  2. تاریخ شمسی و میلادی و قمری
    نوشته شده توسط zibaaa در بخش VB.NET
    پاسخ: 4
    آخرین پست: یک شنبه 18 اردیبهشت 1390, 18:47 عصر
  3. سوال: نحوه تبدیل تاریخ شمسی به میلادی (یك تاریخ و یا یك رشته) در asp.net
    نوشته شده توسط majid_darab در بخش ASP.NET Web Forms
    پاسخ: 0
    آخرین پست: یک شنبه 07 آذر 1389, 20:08 عصر
  4. پاسخ: 1
    آخرین پست: یک شنبه 26 مهر 1388, 10:35 صبح
  5. حرفه ای: تبدیل تاریخ شمسی یا میلادی به قمری
    نوشته شده توسط vb2005 در بخش برنامه نویسی در 6 VB
    پاسخ: 8
    آخرین پست: دوشنبه 13 مهر 1388, 11:15 صبح

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •