Prikazi cijelu temu 03.03.2014 10:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Queries vece manje
Evo procedura malo prepravljena.
Pobrisi staru pa stavi ovu:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Ugao(IDL As Integer, IDT As Integer, Optional Kontra As Boolean)
  2. Dim Dx As Double
  3. Dim DY As Double
  4. Dim U As Double
  5. Dim K As Boolean
  6.  
  7. Kor Dx, DY, IDL, IDT, K
  8. If K = False Then GoTo Kraj
  9. If Dx = 0 Or DY = 0 Then GoTo Kraj
  10. U = Atn(Abs(DY) / Abs(Dx))
  11.  If Dx < 0 Then
  12.             If DY < 0 Then
  13.               U = Abs(U) + PI
  14.              Else
  15.              U = PI - Abs(U)
  16.              End If
  17.          Else
  18.              If DY < 0 Then
  19.               U = (2 * PI) - Abs(U)
  20.              End If
  21.         End If
  22. U = RadDeg(U)
  23.  
  24. If Kontra = True Then
  25.     If U > 180 Then
  26.     U = U - 180
  27.     ElseIf Ugao < 180 Then
  28.     U = U + 180
  29.     End If
  30. End If
  31. Ugao = Format(U, "0.00")
  32. Kraj:
  33. End Function

Evo ti Query Q_Tacke:
PreuzmiIzvorni kôd (SQL):
  1. SELECT ugao([LokacijaID],[Tacka]) AS Azimut, Duzina([LokacijaID],[Tacka]) AS Duzina, Ugao([LokacijaID],[Tacka],-1) AS KontraAzimut, *
  2. FROM T_Tacke;
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.