SaatBul fonksiyonunu aşağıdaki kodla değiştirip dener misiniz

Function SaatBul() As String



Dim UznTwips As Double

Dim SaatTxt, DkTxt As Integer

Dim Carpan, Teta As Single

Dim Aci As Integer

Dim Hassas As Byte

Dim SonDgr As Single



SaatBul = ""

If YTan = 0 Then Exit Function

SonDgr = Atn(XTan / YTan) * 180 / 3.142857 'radyan olan a??y? dereceye ?evirmek i?in



If YTan < 0 Then Aci = 180  '?eyrekliklerin durumuna g?re a?? d?zeltme

If XTan < 0 And YTan > 0 Then Aci = 360



SonDgr = 2 * (Aci + SonDgr)

UznTwips = Sqr((XTan) ^ 2 + (YTan) ^ 2) 'fare imlecinin resmin merkezine uzakl???



Hassas = Me.selectivite

SonDgr = Round(SonDgr / Hassas) * Hassas '



SaatTxt = SonDgr \ 60 'dereceden saat ve dakikaya d?n??t?rme

DkTxt = SonDgr Mod 60



Carpan = YrCpDis 'k?rm?z? dairenin, ?emberin d???nda olmas?n? sa?lar

If UznTwips < GcGn Then SaatTxt = SaatTxt + 12

SaatBul = Format(SaatTxt, "00") & ":" & Format(DkTxt, "00")



If SaatBul = TmpSaatBul Then Exit Function

Me.LblSaat.Caption = SaatBul

    



Teta = Pi * SonDgr / 360 '(Atn(XTan / YTan) + Aci * Pi / 180) '

Me.BtnKnm.Top = IIf(BtnX + YariCap * (1 - (Carpan) * Cos(Teta)) < 1, 1, BtnX + YariCap * (1 - (Carpan) * Cos(Teta)))

Me.BtnKnm.Left = IIf(BtnY + YariCap * (1 + (Carpan) * Sin(Teta)) < 1, 1, BtnY + YariCap * (1 + (Carpan) * Sin(Teta)))



TmpSaatBul = SaatBul

End Function