درخواست سورس کد تاریخ شمسی در VB.NET

[احمد20]

با سلام به بر بچه های vb.net

من جهت استفاده از تاریخ شمسی برای برنامم از فایل shamsi.dll استفاده کردم اما بعد از درست کردن setup برنامه و اجرای آن در کامپیوتر دیگر بامشکل برخورد کردم و برنامم اجرا نشد . به این نتیجه رسیدم که حتما باید سورس کد تبدیل تاریخ میلادی به شمسی درون برنامم باید بنویسم . لذا از دوستانی که دسترسی دارند منو کمک کنند .
با تشکر احمد عباسی

خیلی ممنونمممممممممممممممممممم ممممممممممممممممممممممممم ممممم

[javad2000]

از اینجا میتونید سورس و راهنمای محاسبات تاریخ های شمسی، قمری و میلادی رو دانلود کنید.
http://forum.persiantools.com/showthread.php?p=1028208#post1028208

اگه مشکلی بود در خدمتم.

[eyes_shut_number1]

از اینجا میتونید سورس و راهنمای محاسبات تاریخ های شمسی، قمری و میلادی رو دانلود کنید.
http://forum.persiantools.com/showthread.php?p=1028208#post1028208

اگه مشکلی بود در خدمتم.
This File Was Not Found!!!!!!!!

[javad2000]

This File Was Not Found!!!!!!!!


سلام
یعنی چه This File Not Found؟
همین الآن تست کردم اون لینک مشکلی نداشت. وقتی به اون لینک میرید، دو تا فایل کوچک هست که یکی به پست شماره 1 ضمیمه شده و محتوی راهنمای محاسبات به علاوه کلی چیز دیگه هست، یکی دیگه هم به پست شماره 5 ضمیمه شده که سورس vb.net رو داره.

[kourosh_ag]

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