String Change

I am looking for a short way to change a string and display it in label2.caption. All i want to do is label1.caption has the current date and Time and I want label2.caption to be  to look like "mm/dd/yyyy" Only PLUS 1 day.   With out using the datediff statement. my end result would look somthing like this

label1.caption "01/12/1999 01:02:03" and label2.capption "01/13/1999"  



Private Sub Form_Load()

Dim StsStr
SysStr = Format((Now), "mm/dd/yyyy" & " " & "hh:mm:ss")
    Label1.Caption = SysStr
    Label2.Caption =
LVL 1
raider187Asked:
Who is Participating?
 
traygreenCommented:
Use the DateAdd function
label2.caption = format(DateAdd("d", 1,label1.caption), "mm/dd/yyyy")
0
 
tommy_boyCommented:
Private Sub Form_Load()

Dim StsStr
SysStr = Format((Now), "mm/dd/yyyy" & " " & "hh:mm:ss")
Label1.Caption = SysStr
Label1.refresh
Label2.Caption = CDate(Label1.caption) + 1




0
 
InteqamCommented:
tommyboy code works well

0
 
raider187Author Commented:
Execelent, it worked perfect, Thank you very much ....Raider
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.