PDA

View Full Version : کم کردن تاریخ از هم



tc1000
شنبه 25 فروردین 1386, 02:38 صبح
با سلام
من دو تا رشته دارم که هر کدوم به طور مثال این صورت هستند 12/12/85 و 28/07/86 حالا میخوام تعداد روز بین این دو تاریخ رو بدست بیارم

هر روشی که اسون تره لطفا کدشو بنویسید ممنون میشم

آیا این ها از حالت رشته به تاریخ تبدیل بشن و بعد از از هم کم بشن یا ....

Alireza_Salehi
شنبه 25 فروردین 1386, 09:21 صبح
اگر از تاریخ استفاده کنید بهتره چون باید سال کبیسه و ... چیزای دیگه محاسبه بشن!

کامپوننت تاریخ هجری شمسی زیاد تو سایت معرفی شده ، تقریبا اکثرشون هم این تفریق رو انجام میدن .
یه سرچی تو تالار بکنید.

babi_wd
شنبه 25 فروردین 1386, 21:23 عصر
وقتی خود دات نت امکانات تاریخ فارسی داره چه لزومی داره از کامپوننت های جانبی استفاده کنیم؟

Alireza_Salehi
شنبه 25 فروردین 1386, 23:54 عصر
وقتی خود دات نت امکانات تاریخ فارسی داره چه لزومی داره از کامپوننت های جانبی استفاده کنیم؟

چون ایشون نگفتن 2003 کار می کنند یا 2005!

tc1000
یک شنبه 26 فروردین 1386, 02:29 صبح
با سلام و تشکر از شما
من از VS 2005 استفاده م یکنم اگر امکان داره یک نمونه کد برای من بزارید تا یاد بگیریم ایم مهم رو
ممنون از شما استاتید.

rtech
یک شنبه 26 فروردین 1386, 09:53 صبح
برای تبدیل تاریخ شمسی به میلادی میتوانید به صورت زیر عمل کنید :




Dim prdate() As String = Split(enterdate.Text, "/")
Dim Mdate As New System.Globalization.PersianCalendar
Dim Miladi as string
miladi=Mdate.ToDateTime(Int(prdate(0)), Int(prdate(1)), Int(prdate(2)), 1, 1, 1, 1, System.Globalization.GregorianCalendar.ADEra)


و برای تبدیل تاریخ میلادی به شمسی هم میتوانید از کد زیر استفاده کنید :



Dim s As String
Dim jld As Date
jld = Now
Dim prd As New Globalization.PersianCalendar
s = prd.GetYear(jld).ToString & "/" & prd.GetMonth(jld).ToString & "/" & prd.GetDayOfMonth(jld).ToString


موفق باشید

tc1000
یک شنبه 26 فروردین 1386, 17:11 عصر
چطور میشه 2 تا تاریخ رو از هم کم کرد ؟

rtech
یک شنبه 26 فروردین 1386, 17:39 عصر
میلادی یا شمسی ؟

tc1000
یک شنبه 26 فروردین 1386, 18:58 عصر
با سلام خدمت شما دوست عزیز
در صوتر امکان هر دو مدل ر اگر بگید ممنون میشم

raravaice
دوشنبه 03 اردیبهشت 1386, 09:58 صبح
Dim a, b As Date
Dim c As TimeSpan
c = a.Subtract(b)
'c=a-b