how to implemet vb.net code into vb6.0 ?

Question

Dim dateTime As DateTime = Convert.ToDateTime(txtBirthDate.Text.Trim()) txtRetirmentDate.Text = dateTime.AddYears(58).ToString("dd/MM/yyyy") how to implement above code into vb6.0 from vb.net

Senthil Kumar · Answer

Private Sub btnshow_Click() Dim datetime1 As Date Dim datetime2 As Date txtDatetime1.Text = Format(Date, "dd/MMM/yyyy", vbSunday, vbFirstJan1) datetime1 = txtDatetime1.Text 'datetime1 = CDate(txtDatetime1.Text) 'datetime2 = DateAdd("yyyy", 58, datetime1) Dim nYear, nMonth As String nYear = Year(datetime1) nMonth = Month(datetime1) datetime2 = DateSerial(nYear + 58, nMonth + 1, 0) txtDatetime2.Text = Format(datetime2, "dd/MMM/yyyy", vbSunday, vbFirstJan1) End Sub

Bhavesh Vankar · Answer

below code is working fine, but small issue.... i want last date of month for retirement date.... suppose i enter my birth date it generate 03/08/2080 this date but i want last date of month..... 30 or 31 Dim datetime1 As Date Dim datetime2 As Date txtdob.Text = Date datetime1 = CDate(txtdob.Text) datetime2 = DateAdd( "yyyy" , 58, datetime1) txtretirement.Text = Format(datetime2, "dd/MM/yyyy" , vbSunday, vbFirstJan1)

Vishal Yelve · Answer

Don't know why it's not working for you. It should work. Can you check if any namespace is missing

Bhavesh Vankar · Answer

actually DateTime is not working in vb6.0 showing all lines red....

Vishal Yelve · Answer

It's for VB 6.0

Bhavesh Vankar · Answer

its for vb.net i want for vb6.0 vba technology sir...

Vishal Yelve · Answer

Dim _dateTime as DateTime = convert.ToDateTime( "05/05/2005" ) Dim NextYear As Date = DateAdd(DateInterval.year, 58, _dateTime) Dim str as string = Format(NextYear, "dd/MM/yyyy" )