why is this causing a problem?

[codesmith]

Sub testDateCompare()
    Dim nmiDate As String
    nmiDate = CDate("23/4/08")
    Dim origDate As String
    origDate = CDate("23/04/2008 15:05")
    origDate = Left(origDate, InStr(origDate, " "))
    
    Dim minDate As String
    minDate = WorksheetFunction.Min(origDate, nmiDate)
    MsgBox minDate
End Sub

Giving '400' error!?

thanks in advance.

 

[Legacy 98055]

I did not recieve any errors on my machine. Try this:

Sub testDateCompare()
    Dim nmiDate As String
    nmiDate = VBA.CDate("23/4/08")
    Dim origDate As String
    origDate = VBA.CDate("23/04/2008 15:05")
    origDate = VBA.Strings.Left(origDate, InStr(origDate, " "))
    
    Dim minDate As String
    minDate = Application.WorksheetFunction.Min(origDate, nmiDate)
    VBA.MsgBox minDate
End Sub

 

[mikerickson]

Its not clear what is a Date and what is a String

Dim nmiDate As String
Dim origDate As String
nmiDate = CDate(nmiDate)
origDate = CDate(origDate

Perhaps

Sub testDateCompareA()
    Dim nmiDate As String
    Dim origDate As String
    Dim minDate As String

    nmiDate = "23/4/08"
    origDate = "23/04/2008 15:05"
    
    minDate = CStr(CDate(WorksheetFunction.Min(Int(CDate(origDate)), Int(CDate(nmiDate)))))
    MsgBox minDate
End Sub

EDIT: Neither did I get the error. I suspect that an error comes when there is no time in origDate.
Which ends up eventualy erroring on Min(vbNullString).
Making sure that there is a space to be found fixes that. InStr(origDate & " ", " ")

 

[jindon]

What are you tring to do ?

Sub testDateCompare()
    Dim nmiDate As Date,origDate As Date, minDate As Date
    nmiDate = CDate("23/4/08")
    origDate = CDate("23/04/2008 15:05")
    minDate = WorksheetFunction.Min(origDate, nmiDate)
    MsgBox minDate
End Sub

 

[codesmith]

jindon,

I have two date formats:

"23/4/08" & "23/04/2008 15:05"

I want to find the smallest date, ignoring the hhmm component.

 

[jindon]

jindon,

I have two date formats:

"23/4/08" & "23/04/2008 15:05"

I want to find the smallest date, ignoring the hhmm component.

That's what I don't understand...
Why do you care about with/without time ?
try this anyway...

Sub testDateCompare()
    Dim nmiDate As Date,origDate As Date, minDate As Date
    nmiDate = CDate("23/4/08")
    origDate = CDate("23/04/2008 15:05")
    minDate = CDate(WorksheetFunction.Min(CLng(origDate), CLng(nmiDate)))
    MsgBox minDate
End Sub

 

[codesmith]

because "23/4/08" might be considered: 23/4/08 00:00
and "23/04/2008 15:05" will be considered: 23/04/2008 15:05 (i.e. 15.05 hours after the first date).

I dont want to consider the time factor in my comparison ... just the date of day.


if you get me!

 

[jindon]

Read my last post again. Edited.

 

[codesmith]

jindon,

result is: 21/04/08 !!?!?

Sub testDateCompare()
    Dim nmiDate As Date, origDate As Date, minDate As Date
    nmiDate = CDate("23/4/08")
    origDate = CDate("20/04/2008 15:05")
    minDate = CDate(WorksheetFunction.Min(CLng(origDate), CLng(nmiDate)))
    MsgBox minDate
End Sub

 

[mikerickson]

Jindon, the observation about the time component is astute.

result = Int(Min(a,b)) is more efficiant than result = Min(Int(a),Int(B))