1.
Private
Function
myFormat(
ByVal
x
As
String
)
2.
If
x =
""
Then
"0"
3.
Not
IsNumeric(x)
4.
Dim
x2
Double
=
CDbl
(x)
5.
x3
6.
Return
x2.ToString(
"#.#0"
7.
End
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
