Pytanie : Konwertyta SQL funkcja

I potrzebować VBA funkcja SQL Serwer funkcja. Zadawalać pomagać oprócz 2 godzina praca: 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Public Funkcja Cwelich (Px Kopia) Jako Sznurek Ciemnawy intTicks Jako Integer
Ciemnawy strTicks Sznurek
Ciemnawy intHandl Jako Integer
Ciemnawy intEights Jako Integer
Ciemnawy intSign Jako Integer
    Jeżeli Px < (0) Wtedy
      intSign = -1
    Inny
      intSign = (1)
    Kończyć Jeżeli

    Px = intSign * Px
    
    intHandl = Int (Px)
    intTicks = Int ((Px - intHandl) * 32)
    intEights = CInt (((Px - intHandl) * 32 - intTicks) * 8)
    Jeżeli intSign < (0) Wtedy
        intHandl = "-" & intHandl
    Kończyć Jeżeli
    Jeżeli intTicks < 10 Wtedy
        strTicks = "(0)" & intTicks
    Kończyć Jeżeli
    
    Cwelich = intHandl & "-" & strTicks & ": " & intEights
Końcówka Funkcja

Odpowiedź : Konwertyta SQL funkcja

Puszek pracować dokładnie gdy ty mieć ono, gdy ono zależeć dalej czy ty chcieć the intEights round dalej lub round puszek

I mieć ono w dół, i the funkcja w dół mieć ono w dół. Ono móc łatwo zmieniać.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

TWORZYĆ FUNKCJA Cwelich (
  @px PIENIĄDZE
) POWRÓT VARCHAR (20) ZACZYNAĆ

  OZNAJMIAĆ @RESULT    VARCHAR (20)
  OZNAJMIAĆ @INTTICKS  INTEGER
  OZNAJMIAĆ @STRTICKS  VARCHAR (10)
  OZNAJMIAĆ @INTHANDL  INTEGER
  OZNAJMIAĆ @INTEIGHTS INTEGER
  OZNAJMIAĆ @INTSIGN   INTEGER

  
  USTAWIAĆ @INTSIGN = SKRZYNKA GDY @PX  < 0="" THEN="" -1="" ELSE="" 1="" END="" SET="">
Inne rozwiązania  
 
programming4us programming4us