تبدیل تاریخ [بایگانی]

salam20

دوشنبه 05 آذر 1386, 18:58 عصر

سلام من تازه وارد به دنیای برنامه نویسی شدم و در حال انجام یک پروژه با vb6 هستم آیا کسی میتواند کد تبدیل تاریخ میلادی به شمسی را برای من اعلام نماید

bachebahal_1363

دوشنبه 05 آذر 1386, 19:08 عصر

می تونی از کد زیر استفاده کنی

Dim MyCalender As New Globalization.PersianCalendar
Label2.Text = MyCalender.GetYear(Date.Now) & "/" & MyCalender.GetMonth(Date.Now) & " / " & MyCalender.GetDayOfMonth(Date.Now)