تبدیل رادیان به ساعت

[نسرین عطار]

با سلام خدمت اساتید گرامی
می خوام داده های تشعشع خورشیدی که بر حسب رادیان هست رو به ساعت آفتابی تبدیل کنم فرمولش چه جوری هستش؟

[iranweld]

با سلام
از فرمول زیر استفاده کنید اگر منظور شما از ساعت آفتابی درجه میباشد

= DEGREES ( Angle ) 

angle زاویه به رادیان میباشد

اگر تبدیل درجه اعشاری به درجه و دقیقه و ثانیه هستش از مدول زیر استفاده کنید

Function Convert_Degree(Decimal_Deg) As Variant
    With Application
        'Set degree to Integer of Argument Passed
        Degrees = Int(Decimal_Deg)
        'Set minutes to 60 times the number to the right
        'of the decimal for the variable Decimal_Deg
        Minutes = (Decimal_Deg - Degrees) * 60
        'Set seconds to 60 times the number to the right of the
        'decimal for the variable Minute
        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
        'Returns the Result of degree conversion
       '(for example, 10.46 = 10~ 27  ' 36")
        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
            & Seconds + Chr(34)
    End With
End Function 

• [*=left]Start Excel and press ALT+F11 to start the Visual Basic editor.
  [*=left]On the Insert menu, click Module.
  [*=left]Enter the sample code for the Convert_Degree custom function described above into the module sheet.
  [*=left]Press ALT+F11 to return to excel.
  [*=left]In cell A1 type 10.46.
  [*=left]In cell A2 type the following formula:

  =Convert_Degree(A1) 

  
  
  The formula returns 10°27'36"

[نسرین عطار]

با سلام
از فرمول زیر استفاده کنید اگر منظور از ساعت آفتابی درجه میباشد

= DEGREES ( Angle ) 

angle زاویه به رادیان میباشد

اگر به دقیقه و ثانیه هستش

Function Convert_Degree(Decimal_Deg) As Variant
    With Application
        'Set degree to Integer of Argument Passed
        Degrees = Int(Decimal_Deg)
        'Set minutes to 60 times the number to the right
        'of the decimal for the variable Decimal_Deg
        Minutes = (Decimal_Deg - Degrees) * 60
        'Set seconds to 60 times the number to the right of the
        'decimal for the variable Minute
        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
        'Returns the Result of degree conversion
       '(for example, 10.46 = 10~ 27  ' 36")
        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
            & Seconds + Chr(34)
    End With
End Function 

• Start Excel and press ALT+F11 to start the Visual Basic editor.
• On the Insert menu, click Module.
• Enter the sample code for the Convert_Degree custom function described above into the module sheet.
• Press ALT+F11 to return to excel.
• In cell A1 type 10.46.
• In cell A2 type the following formula:

  =Convert_Degree(A1) 

  
  
  The formula returns 10°27'36"

ممنون بابت توجه تون واقعا
اگر فقط بخام بر حسب ساعت بده چه فرمولی؟مثلا فقط یه عدد ساعت باشه؟

[iranweld]

تبدیل درجه به ساعت من جایی ندیدم ولی درجه های اعشاری مثلا 10.56 تبدیل به درجه و دقیقه و ثانیه میگردد

[نسرین عطار]

ممنون استادم بابت پاسختون