如何比较vba中的两个日期字符串,如"01.02.2013 < 02/02/2013"?无论日期是什么,这始终是正确的。在我提到的例子中,有两种日期格式是正确的。
下面的vba代码抛出错误。
Sub aa()
Dim a As Variant, b As Variant, c As Variant
a = Format("1.2.2012", "DD\/MM\/YYYY")
b = Format("2.2.2012", "DD\/MM\/YYYY")
MsgBox (a)
End Sub
我希望将日期变量从Access传递到Server存储过程。请看我的密码:
VBA:
searchDate = 03/07/2014
cmd.Parameters.Append _
cmd.CreateParameter("@searchDate", adDBTimeStamp, adParamInput, , searchDate)
searchDate是格式化为MM/DD/YYYY的日期。
SQL:
ALTER PROCEDURE [dbo].[spAppendActivity]
@searchDate as datetime,
AS
SET N
我对javascript的Date.toISOString()函数感到困惑,如下面的例子所示,为什么x的日期值在ISO格式中变成了一月?
const date = new Date();
const x = (new Date(date.getFullYear(), date.getMonth() , 1));
console.log(date); \\Tue Feb 04 2020 11:11:12 GMT+0800 (Malaysia Time)
console.log(x); \\Sat Feb 01 2020 00:00:00 GMT+0800 (Malaysia Time)
co
我在excel中的vba有问题。我想让函数检查传递日期的第二天是否已经过去了。我知道我现在正在比较两个字符串,我不知道如何将其更改为日期格式。下面是我的代码片段: Dim MyDate As Date
Set Passed = Range("D2")
MyDate = Format(DateTime.Now, "DD-DD.MM.YYYY")
If MyDate < Passed Then
Passed.Interior.ColorIndex = 45
ElseIf MyDate > Passed Then
Passed.Interior.Col
我无法对只包含日期值的数组进行排序。
我使用这个排序函数,返回数组上限中的最新日期:
Function vba_sort_array_a_to_z(ByRef myArray)
Dim i As Integer
Dim j As Integer
Dim Temp As String
'sorting array from A to Z
For i = LBound(myArray) To UBound(myArray)
For j = i + 1 To UBound(myArray)
If UCa
我知道这是一个非常基本的问题,但我只是从VB Studio开始,这是直接从书中出来的。
MsgBox("Your birth date was " & DateTimePicker1.Text)
MsgBox("Day of the year: " & DateTimePicker1.Value.DayOfYear.ToString())
我期望ToString将整数值转换为日期的文本值,但它仍然返回数值。如果我看到它实际上是以字符串的形式返回数值,例如"20“。我试着在网上查找一些信息,但我得到了与我正在使用的相同的代码
我使用VBA DateSerial函数分隔字符串中的日期,并将它们填充到另一个工作表中,但当字符串中的年份为'1000‘时,Excel结束了Sub。
下面是一个示例:
string data:
2012-01-012012-03-01
2013-01-012013-03-01
1000-01-011000-01-01
VBA code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
On Error
我正在建立一个打破日期,我需要计算的工作日,也不包括银行假日。我在vba中使用了netwokingday函数,但它似乎没有选择银行假日的命名范围。下面是我的一段代码:
For i = 2 To new_Endrow
begin = Range("F" & i)
finish = Range("G" & i)
If finish <> "" Then
Range("H" & i) = Application.WorksheetFunction.Netw
我正在尝试将工作表中的日期插入到SQL中的表中。工作表中日期的原始源来自到SQL的连接,并且日期字段已设置为强制转换(Interview_date as date),但是一旦填充了工作表,我就需要插入回sql中的另一个表中。当我这样做时,我在表的日期字段(即日期时间)中得到1900-01-01 00:00:00.000。我提取到excel日期格式是yyyy-mm-dd,这与我插入到的Sql表上的格式相同。
我在VBA中尝试了以下插入,有问题的3个字段是sdate_confirmed、sdate_interview和rundate。
我已经将这些字段声明为
Dim sForename As St
我使用的SQL server数据库有一个字段存储为整数,但它是一个日期。目前它正在显示20191012。我已经尝试了下面的内容,它似乎是在转换它,但我想在10/12/2019格式中显示它。谢谢。
CONVERT(DATE,CONVERT(VARCHAR(20),EFFDAT)) AS DATE_EFF
我试图在VBA中编写一个简单的函数,它以一个日期和一个来自Excel的日期数组作为输入。如果给定日期是数组的一部分,则返回true,否则返回false。
我的问题是来自excel的数组是二维的,但是我总是传递一个一维数组。换句话说,一个列和一个行值,这样我就可以检查数组中的值了,但是我传递了一个一维数组。
这是我的代码:
Function IsInArray(ByVal MyDate As Date, ByRef Holiday_Calendar As Range) As Boolean
Dim length As Integer
length = WorksheetFunction.Coun
我发现了一个关于YouTube的教程,它设置了一个简单的数据输入表单,允许您创建、检索、编辑和删除表中包含的记录。示例中的数据由员工ID#'s组织,后者填充下拉组合框。但是,我的表将按日期组织。因此,我希望组合框填充这些日期,并根据选定的日期检索相应的数据。
编辑:本教程中的表格被组织成: Col A Employee ID# .中校雇员的名字..。中校性别..。中校职称..。Col E工资和4行条目
我在网上搜索过,也玩过,但似乎找不到日期。最近我得到的是将日期转换为serial#格式(即43617等)。然后一切都正常。但是,我更喜欢使用传统的mm/dd/yyyy格式。
下面是代码:
我正在尝试做一些基本的事情:从一个accdb文件中获取2个日期startD和endD。将它们向前移动一个月,将新日期作为短日期保存在相应的记录中。 这一切都是由VBA完成的 问题是它显示了正确的SQL字符串(如果我做了msgbox sql),但是当它保存时,它保存为带有时间的常规日期,并且是错误的值!*注意:我在澳大利亚,所以我有一个格式部分,以确保日期保存正确。 我也尝试过使用DateValue()和格式化日期。 Dim frq As Integer
Dim wks As Integer
Dim CurAcc As Integer
Dim CurAccEnd As Date
Dim Day
我正在用VBA处理一个.txt文件。 在其他任务中,我需要读入表示日期的字符串,并在Excel中显示实际日期。 .txt文件中的日期字符串类似于"190223“,表示2019年2月23日 我的挑战是完成这件事。 到目前为止,我所做的是: ' ... loop
With ActiveWorkbook.Worksheets(1)
' Other statements here
' Event date time
.Range("N" & i).Value = StrReverse(Mid(.Range(keyword.Offs
在我工作表中,单元格具有dd-mm-yyyy格式的日期,而我正在将那些接受yyyy-mm-dd格式的日期用于sql查询。为此,我将日期转换为yyyy-mm-dd格式,如下所示:
Dim startDate As Date, endDate As Date
startdate = Format(Sheet1.Range("b1").Value, "yyyy-mm-dd")
endDate = Format(Sheet1.Range("c1").Value, "yyyy-mm-dd")
但是我得到了dd-mm-yyyy格式的start