Tutorial - Date Calculator!

[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:

Private Mint As Integer

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

Then add this code:

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

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

Code Explanation:

Private Sub cmdCalc_Click()

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

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

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

Means calculate the day difference between the dates specified.

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

lstAnswer.AddItem "The day difference = " & Mint

Simply means add the answer to the LixtBox.

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

You can also change this:

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!:

[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]

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]

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