یک تکه برنامه یا کامپونت برای تبدیل تاریخ سیتم به میلادی می خوام در برناه ای که نوشتم نمی دونم ایرادم در چه قسمتی است که ماه رو اصلاً نشان نمی ده اگر میشه ایرادم رو بگین که کجاش رو اشتباه نوشتم
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
شما تو خط ششم نوشتید m = j
j چی هست؟ شما که هیچ مقداری برای j مشخص نکردید که m رو با اون مقدار دهی کردید
چون j تعریف نشده و مقداری نداره بنابراین m هم بدون مقدار میشه و برای همین ماه نشون داده نمیشه.
شما باید مینوشتید j = m و یه مقدار هم بیشتر روی قسمت ماهش کار میکردید که اگر ماه از فلان روز کمتر بود یکی از m کم کنه، چون اینجوری اگر الان برنامه رو اجرا کنید بهتون میگه ماه اسفند هستید ولی اگر همین برنامه رو چند روز دیگه اجرا کنید بهتون درست جواب میده.
راستی من یه ماژول دارم که البته من ننوشتمش، تاریخ میلادی رو میگیره به شمسی تبدیل میکنه، ببین به دردت میخوره؟
http://persianupload.com/files/6ycv6ai3fp0stypil3fp.zip
این برنامه رو خودم نوشتم برای استفاده ی شخصی خودم
شما فقط از ماژول استفاده کن.
ضمیمه دومی جدیدتره که علاوه بر تبدیل میلادی به شمسی، شمسی رو هم به میلادی تبدیل می کنه.
nilda نوشته است:hamed_Arfaee نوشته است:http://forum.iranled.com/showthread.php?...5#pid41695
من فایل شما رو دانلود کردم ولی نمیدونم چرا اجرا نمی کنه از کامپونت خاصی استفاده کردین بیشتر هم در موقع فرم بارگذاری میشود shamsi1 رو خطا میگیره
با سلام
كامپوننت كه كنار پروژه هست با نام : Tagvim.ocx
اگه خطا گرفت اول اونو ثبت كنين
يعني رجيستر كنين
به اين صورت كه اول كپي كنين تو پوشه سيستم 32 و بعد تو ران اين دستور رو بنويسيد :
regsvr32 Tagvim.ocx
سلام
Tagvim.ocx درویندوز 7 جواب نمی ده لطفا راهنمایی کنید.