اريد بعض الدوال

الأخ الفاضل ...

اقتباس

دالة تقوم باخد الرقم العشري تحدف الرقم الصحيح اي 12.23366

تاخد0.23366

	Dim d As Double
	Dim Num As Double

	d = 12.23366
	Num = d - Int(d)

اقتباس

وعكس sin cos

عكس Sin:

Atn(n / Sqr(-n * n + 1))

عكس Cos:

Atn(-n / Sqr(-n * n + 1)) + 1.5707963267948966
or
Atn(-n / Sqr(-n * n + 1)) + pi/2
or
Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)

بالطبع هذا بالتقدير الدائرى، وللتحويل للستينى يضرب الناتج فى 45 ثم يقسم على (Atn(1

اقتباس

ودالة تحول الرقم الي زمن اي 12.5255

تصبح 12:31 دقيقة

	Dim d As Double
	Dim s As String

	d = 12.5255
	s = Int(d) & ":" & Int((d - Int(d)) * 60)

شكراً

تمام بارك الله فيك

والله لا اعرف كيف اشكركم اغمرتمني بكرمكم وبارك الله فيكم

الله يوفقكم