***resovled****I need urgent help with a date calculator

[Supreme Cookie]

I'm relativly new to Vb i juststarted like 2 weeks ago. I have a project to complete and i want VB to tell me the number of days that have passed between date given by user and today's date i believe i got most of the coding right but plz help me i need this done for tomarrow....here is my code

Option Explicit
Dim d1 As Long
Dim m1 As Long
Dim y1 As Long

Private Sub cmdcompute_Click()
picfee.Cls
Dim Name As String
Dim Book As String
Dim CheckMonth As String
Dim CheckDay As String
Dim CheckYear As String
Dim m2 As Long
Dim d2 As Long
Dim y2 As Long
Dim Totaldays As Long
Dim i As Long

Totaldays = (y2 - y1) * 365
' 30 day months: september 9 april 4 june 6 november 11
' 28 day months: february

For i = m1 To m2 - 1
If i = 4 Or i = 6 Or i = 9 Or i = 11 Then
Totaldays = Totaldays + 30
Else
If i = 2 Then
Totaldays = Totaldays + 28
Else
Totaldays = Totaldays + 31
End If
Next i


Name = txtname.Text
Book = txtbook.Text
CheckMonth = txtcheckmonth.Text
CheckDay = txtcheckday.Text
CheckYear = txtcheckyear.Text

picfee.Print Name; " now owes for the book " & Book; " that was was checked out on " & CheckMonth; "-" & CheckDay; "-" & CheckYear

End Sub

Private Sub Form_Load()
lbldate.Caption = Format(Now, "dddd, mmmm, dd, yyyy")
m1 = Month(Now)
d1 = Day(Now)
y1 = Year(Now)
txttodaymonth.Text = m1
txttodayday.Text = d1
txttodayyear.Text = y1
End Sub

Private Sub Timer1_Timer()
If lbltime.Caption <> CStr(Time) Then
lbltime.Caption = Time
End If
End Sub

[The Hobo]

Difference between two dates:

Private Sub Form_Load()
Dim dDate As Date
 
  dDate = "11/28/02"
  
  MsgBox DateDiff("s", today, dDate)
End Sub

Gives you the number of seconds of difference.

[The Hobo]

This is a function I wrote awhile ago:

Public Function GetRemaining(ByVal i As Long) As String
Dim strString As String
  
  'get number of days:
  If Abs(i \ 86400) <> 0 Then
    strString = Abs(i \ 86400) & " days, "
  End If
  i = i Mod 86400
  
  'get number of hours:
  If Abs(i \ 3600) <> 0 Then
    strString = strString & Abs(i \ 3600) & " hours, "
  End If
  i = i Mod 3600
  
  'get number of minutes:
  If Abs(i \ 60) <> 0 Then
    strString = strString & Abs(i \ 60) & " minutes "
  End If
  i = i Mod 60
  
  'get number of seconds:
  strString = strString & i & " seconds"
 
  GetRemaining = strString
End Function

Just use the DateDiff() function to get the number of seconds, then pass it to the function to get a formatted string with days, minutes and seconds.

[Supreme Cookie]

um... i don't think you quite got what i'm trying to do. check the attached file and see what i'm trying to do. Attached is the project and frm. PLZ HELP if you can figure out the code just paste it in and post back.

[Supreme Cookie]

the time is irrelivant i just need the difference between two dates like today and 11/23/1976

[But_Why]

Use the DateDiff function. It doesn't need to return seconds it can return days, weeks months years and the like.

Look it up in the Help. Or type in the name, move over it and hit F1.

[The Hobo]

Originally posted by Supreme Cookie
the time is irrelivant i just need the difference between two dates like today and 11/23/1976

Then do this:

Private Sub Form_Load()
Dim dDate As Date
 
  dDate = "11/28/02"
  
  MsgBox DateDiff("d", Now, dDate)
End Sub

[The Hobo]

Originally posted by Supreme Cookie
um... i don't think you quite got what i'm trying to do. check the attached file and see what i'm trying to do. Attached is the project and frm. PLZ HELP if you can figure out the code just paste it in and post back.

No one's going to do your homework for you. We give you code, you find out how to incorporate it.

If someone reposts your code but completely working, I'm going to be horribly disappointed that they'd do such a thing.

[But_Why]

Originally posted by The Hobo
If someone reposts your code but completely working, I'm going to be horribly disappointed that they'd do such a thing.

agreed.

[Supreme Cookie]

your right, i'm sorry for asking thank you for your help so far.

[Supreme Cookie]

but does this method account for leap years and the whole some months have 30 days others have 31 and fabruary has 28?

[The Hobo]

Originally posted by Supreme Cookie
your right, i'm sorry for asking thank you for your help so far.

Give it a go and if you're having problems, we'd be glad to help.

[The Hobo]

