[VBA程序]：介绍一些数型转换函数

andyming

下面介绍一些数型转换函数：
Cint，获得一个整数，例：Cint(3.14159) ，得到3
Cvar，获得一个Variant类型的数值，例：Cvar("123" & "00")，得到”12300”
Cdate，转换为date数据类型，例：MyShortTime = CDate("11:13:14 AM")

下面的代码可以写出一串数字，从000-099。

Sub test()

Dim add0 As String
Dim text As String
Dim p(0 To 2) As Double
p(1) = 0 'Y坐标为0
p(2) = 0 'Z坐标为0
For i = 0 To 99 '开始循环
  If i < 10 Then '如果小于10
    add0 = "00" '需要加00
  Else '否则
    add0 = "0" '需要加0
  End If
  text = add0 & CStr(i) '加零，并转换数据
  p(0) = i * 100 'X坐标
  Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字
  Next i
  
End Sub


重点解释条件判断语句：
If 条件表达式 Then
……
Else
……
End if

如果满足条件那么程序往下执行，到else时不再往下执行，直接跳到End if后面
如果不满足条件，程序跳到else后往下运行。

  Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字
这是写单行文本，需要三个参数，分别是:写的内容、位置、字高

tl319

学习了,学习了,

tl319

学习了,学习了,

chman

六位号,很眼熟.
丘号管理?