• Home
 · 
• Miscellaneous
 · 
• How to control the system date and how to add a value by DAY,MONTH and YEAR.

How to control the system date and how to add a value by DAY,MONTH and YEAR.

How to control the system date and how to add a value by DAY,MONTH and YEAR.

Rate How to control the system date and how to add a value by DAY,MONTH and YEAR.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'TEXT1 is a Current Date
'TEXT2 is a date to be added
'Syntax : DATEADD(what is the value, interval, Object)
'Value 
'D =Day
'Y = Year
'm = Month
'w = week
'etc...
Private Sub text1_keypress(Keypress as integer)
  TEXT2.TEXT = DATEADD("D", 1, TEXT1.TEXT)
End Sub

'The result is
'  Current Date 09-14-72
'  The Date Added on the TEXT2 is 09-15-72