Originally posted by Supreme Cookie
but does this method account for leap years and the whole some months have 30 days others have 31 and fabruary has 28?

You betcha. It's all built in there.

[Supreme Cookie]

now that's just plain fancy....

[But_Why]

Originally posted by Supreme Cookie
now that's just plain fancy....

Easy huh?

saves a ton of your code too

[The Hobo]

And it cuts out a lot of code too.

[Supreme Cookie]

hmmm....i'm doing something wrong but i'm not sure why it's won't let me use variables here where it days ddate = m2/d2/y2

sorry if I sound like a real n00b but that's what i am

[Supreme Cookie]

Option Explicit
Dim d1 As Long
Dim m1 As Long
Dim y1 As Long
Private Sub cmdcompute_Click()
picfee.Cls
Dim Name As String
Dim Book As String
Dim CheckMonth As String
Dim CheckDay As String
Dim CheckYear As String
Dim m2 As Long
Dim d2 As Long
Dim y2 As Long
Dim dDate As Date
txtduemonth.Text = m2
txtdueday.Text = d2
txtdueyear.Text = y2
dDate = m2 / d2 / y2 <---see there i think is where i'm messing up

MsgBox DateDiff("d", Now, dDate)


Name = txtname.Text
Book = txtbook.Text
CheckMonth = txtcheckmonth.Text
CheckDay = txtcheckday.Text
CheckYear = txtcheckyear.Text

picfee.Print Name; " now owes for the book" & Book; " that was checked out on" & CheckMonth; " - " & CheckDay; " - " & CheckYear; ""

End Sub

Private Sub Form_Load()
lbldate.Caption = Format(Now, "dddd, mmmm, dd, yyyy")
m1 = Month(Now)
d1 = Day(Now)
y1 = Year(Now)
txttodaymonth.Text = m1
txttodayday.Text = d1
txttodayyear.Text = y1

End Sub


Private Sub Timer1_Timer()
If lbltime.Caption <> CStr(Time) Then
lbltime.Caption = Time
End If
End Sub

[The Hobo]

pretty close. Since \ is part of a string, you need to surround it with quotes:

dDate = m2 & "/" & d2 & "/" & y2

[Supreme Cookie]

ahh good call thx

[The Hobo]

and the & sign is the concea...tation character. It adds parts of strings together. (sorry, I can never remember that 'c' word)

But:

Msgbox "Dog" & " is " & "cool!"

Will give you "Dog is cool!" in the MessageBox.

[But_Why]

You see how you're formatting the lblCaption date, do the same with your d2-m2-y2 thingame when you put it into the date variable.

eg

    dim x as date
    x = format(days1 & "-" & months1 & "-" & years1, "dd-mmm-yyyy")

oh and the word is concatenation... (kon-cat-in-ay-shon)
(ok pick the dude that was a human dictionary in school)

[Supreme Cookie]

hmmmm.....it keeps wanting an end of statement after i formated it like you have it there i even tried semicolons and no dice it keeps highlighting the "/"

[Supreme Cookie]

ok cool let me try it

[But_Why]

Oh you may want to format it the way you use it over there
eg
mm-dd-yyyy
instead of
dd-mm-yyyy

[Supreme Cookie]

for the date diff what is the interval as string thing??

[The Hobo]

Originally posted by Supreme Cookie
for the date diff what is the interval as string thing??

If you want days, it's "d" with quotes around it.

[But_Why]

The Help file has all the variations for that... look in there for more

[Supreme Cookie]

ah ok i gotcha now should i dim the m2, y2 and d2 as date or shall i leave them as long?

[But_Why]

leave em long

[Supreme Cookie]

otay i left em long *snickers* but now i'm getting a type mismatch error on the dDate = line

[The Hobo]

You could leave them as long, but I'd put them as integer, since they won't be even close to 32676. And integers only use 16 bytes of memory, rather than 32.

But it doesn't really matter

[The Hobo]

Originally posted by Supreme Cookie
otay i left em long *snickers* but now i'm getting a type mismatch error on the dDate = line

What's your exact line?

[Supreme Cookie]

ok but i still don't understand the error i'm getting

[But_Why]

what does your "line" equal?

[Supreme Cookie]

i get a type mismatch on this line:

dDate = Format(m2 & "-" & d2 & "-" & y2, "mm-dd-yyyy")

[But_Why]

damn i'm too slow at this

[Supreme Cookie]

lol

[The Hobo]

Originally posted by Supreme Cookie
i get a type mismatch on this line:

dDate = Format(m2 & "-" & d2 & "-" & y2, "mm-dd-yyyy")

If you're adding the hypens in manually (which you are), then you don't need format.

[The Hobo]

If you just do this:

dDate = m2 & "-" & d2 & "-" & y2

Do you get an error?

And all three of those variables are declared Long?