PDA

View Full Version : اکتیوایکس : تاریخ، خواندن تاریخ و ساعت و عدد مثبت و منفی و اعشار، تبدیل تاریخهای شمسي، قمري و ميلادي



vbhamed
پنج شنبه 17 بهمن 1387, 23:41 عصر
اين اکتیوایکس قادر است کارهای زیر را با دقت زیاد انجام دهد

1 - برگرداندن تاریخ جاری شمسی
2 - تبدیل تاریخهای شمسی، قمری و میلادی به یکدیگر
3 - خواندن تاریخ به فارسی
4 - خواندن ساعت به فارسی
5 - خواندن عدد به فارسی با امکان خواندن اعشار و اعداد منفی (در خاصیت digit بنویسید و از خاصیت ToWord بخوانید)
6 - برگرداندن زاویه ماه
7 - برگرداندن نام ماههای شمسی، قمری و میلادی
8 - تعیین کبیسه بودن یک سال

متدهای مهم
Mi2sh : میلادی به شمسی
Sh2Mi : شمسی به میلادی
ReadTarikh : خواندن تاریخ
ReadClock : خواندن ساعت
ReadNum : خواندن عدد

مهم هم دقت زیادشه، اینم نمونه ای از کدش


t2 = t * t
t3 = t2 * t
jd = 2415020.75933 + 29.53058868 * k - 0.0001178 * t2 _
- 0.000000155 * t3 _
+ 0.00033 * Sin(RPD * (166.56 + 132.87 * t - 0.009173 * t2))
'
' Sun's mean anomaly
sa = RPD * (359.2242 + 29.10535608 * k - 0.0000333 * t2 - 0.00000347 * t3)
'
' Moon's mean anomaly
ma = RPD * (306.0253 + 385.81691806 * k + 0.0107306 * t2 + 0.00001236 * t3)

'
' Moon's argument of latitude
tf = RPD * 2# * (21.2964 + 390.67050646 * k - 0.0016528 * t2 _
- 0.00000239 * t3)
'
' should reduce to interval 0-1.0 before calculating further

Select Case nph

Case 0, 2
xtra = (0.1734 - 0.000393 * t) * Sin(sa) _
+ 0.0021 * Sin(sa * 2) _
- 0.4068 * Sin(ma) + 0.0161 * Sin(2 * ma) - 0.0004 * Sin(3 * ma) _
+ 0.0104 * Sin(tf) _
- 0.0051 * Sin(sa + ma) - 0.0074 * Sin(sa - ma) _
+ 0.0004 * Sin(tf + sa) - 0.0004 * Sin(tf - sa) _
- 0.0006 * Sin(tf + ma) + 0.001 * Sin(tf - ma) _
+ 0.0005 * Sin(sa + 2 * ma)

Case 1, 3
xtra = (0.1721 - 0.0004 * t) * Sin(sa) _
+ 0.0021 * Sin(sa * 2) _
- 0.628 * Sin(ma) + 0.0089 * Sin(2 * ma) - 0.0004 * Sin(3 * ma) _
+ 0.0079 * Sin(tf) _
- 0.0119 * Sin(sa + ma) - 0.0047 * Sin(sa - ma) _
+ 0.0003 * Sin(tf + sa) - 0.0004 * Sin(tf - sa) _
- 0.0006 * Sin(tf + ma) + 0.0021 * Sin(tf - ma) _
+ 0.0003 * Sin(sa + 2 * ma) + 0.0004 * Sin(sa - 2 * ma) _
- 0.0003 * Sin(2 * sa + ma)

xxxxx_xxxxx
جمعه 18 بهمن 1387, 00:26 صبح
سلام
امكاناتش خيلي زياده. حقش بود يه help هم براش درست مي كرديد مثل shamsi.dll

soheil_programmer
جمعه 18 بهمن 1387, 00:35 صبح
با سلام

من از پارامترهاي Sh2Mi سر در نياوردم، اگه ممكنه مثالي بزنيد...

meys34
یک شنبه 20 بهمن 1387, 21:18 عصر
با سلام

من از پارامترهاي Sh2Mi سر در نياوردم، اگه ممكنه مثالي بزنيد...

من كه اصلا از هيچيش سر در نياوردم.:گیج: Civil يعني چي؟

vbhamed
دوشنبه 21 بهمن 1387, 01:15 صبح
سلام

پست اول اصلاح شد و نمونه مثال آن هم همراه اكتيوايكس آورده شده است

vbhamed
دوشنبه 21 بهمن 1387, 08:53 صبح
من كه اصلا از هيچيش سر در نياوردم.:گیج: Civil يعني چي؟

منظور از Civil در توابع استفاده شده همون ميلادي هست، اما تبديلش كردم به Miladi
از پست اول دوباره دانلودش كنيد