Konvertering af et tal felt til dato/klokkeslæt

ja, men hvordan ser dine talfelter ud ?

feltstørrelse: reelt tal
format: fast
antal decimaler 1

er det oplysninger nok?

du kan lave et modul som ser sodan ud

Public Function BeregnDatoFraHeltal(X As Long) As Date
  If X > 0 Then
    Dim Y As String
    Y = Trim(Str(X))
    BeregnDatoFraHeltal = DateSerial(Left(Y, 4), Mid(Y, 5, 2), Right(Y, 2))
  Else
    BeregnDatoFraHeltal = DateSerial(1990, 1, 1)
  End If
End Function


det skule klare dete.

faroe>> kan jeg placere den som en hændelse i feltet [røretid]?

Hej Niels,

Jeg fik din mail og har kigget lidt på det:

Funktioenen skal nok snarre se således ud (da det er klokkeslet og ikke datoer, du arbejder med):

Public Function BeregnDatoFraHeltal(X As Long) As Date
  If X > 0 Then
    Dim Y As String
    Y = Trim(Str(X))
    BeregnDatoFraHeltal = TimeSerial(Left(Y, 2), Mid(Y, 3, 2), 0)
  Else
    BeregnDatoFraHeltal = 0
  End If
End Function

Denne kode placerer du så i et globalt modul, hvorefter du kan bruge funktioenen i en forespørgsel eller en formular (eller selvfølgelig i en anden VBA funktion)

Håber, det hjælper!?

/Thomas

Hej Thomas,
Det jeg vil have funtionen til er når brugeren har indtastet et antal minutter i feltet [røretid] at omregne dette til timer og minutter som kan lægges til tidspunktet i feltet [hensat kl. dette skal ske i et tredje felt.

Niels

OK, så skal du lægge koden på EfterOpdatering på [Røretid].
Koden kan sø se således ud:

  If Me!Røretid > 0 Then
    Dim Y As String
    Y = Trim(Str(Me!Røretid))
    ME![Hensat kl] = TimeSerial(Left(Y, 2), Mid(Y, 3, 2), 0)
  Else
    Me![Hensat kl] = 0
  End If

Er det bedre?

/Thomas

Ikke helt,

Jeg får en runtime error\'13\'
type mismatch, på denne linie
Me![a] = TimeSerial(Left(Y, 2), Mid(Y, 3, 2), 0)

Jeg har løst runtime error\'en:
den skal se sådan ud for at ændre et almindeligt tal til timer:minutter
Y = Trim(Str(Me.Total_røretid))
    Me.a = TimeSerial(0, Y, 0)