Question

VB6.0如何根据当前日期生成一组4位数？

如前两位取"（月份+日）X 2 "，后两位取"（日+1）X 3 "，例现在12月23号，那就是(12+23)X2=70，(23+1)X3=72，那么4位数的结果就是"7072"。谁会在Command里写这个代码？谢谢！
显示在Label1里吧

Answer 1

实现代码举例：

Private Sub Command1_Click()
Text1.Text = Right((Month(Date) + Day(Date)) * 2 + 100, 2) & Right((Day(Date) + 1) * 3 + 100, 2)
End Sub

追答

上述代码可保证任何日期都能得到4位数，不足的替之以0

Answer 2

(Month(Date) + Day(Date))*2 & (Day(Date)+1)*3

结果：166
现在是7.1，后面只有一位数