请VB6高手~~帮帮小弟

Gohch

请问如果
lblpay.Caption = Format$(pay, "Currency")
出来后
我要在减pay的数目要如何先可以减呢
比如
dim pay1 as double, pay as double
pay=val(lblpay.caption)
allpay = pay1 - pay
要如何先可以减呢 pay1 不是currency来得。。。

[ 本帖最后由 Gohch 于 28-3-2007 10:49 AM 编辑 ]

devilgray

把pay1也format成currency?
其实还是要问，你的flow是要怎么走的呢？

[ 本帖最后由 devilgray 于 28-3-2007 12:16 PM 编辑 ]

Gohch

pay1 是用户 input 的
要如何改成currency呢

flow如下
pay=val(lblpay.caption)
pay1=val(txtpay1.text)
allpay = pay1 - pay

要怎样改成currency呢....

[ 本帖最后由 Gohch 于 28-3-2007 03:01 PM 编辑 ]

雪儿与小鱼儿

VB6高手就不敢当了

试一下:

Dim pay as Double, pay1 as double, allpay as Double


pay = Format$(pay, "Currency"

pay1= Format$(txtpay1.text, "Currency"

allpay = pay1 - pay

Gohch

多谢。。
我终于知道怎样做了。。。

我是VB新手。。所以在学习。。
多谢。。

小貼士：
msgbox Format("A", "Currency") --> A

msgbox Format("1", "Currency") --> 1.00

msgbox Format("1", "Currency") - Format("A", "Currency") --> Type mismatch

1.　你必須確保用戶只能輸入數字。
2.　Format Currency, VB會依照你電腦的regional settings給你答案。e.g. US ->＄１．００，Ｅｕｒｏｐｅ　－＞