我有一个 VBScript,我正在将其转换为 PHP,我有一些部分我不理解,也不知道其输出...另外,如果可能的话,请为我提供 HTML/PHP 中的类似方法
TextBox1.Value = 1#
txtTurnoverIncl = TextBox1
Format(CDbl(txtTurnoverExcl.Text) * _
CDbl(txtRoyalty.Text) / 100, "#,##0.00")
If txtTurnoverExcl.Text <> "" Then
Format(Round(.Text * 14 / 114, 2), "#,##0.00")
TextBox1 = Now()
TextBox3 = Date
TextBox4 = Format(MyDate, "dddd")
这个函数:
Private Function SumCashUp() As Double
Dim i As Long
Dim tmp As Double
For i = 10 To 12
With Me.Controls("TextBox" & i)
If IsNumeric(.Text) Then
tmp = tmp + CDbl(.Text)
End If
End With
Next i
SumCashUp = tmp
End Function
我想这就是全部。
最佳答案
TextBox1.Value = 1#
- 将 Double 格式的值 1 分配给文本框控件。 (感谢迈克D)
的变量txtTurnoverIncl = TextBox1
-将对控件TextBox
的引用分配给名为txtTurnoverIncl
CDbl(txtTurnoverExcl.Text)
- 将文本框中的文本txtTurnoverExcl
转换为 double,即带小数点的数值,例如2.6 - 例如,如果您想对值执行数学运算,这非常有用。Format(..., "#,##0.00")
- 将数字格式化为如下所示:2.60
或8.25
code> 即小数点后两位数字。Round(.Text * 14/114, 2)
-.Text
表示您在With (somecontrol)
block ,所以它实际上是somecontrol.Text
即获取控件的文本。 Round 函数将对数字进行四舍五入,例如Round(662.791, 2)
将返回662.79
,Round(662.796, 2)
将返回662.8
Now()
- 返回执行代码的计算机上的当前日期和时间
<Date
或Date()
- 与 Now() 类似,但仅包含日期,时间将为 00:00:00Format(MyDate, "dddd")
- 根据计算机上的文化获取 MyDate 星期几的名称。例如,对于希伯来语文化,它将返回йום שלйשй
;对于英语文化,它将返回Tuesday
。一般来说,给定日期和字符串的 Format() 将根据字符串格式化日期,例如Format(Now(), "dd/MM/yyyy")
将返回14/12/2010
关于php - 了解 VBScript,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4428636/