7 replies to this topic

[travy92]

Welcome to this very simply date calculator!

What we're doing!

Basically we'll be making a program that calculates the date difference between the two dates specified!

GUI (LAYOUT):
This is my GUI:



----------------------------------------------------------------

What you need~
1 Command Button with:
Name: cmdCalc
Caption: Calculate!

1 ListBox with:
Name: lstAnswer

----------------------------------------------------------------
CODE (Very short & simple!)

Add this code into General Declarations before you begin adding the rest of the code:

Quote

Private Mint As Integer

----------------------------------------------------------------

Then add this code:

Quote

Private Sub cmdCalc_Click()
Mint = DateDiff("d", "5/09/2007", "11/09/2007")
lstAnswer.AddItem "The day difference = " & Mint
End Sub

----------------------------------------------------------------

Code Explanation:

Quote

Private Sub cmdCalc_Click()

Basically means whenever you click on the cmdCalc button ("Calculate!" button), do the code that's specified below the line.

----------------------------------------------------------------

Quote

Mint = DateDiff("d", "5/09/2007", "11/09/2007")

Means calculate the day difference between the dates specified.

----------------------------------------------------------------

Quote

lstAnswer.AddItem "The day difference = " & Mint

Simply means add the answer to the LixtBox.

----------------------------------------------------------------

You can also change this:

Quote

Mint = DateDiff("d", "5/09/2007", "11/09/2007")

The "d" can be changed into other things like:

Year(s): "yyyy"
Month(s): "m"
Week(s): "ww"
Day(s): "d"
Hour(s): "h"
Minute(s): "n"
Second(s): "s"

Just replace the "d" with one of those and you're done!

ALSO you can obviously change the dates to whatever you want!

Thanks to Tcm9669 for the Screenshot program.

Thanks to TheComputerMaster for the upgraded Screenshot program.

Thanks to you for reading this tutorial!

Made by me, Travy92.


Lol, Samples!:

Attached Files

•  TimeCalculator.zip   3.03K   894 downloads
•  TimeCalculator.rar   2.82K   1158 downloads

[Hybrid]

thhhxx for this tutorial

[$RaMRoM$]

Thanks a lot travy92, your tuts are wonderful, BTW i just wanna say that maybe you can add Text Boxes and change:

Private Sub cmdCalc_Click()
Mint = DateDiff("d", "5/09/2007", "11/09/2007")
lstAnswer.AddItem "The day difference = " & Mint
End Sub

To:

Private Sub cmdCalc_Click()
Mint = DateDiff("d", Val(Text1.Text), Val(Text2.Text))
lstAnswer.AddItem "The day difference = " & Mint
End Sub

Just Saying! lol

[Kamilo23]

thx for tutorial!

[Xav]

$RaMRoM$ said:

Thanks a lot travy92, your tuts are wonderful, BTW i just wanna say that maybe you can add Text Boxes and change:

Private Sub cmdCalc_Click()

Mint = DateDiff("d", "5/09/2007", "11/09/2007")

lstAnswer.AddItem "The day difference = " & Mint

End Sub

To:

Private Sub cmdCalc_Click()

Mint = DateDiff("d", Val(Text1.Text), Val(Text2.Text))

lstAnswer.AddItem "The day difference = " & Mint

End Sub

Just Saying! lol

I'm not sure your code will work. DateDiff() expects 3 string parameters, yet Val() returns a value. Maybe a DateTimePicker would be a better choice of control.

[an2ny21]

$RaMRoM$ said:

Thanks a lot travy92, your tuts are wonderful, BTW i just wanna say that maybe you can add Text Boxes and change:

Private Sub cmdCalc_Click()

Mint = DateDiff("d", "5/09/2007", "11/09/2007")

lstAnswer.AddItem "The day difference = " & Mint

End Sub

To:

Private Sub cmdCalc_Click()

Mint = DateDiff("d", Val(Text1.Text), Val(Text2.Text))

lstAnswer.AddItem "The day difference = " & Mint

End Sub

Just Saying! lol

it definitely wont work. try this:

Private Sub cmdCalc_Click()
date1 = txtmonth.text & "/" & txtday.text & "/" & txtyear.text
Mint = DateDiff("d", date1, now) ' now means getting the current date
lstAnswer.AddItem "The day difference = " & Mint
End Sub


im sure this will work if its just the day you want to calculate. in other cases im not sure like calculating the age.

[acanuto]

thx

[Ghanas]

acanuto said:

thx

I'm using VB 2008, and am having issues...I'm only learning how to program, and tips? I keep getting an error saying that AddItem isn't a member of the form.