Fungsi Tan di MS Access

Di Access, fungsi Tan digunakan untuk mendapatkan nilai tangen sebuah angka. Tipe data yang dihasilkan dari fungsi Tan adalah Double.

Sintaks penulisan fungsi Cos adalah sebagai berikut:

Tan(Number)

Keterangan:

Number (angka): wajib diisi, berupa angka dengan tipe data Double yang menunjukkan sudut pada segitiga yang dinyatakan dalam radian.

Fungsi Tan menghitung perbandingan dari sisi di depan dengan sisi di dekat sudut pada segitiga siku-siku . Hasil perbandingan dinyatakan dalam radian. Perbandingan itu adalah garis di depan sudut pada segitiga di satu sisi dengan garis di dekat sudur segitiga di sisi lain. Pada gambar di atas, secara trigonometri:

Tan a=t/p

Untuk mengkonversi ke radian, nilai derajat dikalikan pi/180. Sebaliknya, untuk mengkonversi ke derajat, nilai radian dikalikan 180/pi. Nilai konstanta pi = 3.14159265358979.

Jadi misalnya:
Tan 45^o, maka:

konstanta pi = 3.14159265358979

nilai radian untuk 45^o :

45o x 3.14159265358979 / 180o = 0.785398163397448

Tan 45o secara trigonometri = Tan (45o x pi/180) secara Access atau VBA
Tan 45o =  Tan(0.785398163397448) = 0.7071068 

Pada contoh di atas, kita tidak bisa langsung menuliskan di VBA dengan menggunakan derajat, tetapi harus diubah dulu ke radian. Untuk  45^o menjadi 0.785398163397448 radian, sehingga, penulisan Tan 45^o pada fungsi Tan di Access atau VBA menjadi Tan(0.785398163397448).

Kita bisa membuat fungsi Tan seperti halnya fungsi trigonometri pada umumnya, menggunakan fungsi berikut ini:

view plainprint?

1. Function nilaiTan(dbDerajat As Double) As Variant  
2.   If dbDerajat > 360 Or dbDerajat < 0 Then  
3.     MsgBox "Nilai derajat harus terletak di antara 0 dan 360", vbExclamation  
4.     Exit Function  
5.   End If  
6.   If dbDerajat = 90 Or dbDerajat = 270 Then  
7.     nilaiTan = "Tak Terhingga"  
8.   Else  
9.     nilaiTan = Round(Tan(dbDerajat * (3.14159265358979 / 180)), 6)  
10.   End If    
11. End Function  

Function nilaiTan(dbDerajat As Double) As Variant
  If dbDerajat > 360 Or dbDerajat < 0 Then
    MsgBox "Nilai derajat harus terletak di antara 0 dan 360", vbExclamation
    Exit Function
  End If
  If dbDerajat = 90 Or dbDerajat = 270 Then
    nilaiTan = "Tak Terhingga"
  Else
    nilaiTan = Round(Tan(dbDerajat * (3.14159265358979 / 180)), 6)
  End If  
End Function

Berikut ini adalah contoh penggunaan fungsi Tan dalam nilaiTan di atas di Immediate Window: Dalam contoh ini, kita sudah memasukkan nilai dalam derajat.

view plainprint?

1. ? nilaiTan(0)  
2.  0  
3. ? nilaiTan(180)  
4. 0   
5. ? nilaiTan(45)  
6. 1   
7. ? nilaiTan(90)  
8. Tak Terhingga  
9. ? nilaiTan(270)  
10. Tak Terhingga   

? nilaiTan(0)
 0
? nilaiTan(180)
0 
? nilaiTan(45)
1 
? nilaiTan(90)
Tak Terhingga
? nilaiTan(270)
Tak Terhingga