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:
----------------------------------------------------------------
Then add this code:
----------------------------------------------------------------
Code Explanation:
Basically means whenever you click on the cmdCalc button ("Calculate!" button), do the code that's specified below the line.
----------------------------------------------------------------
Means calculate the day difference between the dates specified.
----------------------------------------------------------------
Simply means add the answer to the LixtBox.
----------------------------------------------------------------
You can also change this:
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!:
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:
| This image has been resized. Click this bar to view the full image. The original image is sized 800x600 and weights 183KB. |

----------------------------------------------------------------
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() |
----------------------------------------------------------------
Quote:
| Mint = DateDiff("d", "5/09/2007", "11/09/2007") |
----------------------------------------------------------------
Quote:
| lstAnswer.AddItem "The day difference = " & Mint |
----------------------------------------------------------------
You can also change this:
Quote:
| Mint = DateDiff("d", "5/09/2007", "11/09/2007") |
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!:
__________________
Quote:
| The pacifist's task today is to find a method of helping and healing which provides a revolutionary constructive substitute for war. |
discuss this topic to forum
