[Programmer-VB] Re: Format Currency

[herdy_s2001]

Dear All..Format Curency

Menurut saya, mungkin seperti contoh di bawah ini :

Seasion 1:

Dim Jum1 As Currency, Jum2 As Currency, Jum3 As Currency
* Property Untuk TextBox :
* DataFormat=Currency
* Alignmant =Right
* Text=""
Private Sub Command1_Click()
    Jum1 = Text1.Text
    Jum2 = Text2.Text
    Jum3 = Text3.Text
    Text3.Text = Format(Jum3, "#,##0.#0")
End Sub

Seasion 2:

Untuk menyimpan di database :
- Type field Database harus dengan format Currency

Private Sub CmdSimpan()
    With Data
       .Adnew
       .Jumlah=Jum3
       .Update
    End With
End Sub

Seasion 3:
Untuk MsFlexgrid Aku Belum Coba tapi mungkin bisa ambil contoh dengan
menggunakan DataGrid.

Private Sub From_Load()
   With DataGrid1
        Set .DataSource = RsTran.DataSource
        .Columns(7).Alignment = dbgRight
        .Columns(8).Alignment = dbgRight
        .Columns(9).Alignment = dbgRight
        .Columns(10).Alignment = dbgRight
        .DataFormats.Item(7).Format = "#,##0.#0"
        .DataFormats.Item(8).Format = "#,##0.#0"
        .DataFormats.Item(9).Format = "#,##0.#0"
        .DataFormats.Item(10).Format = "#,##0.#0"
        For x = 0 To 10
            .Columns(x).Width = "    " & .Columns(x).Caption & "    "
        Next x
    End With
End Sub

Thanks For All.....

By. Frangky