了解VBScript

Question

我有一个VBScript，我不明白，也不知道输出...另外，如果可能的话，给我提供一个类似的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

我想这就是全部。

Answer 1

1. TextBox1.Value = 1# -将双精度格式的值1赋给textbox控件。(感谢MikeD)
2. txtTurnoverIncl = TextBox1 -将对控件数字的引用赋给名为txtTurnoverIncl
3. CDbl(txtTurnoverExcl.Text)的变量-将文本框块内的文本转换为双精度，即带有小数点的数字值，例如2.6 -如果您想对example.
4. Format(..., "#,##0.00")格式的数值执行数学运算，使其看起来像这样：2.60或8.25，即在小数TextBox之后有两位数- txtTurnoverExcl表示您在With (somecontrol)块内，所以它实际上是somecontrol.Text，即获取控件的文本。Round函数将对数字进行舍入例如，662.8
5. Now()将返回executing
6. Date，Round(662.796, 2)将返回662.8
7. Now()-返回代码为executing
8. Date或Round(662.796, 2)的机器上的当前日期和时间-类似Now()，但只有日期，时间将是round -根据机器上的文化，获取MyDate的星期几的名称。例如，对于希伯来文化，它将返回יום שלישי；对于英语文化，它将返回Tuesday。通常，给定日期和字符串的Format()将根据字符串格式化日期，例如Format(Now(), "dd/MM/yyyy")将返回14/12/2010

Answer 2

最后一个函数以非常复杂的方式返回名为"Textbox10“、"Textbox11”和"Textbox12“的文本框的值的总和。我猜在PHP中你会这样做(假设你是POSTing一个表单)：

function sumCashUp() {
   return (double) $_POST['Textbox10'] + (double) $_POST['Textbox11'] + (double) $_POST['Textbox12'];
}

Answer 3

首先，最好(从语义上)分析整个事情正在做什么，而不是查看代码序列。所以这篇文章的其余部分有点投机性……

屏幕上显示了几个文本框

• TextBox1 ...使用值1(double)初始化，然后包含当前时间(now()) (imho本身就是一个错误- brrrr -希望this)
• TextBox3有很好的业务逻辑解释...已使用当前date
• TextBox4进行初始化...初始化为“我们不知道的东西”-希望是日期(MyDate)，格式为工作日("dddd")
• TextBox10 - TextBox12 ...似乎是用来计算变量SumCashUp

我们有更多的变量，这些变量也可能是文本框(有时我们会在代码中看到一个.Text )。

• txtTurnoverIncl
• txtTurnoverExcl
• txtRoyalty
• SumCashUp

和一个代码片段，它从一个总的(*14/114)中计算出14%的差值，四舍五入并格式化结果...我们不知道这个结果是在哪里使用的。我们可以推测它可能是另一个表单字段(因为.Text) -也许是txtRoyalty -但我们不知道。

基本上，所有的代码片段都是关于将值放入显示在屏幕上的文本框中和/或使用该文本框的值来计算某些东西(例如SumCashUp或14% GM)。

所以我猜通向解决方案的路径一定是

• 获取业务逻辑的源代码布局
• 创建包含具有类似对象(文本框、提交按钮等)的表单的
• 编写实现业务逻辑的代码-很可能是作为对提交按钮触发的POST事件的反应

您已经收到了几个代码片段，但需要将其放在更大的上下文中，否则代码块将不起作用。