DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

maskedbox

•

Join Date: Jul 2008

Posts: 3

Reputation: fa_hed is an unknown quantity at this point

Solved Threads: 0

fa_hed

Offline

Newbie Poster

maskedbox

Jul 4th, 2008

I have a form has to (maskedbox1) and (maskedbox2)
if maskedbox1 I put date of today, I want (maskedbox2) show date after 30 days as defult
I will be thank you if you help me to do this
I use vb6

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: maskedbox

Jul 4th, 2008

To calculate after 30 days you can use DateAdd() function

Example

Draw two MaskEdit Controls and One Command Button

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
 
Private Sub Command1_Click()
   Dim FormatDate As String
   Dim DateAfter30Days  As Date
 
   DateAfter30Days = CDate(MaskEdBox1.Text)
   DateAfter30Days = DateAdd("d", 30, DateAfter30Days)
   FormatDate = Format(DateAfter30Days, "dd/MM/yy")
   MaskEdBox2.Text = FormatDate
 
End Sub
 
Private Sub Form_Load()
   MaskEdBox1.Mask = "##/##/##"
   MaskEdBox2.Mask = "##/##/##"
   MaskEdBox1.Text = Format(Date, "dd/MM/yy")
End Sub
Private Sub Command1_Click()
   Dim FormatDate As String
   Dim DateAfter30Days  As Date
   
   DateAfter30Days = CDate(MaskEdBox1.Text)
   DateAfter30Days = DateAdd("d", 30, DateAfter30Days)
   FormatDate = Format(DateAfter30Days, "dd/MM/yy")
   MaskEdBox2.Text = FormatDate

End Sub

Private Sub Form_Load()
   MaskEdBox1.Mask = "##/##/##"
   MaskEdBox2.Mask = "##/##/##"
   MaskEdBox1.Text = Format(Date, "dd/MM/yy")
End Sub

KSG

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: maskedbox

Jul 4th, 2008

selvaganapathy was given great code...
also you can try use DateSerial()
DateSerial(Year,Month,Day)
This will add 20 days from 5 July 2008.

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Private Sub Form_Load()
MsgBox DateSerial(2008, 7, 5 + 20)
End Sub
Private Sub Form_Load()
MsgBox DateSerial(2008, 7, 5 + 20)
End Sub

Result : 7/25/2008

This will count the 50 days from 1 July 2008.

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Private Sub Form_Load()
MsgBox DateSerial(2008, 7, 50)
End Sub
Private Sub Form_Load()
MsgBox DateSerial(2008, 7, 50)
End Sub

Result : 8/19/2008