12 July 2014

VB6: Fungsi Format


Fungsi format dapat digunakan untuk memformat angka maupun string. Kita mungkin pernah melihat berbagai aplikasi yang diinputkan angka yang ditampilkan dalam format tertentu tapi lebih terbaca dengan baik.
Fungsi format sangat berguna saat kita ingin menampilkan sebuah ekspresi dengan cara yang berbeda. Singkatnya jika kita ingin mengkonversi angka ke format currency, format persentase, ataupun menampilkan tanggal dalam format tertentu.

1. FormatNumber
Fungsi FormatNumber mengkonversi sebuah ekspresi ke dalam bentuk angka numeric.
Contoh :
Print FormatNumber(2234.789, 2)
Output : 2234.79

2. FormatCurrency
Fungsi FormatCurrency mengkonversi angka ke format currency.
Contoh :
Print FormatCurrency(2234.789,2)
Output : $2234.79

3. FormatPercent
Fungsi  FormatPercent function mengkonversi angka ke format persentase.
Contoh :
Print FormatPercent(.225, 2)
Output : 22.50 %

4. Menampilkan Tanggal/Waktu Saat Ini
Sebelum memahami format tanggal/waktu mari kita lihat bagaimana cara visual basic menampilkan tanggal dan waktu saat ini.
Private Sub cmdShowDateTime_Click()
  'Menampilkan waktu sekarang
  Print Time             '12:53:12 PM
  'Menampilkan tanggal sekarang
  Print Date             '04-09-2012
  'Menampilkan waktu dan tanggal sekarang
  Print Now              '04-09-2012  12:53:12 PM
End Sub


5. FormatDateTime
Fungsi  FormatDateTime menampilkan tanggal/waktu dalam beberapa format.
Contoh :
Print FormatDateTime("2 - 3 -2012", vbLongDate)
Print FormatDateTime(Now, vbLongDate)
Print FormatDateTime(Time, vbShortTime)    'Displays current time
Print FormatDateTime(Time, vbLongTime)

Output :
02 March 2012
04 September 2012
12:01
12:03:28 PM

6. Format
Fungsi ini merupakan fungsi yang paling sering digunakan dari semua fungsi formatting. Kita dapat menggunakannya untuk berbagai tipe data seperti tanggal/waktu, no. telepon, no kartu kredit, currency dan lainnya.
Contoh :
Print Format(8765, "@@@@@@@")
Output :    8765  
Ada tiga spasi sebelum 8765.

Contoh Lainnya:
'format mata uang
Print Format(123, "Currency")               '$123

'format huruf kapital
Print Format("xyz", ">&&&")                 'XYZ

'format huruf kecil
Print Format("HELLO", "<&&&&&")             'hello

'format nomor telepon/kartu kredit
Print Format(9845678972#, "&&&&-&&-&&&&")   '9845-67-8972

'format tanggal dan waktu
Print Format(Now, "hh:mm")               '12:38
Print Format(Now, "hh:mm:ss")            '12:38:00
Print Format(Now, "hh:mm AMPM")          '12:38 PM
Print Format(Date, "dddd mmm dd,yyyy")   'Tuesday September 04,2012
Print Format(Date, "dd mmmm")            '04 September


'format titik pemisah angka dan koma
Print Format(100000, "#,##0.#0")         '100,000.00


Click here if you like this article.


0 comments: