Add time & day Function

[ymeyaw]

Dear all,

Is there a function in VB that i can use to add Eg:9 hours for "time" and automatically add 1 day to my date (if time after added 9 hours had exceed 23:59:59)?


Date Time
07/11/2011 19:23:45
07/11/2011 19:23:53
08/11/2011 3:46:02

Thanks alot ..

 

[VoG]

Try the DateAdd function.

 

[ymeyaw]

Hi Vog,

Thanks . In this case i need to join my time column and date column before i use DateAdd?

 

[VoG]

Yes. You can simply add them together.

 

[ymeyaw]

Hi Vog,

Thanks. I joined them , use DateAdd and split them again and it works!!!~

Thanks alot for your help!!





Do While Not ActiveSheet.Cells(a, "F").Value = ""


LDate = Cells(a, "B") & " " & Cells(a, "C")

LDate_Local = DateAdd("h", 9, LDate)



Cells(a, "B") = DateValue(LDate_Local)
Cells(a, "C") = TimeValue(LDate_Local)