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

Bhavesh Vankar

4y1.1k.NET

 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

7 Replies

Know the answer? Post it — somebody with the same question will find it here.

Senthil Kumar4y ago
Accepted 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 Vankar4y ago
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 Yelve4y ago
Don't know why it's not working for you. It should work.

Can you check if any namespace is missing
Bhavesh Vankar4y ago
actually DateTime is not working in vb6.0 showing all lines red....
Vishal Yelve4y ago
It's for VB 6.0
Bhavesh Vankar4y ago
its for vb.net i want for vb6.0 vba technology sir...
Vishal Yelve4y ago
1. Dim _dateTime as DateTime = convert.ToDateTime("05/05/2005")
2. Dim NextYear As Date = DateAdd(DateInterval.year, 58, _dateTime)
3. Dim str as string = Format(NextYear, "dd/MM/yyyy")