I need Help

[Ramibn1]

Hi guys
i'm new to the place here
& i need some help ...
i want to make a program that calculate the deffernece between to dates & times so it would give me the result as:
..Days .. Hours..Mins. ..Sec.
what do i have to do or at least is there any related sites to this matter
thanks.
rami

[jim mcnamara]

Dim tmp as date
tmp = DateDiff(newdate,olddate)
tmp = format("dd hh:mm:ss",tmp)

where newdate and olddate are times or date/times. Look up Format function in help and you may see a format option that suits your specifications better - like long date - time format.

[Ramibn1]

thank you Jim for replying
acctually what i want is suppose i want to calculate how many days,hours,mins,secs. for xmas to come so
i use this code:
Private Sub Timer1_Timer()
Dim TheDate As Date ' Declare variables.
TheDate = "25/12/2001 12:00:00 AM"
Label1.Caption = DateDiff("d", Now, TheDate) & "days" & DateDiff("h", Now, TheDate) & "Hours" & DateDiff("n", Now, TheDate) & "Minutes" & DateDiff("s", Now, TheDate) & "Seconds"
Label2.Caption = Format(Time, "long time")
End Sub
but still it's not giving me the exact hours & mins .. do i have to change something or not sure yet
thank u again

[HeSaidJoe]

'your program is doing what you ask of it. "" GIGO"
'You asked for the time difference in days, the difference in hours,
'the difference in minuites & the difference in seconds
'
'you merely forgot to express it as HH/MM/SS left in the day and not the total time
'from now to Christmas.
'
Option Explicit

Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 100
End Sub


Private Sub Timer1_Timer()
   Dim rightnow, daysleft, hoursleft, minutesleft, theDate, secondsleft
   theDate = "25/12/2001 12:00:00 AM"
   rightnow = Now  ' Now returns the current date/time.
   daysleft = DateDiff("d", Now, theDate)
   'functions for current hour/minuite/second
   hoursleft = 24 - Hour(rightnow)
   minutesleft = 60 - Minute(rightnow)
   secondsleft = 60 - Second(rightnow)
   Label1.Caption = daysleft & " days " & hoursleft & " hours " & _
     minutesleft & " minutes " & _
     secondsleft & " seconds "
   Label2.Caption = Format(Time, "long time")

If Now = theDate Then
   Timer1.Enabled = False
   Exit Sub
End If

End Sub

[Ramibn1]

thank you very much buddy
for replying & helping me with this
i'm so greatfull to u