Fungsi Cos di MS Access

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

Sintaks penulisan fungsi Cos adalah sebagai berikut:

Cos(Number)

Keterangan:

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

Fungsi Cos menghitung perbandingan dari sisi samping sudut pada segitiga siku-siku dengan sisi diagonalnya. Hasil perbandingan dinyatakan dalam radian. Perbandingan itu adalah garis di samping sudut pada segitiga di satu sisi dengan garis diagonal segitiga di sisi lain. Pada gambar di atas, secara trigonometri:

Cos a=p/d

Nilai fungsi Cos terletak di antara -1 (untuk 180^o) dan 1 (untuk 0^o atau 360^o). Untuk mengkonversi ke radian, nilai derajat dikalikan pi/180. Jadi misalnya:

Cos 45^o, maka:

konstanta pi = 3.14159265358979

nilai radian untuk 45^o :

45o x 3.14159265358979 / 180o = 0.785398163397448

Cos 45o secara trigonometri = Cos (45o x pi/180) secara Access atau VBA
Cos 45o =  Cos(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 Cos 45^o pada fungsi Cos di Access atau VBA menjadi Cos(0.785398163397448).

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

Function nilaiCos(dbDerajat As Double) As Double
  If dbDerajat > 360 Or dbDerajat < 0 Then
    MsgBox "Nilai derajat harus terletak di antara 0 dan 360", vbExclamation
    Exit Function
  End If
  nilaiCos = Round(Cos(dbDerajat * (3.14159265358979 / 180)), 6)
End Function

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

? nilaiCos(0)
 1 
? nilaiCos(180)
-1 
? nilaiCos(360)
 1