Tuesday, February 7, 2012

Calculate Due date VB6 Example

On Error GoTo err:

If cmdAdd.Enabled = False Then
Adodcterms2.CommandType = adCmdText
Adodcterms2.RecordSource = "select * from terms where Terms='" & DataCombo3.Text & "'"
Adodcterms2.Refresh

    Dim objDate As Date
    objDate = CDate(Date)
    objDate = objDate + Val(Text6.Text)

    txtFields(7).Text = Format(objDate, "MM/DD/YYYY")

End If
err:
    If err.Number <> 0 Then
        err.Clear
        Resume Next
    End If
   
at

No comments:

Post a Comment

Since we see a lot of users SPAMMING and abusing our comment section. we are now strictly checking new comments before approving it on haktech. of you like to promote your website. you can always contact me so i can do SEO for your website.