index=InStr(1, s1, s2，1) s2是变量，比如是当前的时间，改怎么写这个代码？

来源：百度知道 编辑：UC知道 时间：2024/06/21 08:05:49
比如我要查找s1内容里面是否有当前时间s2 ，s2是当前年月日，随时间变化的， 我该怎么写代码。貌似s2只能是静态的字符，不能变化的。
Dim date as string
date=Format(Date, "yyyy/mm/dd")
index = InStr(1, STARTTIME, date, 1)
if index = 0 then.....

用asp vbscrip 编写网页代码，提示 “类型不匹配: 'Format'”

日期格式一定要 yyyy/mm/dd 别的格式不行，如何用format函数定义日期格式

Option Explicit

Private Sub Command1_Click()
Dim S1, S2, endS

S1 = "dhfldshfklsdhf2008/8/2732fwfwef" '这里是你的S1,包含或不包含当前的年月日
S2 = Year(Date) & "/" & Month(Date) & "/" & Day(Date) '这里取的是当前系统年月日,按你要求的"yyyy/mm/dd"格式

If InStr(S1, S2) = 0 Then
MsgBox "不包含你的日期."
Else
MsgBox "包含你的日期."
End If
End Sub

对于FORMAT使用:
Format(date,"yyyy/mm/dd") '结果是 "yyyy-mm-dd"
如果你指的"/"是个字符的话,只能通过上面的程序去变通.即:
Year(Date) & "/" & Month(Date) & "/" & Day(Date)

s2可以是变量，不过如果s2是时间的话 最好还是控制一下格式

另外，请楼主不要用Index做变量，Index为关键字，很容易引起误会

不明白你的意思哟!

x＝instr(1,s1,date,1)

s2是当前的年月日，最后一个表示查找时不区分大小写，可以用index接收返回值！！可以配合format函数格式化date

Private Sub Command1_Click()
Dim s1, s2 As String, dd As Integer
s1 = "dfes20080821adsd" ' 今天是20080821
s2