برای تبدیل تاریخ میلادی به شمسی

[nilda]

یک تکه برنامه یا کامپونت برای تبدیل تاریخ سیتم به میلادی می خوام در برناه ای که نوشتم نمی دونم ایرادم در چه قسمتی است که ماه رو اصلاً نشان نمی ده اگر میشه ایرادم رو بگین که کجاش رو اشتباه نوشتم
d=day(date)
m = Month(Date)
Y = Year(Date)
Y = Y - 621
If m < 3 Then
m = j
Y = Y - 1
Select Case j
Case 2
m = 12
Case 1
m= 11
End Select
Else
If m = 3 Then
m = 1
Else
m = m - 3
End If
End If
If d > 20 Then
m = m + 1
d = d - 22
Else
d = d + 10
End If
Text57.Text = Y & "/" & m & "/" & d

[XSS]

شما تو خط ششم نوشتید m = j
j چی هست؟ شما که هیچ مقداری برای j مشخص نکردید که m رو با اون مقدار دهی کردید
چون j تعریف نشده و مقداری نداره بنابراین m هم بدون مقدار میشه و برای همین ماه نشون داده نمیشه.

شما باید مینوشتید j = m و یه مقدار هم بیشتر روی قسمت ماهش کار میکردید که اگر ماه از فلان روز کمتر بود یکی از m کم کنه، چون اینجوری اگر الان برنامه رو اجرا کنید بهتون میگه ماه اسفند هستید ولی اگر همین برنامه رو چند روز دیگه اجرا کنید بهتون درست جواب میده.

راستی من یه ماژول دارم که البته من ننوشتمش، تاریخ میلادی رو میگیره به شمسی تبدیل میکنه، ببین به دردت میخوره؟
http://persianupload.com/files/6ycv6ai3fp0stypil3fp.zip

[hamed_Arfaee]

http://forum.iranled.com/showthread.php?...5#pid41695

[mojtabamalaekeh]

این برنامه رو خودم نوشتم برای استفاده ی شخصی خودم
شما فقط از ماژول استفاده کن.

ضمیمه دومی جدیدتره که علاوه بر تبدیل میلادی به شمسی، شمسی رو هم به میلادی تبدیل می کنه.

[nilda]

http://forum.iranled.com/showthread.php?...5#pid41695

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

[hamed_Arfaee]

http://forum.iranled.com/showthread.php?...5#pid41695

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

با سلام
كامپوننت كه كنار پروژه هست با نام : Tagvim.ocx
اگه خطا گرفت اول اونو ثبت كنين
يعني رجيستر كنين
به اين صورت كه اول كپي كنين تو پوشه سيستم 32 و بعد تو ران اين دستور رو بنويسيد :
regsvr32 Tagvim.ocx

[sepehrEZ]

اين PDF رو دانلود كن.دقيقا در مورد همينه.
كلمه ي عبورش هم : escada.blogfa.com
http://escada.persiangig.ir/document/FarsiDate.zip
حجمش هم 14كيلو بايت بيشتر نيست.

[mra581206]

سلام
Tagvim.ocx درویندوز 7 جواب نمی ده لطفا راهنمایی کنید.