احمد20
شنبه 19 خرداد 1386, 14:13 عصر
با سلام به بر بچه های vb.net
من جهت استفاده از تاریخ شمسی برای برنامم از فایل shamsi.dll استفاده کردم اما بعد از درست کردن setup برنامه و اجرای آن در کامپیوتر دیگر بامشکل برخورد کردم و برنامم اجرا نشد . به این نتیجه رسیدم که حتما باید سورس کد تبدیل تاریخ میلادی به شمسی درون برنامم باید بنویسم . لذا از دوستانی که دسترسی دارند منو کمک کنند .
با تشکر احمد عباسی
خیلی ممنونمممممممممممممممممممم ممممممممممممممممممممممممم ممممم
javad2000
شنبه 19 خرداد 1386, 15:35 عصر
از اینجا میتونید سورس و راهنمای محاسبات تاریخ های شمسی، قمری و میلادی رو دانلود کنید.
http://forum.persiantools.com/showthread.php?p=1028208#post1028208
اگه مشکلی بود در خدمتم.
eyes_shut_number1
شنبه 19 خرداد 1386, 17:04 عصر
از اینجا میتونید سورس و راهنمای محاسبات تاریخ های شمسی، قمری و میلادی رو دانلود کنید.
http://forum.persiantools.com/showthread.php?p=1028208#post1028208
اگه مشکلی بود در خدمتم.
This File Was Not Found!!!!!!!!
javad2000
شنبه 19 خرداد 1386, 17:50 عصر
This File Was Not Found!!!!!!!!
سلام
یعنی چه This File Not Found؟
همین الآن تست کردم اون لینک مشکلی نداشت. وقتی به اون لینک میرید، دو تا فایل کوچک هست که یکی به پست شماره 1 ضمیمه شده و محتوی راهنمای محاسبات به علاوه کلی چیز دیگه هست، یکی دیگه هم به پست شماره 5 ضمیمه شده که سورس vb.net رو داره.
kourosh_ag
شنبه 19 خرداد 1386, 19:13 عصر
Public monthh, kabise, dayy, yearr, TrueDate As String
'Public w As Object
Public s As Int16
Public Function shamsi(Optional ByRef date1 As String = "") As String
Dim Ds, P1, Ms, i, rp, u, Mm, d, p, mon, Ym, x, Ys, Dm, D1 As Object
d = New Object() {20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21}
p = New Object() {11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10}
'w = New Object() {"یکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنج شنبه", "جمعه", "شنبه"}
mon = New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"}
If date1 = "" Then date1 = CStr(Today)
Dm = Vb.Day(CDate(date1))
Mm = Month(CDate(date1))
Ym = Year(CDate(date1))
u = 0
rp = 0
If (Ym Mod 4) = 0 Then u = 1
If ((Ym Mod 100) = 0 And (Ym Mod 400) <> 0) Then u = 0
Ys = Ym - 622
x = Ys - 22
x = x Mod 33
If ((x Mod 4) = 0 And x <> 32) Then
rp = 1
kabise = "t"
End If
i = Not (rp - 2) + Not (u - 2) * 2
x = 0
If (i = 0 And Mm = 3) Then x = 1
If i = 0 Then i = 3
Ms = (9 + Mm) Mod 13
If Ms < 10 Then Ms = Ms + 1
D1 = d(Mm - 1)
If (i = 1 And Mm > 2) Then D1 = D1 - 1
If (i = 2 And Mm < 3) Then D1 = D1 - 1
P1 = p(Mm - 1)
If (i = 1 And Mm > 2) Then P1 = P1 + 1
If (i = 2 And Mm < 4) Then P1 = P1 + 1
If (Dm > 0 And Dm <= D1) Then
Ds = P1 + Dm + x - 1
x = 1
Else
Ds = Dm - D1
Ms = Ms + 1
If Ms = 13 Then Ms = 1
x = 2
End If
If ((Mm = 3 And x = 2) Or Mm > 3) Then Ys = Ys + 1
s = Weekday(CDate(date1)) - 1
shamsi = Str(Ys).Trim + "/" + mon(Ms - 1) + "/" & Format(Ds, "00").ToString
dayy = Str(Ds)
monthh = mon(Ms - 1)
yearr = Str(Ys)
End Function
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.