gilsoft
دوشنبه 12 دی 1390, 13:32 عصر
سلام
این تابع نام سال یک تاریخ شمسی را بر می گرداند :
Public Function ShYearName(ByVal ShDate As Integer) As String
Dim dYn As String() = New String(11) {"مار", "اسب", "گوسفند", "میمون", "خروس", "سگ", "خوک", "موش", "گاو", "ببر", "خرگوش", "نهنگ"}
ShYearName = dYn(ShDate Mod 12)
End Function 'ShYearName() As String
روش فراخوانی :
Label1.Text = ShYearName(1390)
این تابع نام سال یک تاریخ شمسی را بر می گرداند :
Public Function ShYearName(ByVal ShDate As Integer) As String
Dim dYn As String() = New String(11) {"مار", "اسب", "گوسفند", "میمون", "خروس", "سگ", "خوک", "موش", "گاو", "ببر", "خرگوش", "نهنگ"}
ShYearName = dYn(ShDate Mod 12)
End Function 'ShYearName() As String
روش فراخوانی :
Label1.Text = ShYearName(1390)