.net 检查日期是否在给定的时间范围内
我需要检查一个日期是否在某个范围内 我想我需要这样的函数:.net 检查日期是否在给定的时间范围内,.net,vb.net,datetime,.net,Vb.net,Datetime,我需要检查一个日期是否在某个范围内 我想我需要这样的函数: If Date.Now.ToString("dd/MM/yyyy") - 2 days <= sc3 <= Date.Now.ToString("dd/MM/yyyy") Then sc3 = D Console.WriteLine(D) End If Dim testDate As DateTime = new DateTime(2014, 1,1) Dim currDate As DateTime
If Date.Now.ToString("dd/MM/yyyy") - 2 days <= sc3 <= Date.Now.ToString("dd/MM/yyyy") Then
sc3 = D
Console.WriteLine(D)
End If
Dim testDate As DateTime = new DateTime(2014, 1,1)
Dim currDate As DateTime = DateTime.Now.Date
If testDate <= currDate AndAlso testDate >= currDate - TimeSpan.FromDays(2) Then
'within range
End If
If Date.Now.ToString(“dd/MM/yyyy”)-2天使用文档了解/试验:
Option Explicit
Dim dtToday : dtToday = Date
Dim nDiff
For nDiff = -3 To +3
Dim dtTest : dtTest = DateAdd("d", nDiff, dtToday)
Dim nDiff2 : nDiff2 = DateDiff("d", dtToday, dtTest)
Dim bInR : bInR = -2 <= nDiff2 And 0 >= nDiff2 ' depends on your understand of "berween"
WScript.Echo nDiff, dtTest, CStr(bInR)
Next
(我选择相信你的VBScript标签)使用文档了解/体验:
Option Explicit
Dim dtToday : dtToday = Date
Dim nDiff
For nDiff = -3 To +3
Dim dtTest : dtTest = DateAdd("d", nDiff, dtToday)
Dim nDiff2 : nDiff2 = DateDiff("d", dtToday, dtTest)
Dim bInR : bInR = -2 <= nDiff2 And 0 >= nDiff2 ' depends on your understand of "berween"
WScript.Echo nDiff, dtTest, CStr(bInR)
Next
(我选择相信你的VBScript标签)你的代码示例是VB.NET
忽略时间,这将是这样的:
If Date.Now.ToString("dd/MM/yyyy") - 2 days <= sc3 <= Date.Now.ToString("dd/MM/yyyy") Then
sc3 = D
Console.WriteLine(D)
End If
Dim testDate As DateTime = new DateTime(2014, 1,1)
Dim currDate As DateTime = DateTime.Now.Date
If testDate <= currDate AndAlso testDate >= currDate - TimeSpan.FromDays(2) Then
'within range
End If
Dim testDate As DateTime=新日期时间(2014,1,1)
Dim currDate As DateTime=DateTime.Now.Date
如果testDate=currDate-TimeSpan.FromDays(2),则
"在射程之内",
如果结束
我没有检查语法,但它应该可以让您开始使用。您的代码示例是VB.NET
If Date.Now.AddDays(-2)<=sc3 AndAlso sc3<=Date.Now Then
sc3 = D
Console.WriteLine(D)
End If
忽略时间,这将是这样的:
If Date.Now.ToString("dd/MM/yyyy") - 2 days <= sc3 <= Date.Now.ToString("dd/MM/yyyy") Then
sc3 = D
Console.WriteLine(D)
End If
Dim testDate As DateTime = new DateTime(2014, 1,1)
Dim currDate As DateTime = DateTime.Now.Date
If testDate <= currDate AndAlso testDate >= currDate - TimeSpan.FromDays(2) Then
'within range
End If
Dim testDate As DateTime=新日期时间(2014,1,1)
Dim currDate As DateTime=DateTime.Now.Date
如果testDate=currDate-TimeSpan.FromDays(2),则
"在射程之内",
如果结束
我没有进行语法检查,但应该可以开始了。If Date.Now.AddDays(-2)If Date.Now.AddDays(-2)这个问题是关于VBScript还是VB6的?它们是两种不同的语言。两者都不是,看起来都是VB.NET,这完全改变了答案……这个问题是关于VBScript还是VB6的?它们是两种不同的语言。两者都不是,看起来都是VB.NET,这完全改变了答案。。。
If Date.Now.AddDays(-2)<=sc3 AndAlso sc3<=Date.Now Then
sc3 = D
Console.WriteLine(D)
End If