datum omzetten in cijfers

• 

  peter

  16-06-2005 11:57

  Hallo,

  weet iemand of er een functie is om een datum om te zetten in een getal?

  ik heb bijvoorbeeld dit: 24-5-04 en dit moet worden: 20040524

  nu doe ik het nogal omslachtig. namelijk eerst in excel de datum omzetten in 24-04-04 en dit importeren in access als tekst. vervolgens deze functie:

  datum: 20 & right(;2) & mid(;4;2) & left(;2)

  het lijkt me handiger het met een speciale gedefinieerde functie te doen. en sneller
• 

  B.

  16-06-2005 12:37

  waarom gebruik je niet als datum notitie yyyymmdd?

  of

  format$(;“yyyymmdd”;0;0)

  Dan staat er toch een datum notitie in, maar wel in de ly-out die je wil, en je kunt er dan nog steeds mee blijven rekenen…. (Veldnaam -/- Now() bijvoorbeeld).

  Succes,

  B.
• 

  RV2

  16-06-2005 13:05

  Waarom?

  Ik neem aan dat er een rden is om datums te gebruiken.

  Lekker laten staan dus en niet converteren.

  RV2
• 

  Frank

  16-06-2005 19:05

  Aannemende dat jouw datum een string is de volgende functie de oplossing:

  Public Function CvDate(dDatum As String) As String

  Dim sDag As String, sMnd As String, sJaar As String

  Dim iPos As Integer

  sJaar = Right(dDatum, 2)

  iPos = InStr(1, dDatum, “-”)

  sDag = Left(dDatum, iPos - 1)

  iPos = InStr(iPos + 1, dDatum, “-”)

  sMnd = Mid(dDatum, InStr(1, dDatum, “-”) + 1, iPos - InStr(1, dDatum, “-”) - 1)

  CvDate = Format(sDag, “0#”) & “-” & Format(sMnd, “0#”) & “-” & “20” & sJaar

  End Function

  Gebruik: NwFormaat = CvDate(DatumBestaandeFormaat)

  Succes,

  Frank
• 

  Frank

  16-06-2005 19:25

  Foutje, de regel:

  CvDate = Format(sDag, “0#”) & “-” & Format(sMnd, “0#”) & “-” & “20” & sJaar

  moet zijn:

  CvDate = “20” & sJaar & Format(sMnd, “0#”) & Format(sDag, “0#”)

  Frank