vb编程某一日期至今天数

vb编程某一日期至今天数

private sub form_click()
dim x as integer, y as integer, h as integer, f as integer
h = inputbox("输入总只数")
f = inputbox("输入脚数")
y = (4 * h - f) / 2
x = h - y
print "鸡有：" & x
print "兔子有：" & y
end sub

Dim firstDate, msg As String Dim secondDate As Date firstDate = InputBox("Enter a date") secondDate = CDate(firstDate) msg = "Days from today: " & DateDiff(DateInterval.Day, Now, secondDate) MsgBox(msg)