กระทู้เก่าบอร์ด อ.Yeadram
1,389 4
URL.หัวข้อ /
URL
Cdbl ได้ =1 ,ถ้า Error =2
ใช้ IIF ดูว่า FiledA ซึ่งเป็น Varchar(MySQL)
ถ้า Cdbl ได้ ให้ค่ากลับมาให้เท่ากับ 1 ถ้า Error ให้เท่ากับ 2 เขียนอย่างไรดีครับ
IIF(Cdbl(fieldA),1,2) ******** ตอนนี้ได้แค่นี้ รบกวนด้วยครับ
ถ้า Cdbl ได้ ให้ค่ากลับมาให้เท่ากับ 1 ถ้า Error ให้เท่ากับ 2 เขียนอย่างไรดีครับ
IIF(Cdbl(fieldA),1,2) ******** ตอนนี้ได้แค่นี้ รบกวนด้วยครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R11387
Function IsDouble(para) as Long
On error goto ErrorHandle
dblTemp as double
dblTemp = CDbl(para)
IsDouble = 1
Exit Function
ErrorHandle:
IsDouble = 2
End Function
ข้างบนนี้เขียนให้เล่นๆ นะครับ
ที่จริงอยากถามว่า จะทำไปทำไม?
On error goto ErrorHandle
dblTemp as double
dblTemp = CDbl(para)
IsDouble = 1
Exit Function
ErrorHandle:
IsDouble = 2
End Function
ข้างบนนี้เขียนให้เล่นๆ นะครับ
ที่จริงอยากถามว่า จะทำไปทำไม?
3 @R11392
VBA มีฟังก์ชั่น IsNumeric(expression) ให้ค่า True เมื่อ expression สามารถตีความได้ว่าเป็นตัวเลข ดังนั้นตามความต้องการที่บอกมาก็สามารถเขียนได้เป็น iif(IsNumeric(expression),1,2)
4 @R11405
ขอบคุณอาจารย์มากครับ
Time: 0.1150s
'ถ้าหาค่าได้ ให้เท่ากับ Cdbl(FieldA)
'ถ้าไม่ได้ให้เท่ากับ 2
Function ErrCdbl(a) As Double
On Error GoTo H:
ErrCdbl = CDbl(a)
Exit Function
H: ErrCdbl = 2
End Function