Fungsi SQL Server

SQL Functions

Table 10-1: Standard SQL2 Functions
SQL Function	Description
BIT_LENGTH (expression)	Memberikan nilai panjang dalam bit
CAST (value AS data type)	Mengubah tipe data
CHAR_LENGTH (expression)	Mengembalikan panjang karakter
CONVERT (expression USING conversion)	Mengubah tipe data
CURRENT_DATE	Mengembalikan tanggal sistem
CURRENT_TIME (precision)	-
CURRENT_TIMESTAMP (precision)	Mengembalikan waktu dan tanggal
EXTRACT (part FROM expression)	Memecah string
LOWER (expression)	Mengubah string menjadi huruf besar
OCTET_LENGTH (expression)	Mengembalikan panjang byte
POSITION (char expression IN source)	Mencari posisi karakter dalam string
SUBSTRING (string expression, start, length)	Mengambil sebagian string
TRANSLATE (string expression USING translation rule)	Mengubah string ke string lain dengan aturan tertentu
TRIM(LEADING | TRAILING | BOTH char expressionFROM string expression)	Menghapus karakter tertentu
UPPER (expression)	Mengubah string menjadi huruf besar

Convert vsFlexgrid ke Excel

Public Sub ConvertToExcel(cmDialog As CommonDialog, fg1 As VSFlexGrid, frm As Form)

On Error GoTo ErrorHandler

Dim mPath As String

cmDialog.Filter = "Microsoft Office Excel |*.xls|"

cmDialog.FilterIndex = 1

cmDialog.ShowSave

If cmDialog.FileName = "" Then Exit Sub

mPath = cmDialog.FileName

With fg1

frm.MousePointer = MousePointerConstants.vbHourglass

.SaveGrid mPath, flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells

frm.MousePointer = MousePointerConstants.vbDefault

End With

ErrorHandler:

If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, "Informasi"

End Sub

Terbilang Bulat dari Masino Sinaga

Dari Masino Sinaga

Public Function TerbilangBulat(strAngka As String, _

Optional MataUang As String = "Rupiah") As String

Dim strJmlHuruf$, intPecahan As Integer

Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$

Dim X As Integer, Y As Integer, z As Integer

On Error GoTo Pesan

Dim strValid As String, huruf As String * 1

Dim i As Integer

If strAngka = "" Then Exit Function

If Len(Trim(strAngka)) > 15 Then GoTo Pesan

strJmlHuruf = LTrim(strAngka)

'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))

If (intPecahan = 0) Then

strPecahan = ""

Else

Filter vsFlexgrid

Contoh dibawah ini adalah bagaimana caranya menfilter vsFlexgrid dengan mengetikan awalan kata di Textbox

Private Sub Text12_Change()

Dim Kata As String

Dim i, Panjang As Long

Panjang = Len(Trim(Text12.Text))

For i = 1 To fg.Rows - 1

Kata = UCase(Left$(fg.TextMatrix(i, 1), Panjang))

If Kata <> UCase(Trim(Text12.Text)) Then

fg.RowHidden(i) = True

Else

fg.RowHidden(i) = False

End If

Next i

End Sub

Fungsi Pembulatan ke 1000 an dan Jumlah Lembar Uang

Cara dibawah ini adalah bagaimana mencari jumlah lembaran uang dari Jumlah tertentu

If (Total3 Mod 1000) >= 500 Then

TerimaGaji = Round(Total3 + (1000 - (Total3 Mod 1000)))

Else

TerimaGaji = Round(Total3 - (Total3 Mod 1000))

End If

Sepuluh = TerimaGaji \ 10000

LimaRibu = (TerimaGaji - Sepuluh * (10000)) \ 5000

Seribu = (TerimaGaji - (Sepuluh * 10000) - LimaRibu * 5000) \ 1000