Fungsi Format adalah fungsi format yang sangat kuat yang dapat menampilkan nilai-nilai numerik dalam berbagai bentuk. Ada dua jenis fungsi Format, salah satunya adalah format built-in atau standar sementara satu sama lain dapat didefinisikan oleh pengguna.
(i) Format dari fungsi Format standar adalah
Format (n, "style argument")
dimana n adalah angka dan daftar argumen gaya diberikan pada Tabel 15.1.
Tabel 15.1 Daftar argumen gaya
contoh 15.1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click
Label1.Text = Format(8972.234, "General Number")
Label2.Text = Format(8972.2, "Fixed")
Label3.Text = Format(6648972.265, "Standard")
Label4.Text = Format(6648972.265, "Currency")
Label5.Text = Format(0.56324, "Percent")
End Sub
Label1.Text = Format(8972.234, "General Number")
Label2.Text = Format(8972.2, "Fixed")
Label3.Text = Format(6648972.265, "Standard")
Label4.Text = Format(6648972.265, "Currency")
Label5.Text = Format(0.56324, "Percent")
End Sub
Hasilnya seperti dibawah ini:

(ii) Format dari fungsi Format user-defined adalah
Format (n, "user's format")
Meskipun diketahui sebagai user-defined format, kita masih perlu mengikuti gaya format tertentu. Contoh user-defined format gaya tercantum pada Tabel 15.2
Tabel 15.2: User-Defined Format
contoh 15.2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click
Label1.Text = Format(8972.234, "0.0")
Label2.Text = Format(8972.2345, "0.00")
Label3.Text = Format(6648972.265, "#,##0.00")
Label4.Text = Format(6648972.265, "$#,##0.00")
Label5.Text = Format(0.56324, "0%")
End Sub
Label1.Text = Format(8972.234, "0.0")
Label2.Text = Format(8972.2345, "0.00")
Label3.Text = Format(6648972.265, "#,##0.00")
Label4.Text = Format(6648972.265, "$#,##0.00")
Label5.Text = Format(0.56324, "0%")
End Sub
Hasilnya seperti dibawah ini:

Sandi Permana
18113221
2KA39
Tulisan 16
Teori Organisasi Umum 1#
Budi Utami, S.E
0 comments :
Posting Komentar