کمک:درج مقادیر سه کومبو باکس روز و ماه و سال در یک فیلد از نوع datetime

[misagh1370]

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

[sonofsun]

سلام
به جای سه تا کمبوباکس می تونی از date and time picker با تاریخ شمسی اسفاده کنی به لینک زیر سر بزن کامپونت فارسی اون هست.
http://barnamenevis.org/showthread.php?119525-کومپوننت-جدید-DateTimePicker-فارسی&highlight=ShDateTimePicker
آگه حتما باید کمبوباکس باشه فک کنم کدش اینجوری میشه

Dim gdate As New System.Globalization.PersianCalendar
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For a = gdate.GetYear(Date.Now) To 1300 Step -1
year.Items.Add(a)
Next
For b = 1 To 12
month.Items.Add(b)
Next
For c = 1 To 31
day.Items.Add(c)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim save = year.Text + "/" + month.Text + "/" + day.Text
End Sub

سه تا کمبو باکس با نام های year و month و day و یک button ایجاد کن.
متغیر save رو می تونی تو دیتا بیس ذخیره کنی.

[misagh1370]

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

[misagh1370]

مهندسان گرامی لطفاکمک کنییییییییییییییییییییییی ییییییییید:گریه: