Member Avatar for sukhy_1

I have to textboxes and want to add to 120+ 27/10/2008= which will give the new date ive got this code so far but errors appear on the dateserial bit thanks

Dim Day As Integer
Dim Month As Integer
Dim Year As Integer

TxtFT.Text = Date.Now

'Calculation (date)

DateSerial(Day, Month, Year)


TxtDN = DateSerial(2005 - 4, 5 + 4, 25 + 4)

  • 2 Contributors
  • 1 Reply
  • 122 Views
  • 16 Hours Discussion Span
  • Latest Post Latest Post by Jx_Man
Member Avatar for Jx_Man

your date serial parameter is wrong

DateSerial(Day, Month, Year)

DateSerial(Year, Month, Day)
Ex :

DateSerial(1973, 3, 70)  = 5/9/1973

-> 70 days from 1 march 1973

DateSerial(Year(now.date),Month(now.date), now.day + 100)

-> 100 days from now (today)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.