🚀 go-pugleaf

"Sebastien Thibault" <thibauls@videotron.ca> schreef in bericht
news:2kom5.3027$7_5.136777@weber.videotron.net...
| How do I do to compare 2 date togeter like
|
| If Date1 < Date2 Then
|     Print "Date1 is smale"
| Else
|     Print "Date2 is smale"
| End If
|
| What is the function to compare date in Visual Basic?
|
Dim Date1 As Date
Dim Date2 As Date
    Date1 = "08/16/2000 11:00:01"
    Date2 = "08/16/2000 11:00"

    If Int(Date1) < Int(Date2) Then
        MsgBox "Date1 is earlier then Date2"
    ElseIf Int(Date1) = Int(Date2) Then
        MsgBox "Date1 is eaqual to Date2"
    Else
        MsgBox "Date1 is later then Date2"
    End If

pops up the box with "Date1 is eaqual to Date2"

BUT

    If Date1 < Date2 Then
        MsgBox "Date1 is earlier then Date2"
    ElseIf Date1 = Date2 Then
        MsgBox "Date1 is eaqual to Date2"
    Else
        MsgBox "Date1 is later then Date2"
    End If

pops up the box with "Date1 is later then Date2"

So it depents what you want to compare, only the date reguardless the time,
or the exact date and time.

Johan.

Sebastien

Your code will work as written if you specify date1 and date2 as date
datatypes - possibly using the cvdate function to ensure that entered
dates are converted to dates correctly.

Regards
David

Sebastien Thibault wrote:
> 
> How do I do to compare 2 date togeter like
> 
> If Date1 < Date2 Then
>     Print "Date1 is smale"
> Else
>     Print "Date2 is smale"
> End If
> 
> What is the function to compare date in Visual Basic?
> 
> Thanks
> 
> S�bastien

In article <2kom5.3027$7_5.136777@weber.videotron.net>,
  "Sebastien Thibault" <thibauls@videotron.ca> wrote:
 > How do I do to compare 2 date togeter like
 >
 > If Date1 < Date2 Then
 >     Print "Date1 is smale"
 > Else
 >     Print "Date2 is smale"
 > End If
 >
 > What is the function to compare date in Visual Basic?

The following

  Public Function WhichIsIt(pdatFirst As Date, pdatSecond As Date) As
String

    If pdatFirst < pdatSecond Then
        WhichIsIt = "First " & pdatFirst & " is smaller"
    Else
        WhichIsIt = "First " & pdatFirst & " is equal or greater"
    End If

  End Function

when run from the Immediate Window, gave

  ? WhichIsIt(#12/31/1999#,#4/15/2000#)
   First 12/31/99 is smaller
  ? WhichIsIt(#01/01/2001#,#02/02/1902#)
   First 1/1/01 is equal or greater

and that looks OK to me, given that it was a very limited test.

--
 L. M. (Larry) Linson
  http://www.ntpcug.org - North Texas PC User Group - Visit and Join
  http://www.ntmsdevsigs.homestead.com - NTPCUG Developer SIGs
  http://homestead.deja.com/user.accdevel - Access examples


Sent via Deja.com http://www.deja.com/
Before you buy.

Try arranging the dates as yyyymmdd and do a normal numeric comparison

The easiest way to do this is use the VB6 DateTimePicker control

IF DTPicker1.Value < DTPicker2.value then etc etc et

Hope it helps
Alan


Sebastien Thibault wrote:

> How do I do to compare 2 date togeter like
>
> If Date1 < Date2 Then
>     Print "Date1 is smale"
> Else
>     Print "Date2 is smale"
> End If
>
> What is the function to compare date in Visual Basic?
>
> Thanks
>
> S�bastien

MS's suggested method for comparing dates is DateDiff

On Mon, 21 Aug 2000 12:32:20 +0200, UCT STUDENT
<BLLALA005@mail.uct.ac.za> wrote:

>The easiest way to do this is use the VB6 DateTimePicker control
>
>IF DTPicker1.Value < DTPicker2.value then etc etc et
>
>Hope it helps
>Alan
>
>
>Sebastien Thibault wrote:
>
>> How do I do to compare 2 date togeter like
>>
>> If Date1 < Date2 Then
>>     Print "Date1 is smale"
>> Else
>>     Print "Date2 is smale"
>> End If
>>
>> What is the function to compare date in Visual Basic?
>>
>> Thanks
>>
>> S�bastien
>