Dataforskel

Se på funktionen DateDiff

kan man så i denne kode indsætte en linie som få den til at skifte farve på teksten eller feltet vis der er en værdi stører ind 3 år

Function DatoForskel(D1 As Date, D2 As Date) As String
  Dim MånederIalt As Long
  Dim AntalMåneder As Long
  Dim AntalÅr As Long
  Dim AntalDage As Long
  Dim Res As String

  MånederIalt = DateDiff("m", D1, D2)
  AntalÅr = Int(MånederIalt / 12)
  AntalMåneder = MånederIalt - (AntalÅr * 12)
  D2 = DateAdd("d", 0-MånederIalt, D2)
  AntalDage = DateDiff("d", D1, D2)

  if AntalÅr>0 then
    Res = AntalÅr & " år"
  end if

  if AntalMåneder>0 then
    if AntalÅr>0 then Res = Res & " og "
    Res = AntalMåneder & " måneder"
  end if

  if AntalDage >0 then
    if AntalÅr>0 or AntalMåneder>0 then Res = Res & " og "
    Res = AntalDage & " dage"
  end if

  DatoForskel = Res & "."
End Function

hilsen
Carsten

If AntalÅr >=0 3 then
Feltnavn.forecolour = 255
end if

mit felt hedder Alder_på_attesten
men hvor skal det sættes ind for det passer sammen med det andet

Der er sneget sig en fejl ind i koden. Sådan skL DEN SE UD:

If AntalÅr >= 3 then
Feltnavn.forecolour = 255
end if

Jeg tror det er ligemeget hvor du sætter dne ind.

jeg kan ikke få det til at virke

Skal det sættes i Modulet eller hvor ???????

lukket