سورس یه ماژول و یه کنترل که تمام مشکلات تاریخ توش حل شده
با سلام خدمت دوستان
از راست به چپ عدد روز ماه سال می خواد
این روش تاریخ به صورت String ذخیره میشه
خیلی آسونه
1.ماژول تو برنامه Add کنید(Add Existing Item)
2.کنترل هم تو برنامه Add کنید و یه بار اجراش کنید تا تو نوار ابزار بیاد (Add Existing Item)
3.کنترل تو فرمی که میخواهید از تاریخ استفاده کنید قرار بدید.
UCtrl_Date1.Controls.Item(3).Text = ShamsiSplit(shamsi(DateFormat.ShortDate), ShSplit.Year)
UCtrl_Date1.Controls.Item(2).Text = ShamsiSplit(shamsi(DateFormat.ShortDate), ShSplit.Month)
UCtrl_Date1.Controls.Item(1).Text = ShamsiSplit(shamsi(DateFormat.ShortDate), ShSplit.Day)
dtemp = (UCtrl_Date1.Controls.Item(3).Text + "/" + UCtrl_Date1.Controls.Item(2).Text + "/" + UCtrl_Date1.Controls.Item(1).Text)
این کد باعث نمایش تاریخ شمسی تو کنترل تون میشه که تو فرم لود به کار میره
ادامش هم میگم خدمتون
فعلا..
پاسخ با نقل قول