displaying date by counting on days

[WhiteShore]

hey there all..
i have a several questions about how to displaying date by counting on days..
i get the current date, and how to display date for:
1. end of this month
2. the 15th of next month
3. 30days from the current date

thank u guyz...

[WhiteShore]

im using combo box for the list and a textbox to display the date by the way,
does anyone know how the coding is?

[lotus18]

im using combo box for the list and a textbox to display the date by the way,
does anyone know how the coding is?

Use the AddDate function and Now.

[WhiteShore]

Use the AddDate function and Now.

but for what i need is this:

to display the date of:
1. the end of this month
2. the 15th of next month
3. 30days from the current date

im using combobox for the list of that 3 kinds days,
and as for the display of the date, im using textbox..

do u know how?

thankz alot.......

[Killer42]

You haven't said what version of VB you're using. But in VB6, the DateSerial() function is very useful for this sort of thing. I'd recommend you check it out. It allows you to easily generate a date using constant values, variables, or calculations/offsets (such as today + 30, for example).

[WhiteShore]

You haven't said what version of VB you're using. But in VB6, the DateSerial() function is very useful for this sort of thing. I'd recommend you check it out. It allows you to easily generate a date using constant values, variables, or calculations/offsets (such as today + 30, for example).

yeah im using VB6..
do you have the example how to use this function?
such as to display the date of the end of the month?
thanks in advance.......

[Mohan Krishna]

yeah im using VB6..
do you have the example how to use this function?
such as to display the date of the end of the month?
thanks in advance.......

Hi

This may help you... if I got you right

Combo1.AddItem (Format(DateAdd("d", -1, DateSerial(Year(Now), Month(Now) + 1, 1)), "dd-mm-yyyy"))
Combo1.AddItem (Format(DateAdd("d", 14, DateSerial(Year(Now), Month(Now) + 1, 1)), "dd-mm-yyyy"))
Combo1.AddItem (Format(DateAdd("d", 30, DateSerial(Year(Now), Month(Now), Day(Now))), "dd-mm-yyyy"))
 

I used Format(), and if you don't need uou can remove.

ALL THE BEST!

[Killer42]

Thanks for the examples, Mohan. Just one thing - I think the final one is much longer than necessary.

Combo1.AddItem (Format(DateAdd("d", 30, DateSerial(Year(Now), Month(Now), Day(Now))), "dd-mm-yyyy"))
' This could easily be coded as...
Combo1.AddItem (Format(DateAdd("d", 30, Now), "dd-mm-yyyy"))
 

Also, it might be better to use a named format such as "Short date" or "Medium date" rather than "dd-mm-yyyy" because diferent people (and countries) prefer different formats.

[Mohan Krishna]

Thanks for the examples, Mohan. Just one thing - I think the final one is much longer than necessary.
:
:
Also, it might be better to use a named format such as "Short date" or "Medium date" rather than "dd-mm-yyyy" because diferent people (and countries) prefer different formats.

Than Q Killer!
I wrote in the flow. Sorry and Thanks!

[WhiteShore]

To Mr. Mohan and Mr. Killer,
thank you so much for the examples...
it really helps...
=)

[Killer42]

To Mr. Mohan and Mr. Killer,
thank you so much for the examples...
it really helps...
=)

Glad we could help. :)

[Mohan Krishna]

To Mr. Mohan and Mr. Killer,
thank you so much for the examples...
it really helps...
=)

Hi
To my knowledge, I could help and ALL THE VERY BEST!