Tid fra Dato1 til Dato2

Total antal dage:

Dim dtFoed as date
Dim dtNow as date

dtFoed = "09-12-1985"
dtNow = date

msgbox = dtFoed - dtNow

Check DateDiff i hjælp

skal der være et = i "msgbox = dtFoed - dtNow"

datediff("d", Foedsel, Nu)

her er en der splitter det op:

Sub dato()
  Dim dtFoed As Date, dtNu As Date
  Dim intDag As Integer, intMnd As Integer, intAar As Integer
 
  dtFoed = #12/19/85#
  dtNu = Date

  intAar = Year(dtNu) - Year(dtFoed)
  If dtNu < DateAdd("yyyy", intAar, dtFoed) Then
    intAar = intAar - 1
  End If
  dtFoed = DateAdd("yyyy", intAar, dtFoed)
 
  intMnd = DateDiff("m", dtFoed, dtNu)
  If dtNu < DateAdd("m", intMnd, dtFoed) Then
    intMnd = intMnd - 1
  End If
  dtFoed = DateAdd("m", intMnd, dtFoed)
 
  intDag = DateDiff("d", dtFoed, dtNu)

  MsgBox "År" & Chr(9) & intAar & Chr(10) & _
        "Måneder " & Chr(9) & intMnd & Chr(10) & _
        "Dage " & Chr(9) & intDag & Chr(10)
End Sub

Niels

Eller hvis man bare har brug for en simpel løsning:

Difference = Dato1 - Now().ToString

Og så kan man jo fylde differencen i hvad man vil:
textbox.text = Difference
Label.text = Difference