Add days to existing date.....? 1

[AuctionLamb]

Hi Guys!!!

Me again, I get a date from a table field "receivedDate". "receivedDate" = 2005-02-23 14:39:07.797, In VB how do I add 4 days if the time is before 12 and 5 days after 12.

Help on this one would save my life!!

THANKS!

 

[HarleyQuinn]

Hi,

I would look into the DateAdd() function.

Harleyquinn

---------------------------------
For tsunami relief donations

 

[HarleyQuinn]

You'll have to remove the milliseconds at the end of the date for many (if not all) of the date functions in VB to work.

Harleyquinn

---------------------------------
For tsunami relief donations

 

[AuctionLamb]

Thanks!

But I need someone to show me how I will do it? I know how to add a 4 or 5 days but how do I check if the day is before 12 or after 12 to add the required date amount?

 

[HarleyQuinn]

Something like:

If Format(YourDate, "HH") > 12 Then
NewDate = DateAdd("d", 5, YourDate)
Else
NewDate = DateAdd("d", 4, YourDate)
End If

That works for me.

Harleyquinn

---------------------------------
For tsunami relief donations

 

[AuctionLamb]

THANKS!!!

Works like bomb!! Just one simple thing though.....how do I strip the milliseconds off the date value?

 

[HarleyQuinn]

Try:

YourDate = Left(YourDate,19)

Place this before the code in my previous post.

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[AuctionLamb]

Thanks!!

Thank was quite simple!!! Think that my brain is fried by now because working through the night for 2 days to make deadline!!!

 

[HarleyQuinn]

You're welcome.

Glad I could help.

Harleyquinn

---------------------------------
For tsunami relief donations

 

[Hypetia]

No need to use DateAdd. Adding days is the simplest thing that can be done to a Date variable.
___
[tt]
Dim receivedDate As Date
receivedDate = #2/23/2005 2:39:07 PM#
If Hour(receivedDate) < 12 Then
receivedDate = receivedDate + 4
Else
receivedDate = receivedDate + 5
End If
MsgBox receivedDate[/tt]

 

[AuctionLamb]

OK.....now the client asks for not just 4 or 5 days but 4 or 5 working days? How do I do that with the code:

If Format(YourDate, "HH") > 12 Then
NewDate = DateAdd("d", 5, YourDate)
Else
NewDate = DateAdd("d", 4, YourDate)
End If

 

[HarleyQuinn]

Might not be the best (or shortest) way to do it but you could do it with a case statement. Something like:

Select Case Format$(date1, "dddd")

Case "Monday"
    If Format(YourDate, "HH") > 12 Then
    NewDate = DateAdd("d", 7, YourDate)
    Else
    NewDate = DateAdd("d", 4, YourDate)
    End If
Case "Tuesday"
    If Format(YourDate, "HH") > 12 Then
    NewDate = DateAdd("d", 7, YourDate)
    Else
    NewDate = DateAdd("d", 6, YourDate)
    End If
etc...

Hope this helps


Harleyquinn

---------------------------------
For tsunami relief donations

 

[AuctionLamb]

What can I say......you are THE MAN!!!!!