CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede hein Nybegynder
22. maj 2001 - 10:52 Der er 5 kommentarer og
1 løsning

Formatter til dato

Hvordan formater man en streng/int som denne 20010110 til noget som Access/VisualBasic forstår som en dato.
Tallet 20010110 er trukket ud af en streng med en VB funktion:
Mid(c.CRYPTCERTIFICATE,InStr(1,c.CRYPTCERTIFICATE,\'+4:\')+3,8) AS CertDate
På forhånd tak
Avatar billede proaccess Nybegynder
22. maj 2001 - 10:59 #1
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
Avatar billede terry Ekspert
22. maj 2001 - 11:02 #2
myDate = Mid(CertDate, 1, 4) & \"/\" & Mid(CertDate, 5, 2) & \"/\" & Mid(CertDate, 7, 2)
Avatar billede terry Ekspert
22. maj 2001 - 11:03 #3
Dim myDate as Date
Avatar billede proaccess Nybegynder
22. maj 2001 - 11:07 #4
And you could use...

Public Function BeregnDatoFraHeltal(lngDato As Long) As Date
  BeregnDatoFraHeltal = DateSerial([lngDato] \\ 10000, ([lngDato] Mod 10000) \\ 100, [lngDato] Mod 100)
End Function

Which still returns the same...
Avatar billede terry Ekspert
22. maj 2001 - 11:13 #5
and....
Avatar billede johs_j Novice
22. maj 2001 - 17:10 #6
format(tal, \"yyyy mm dd\")
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Me.Form.Painting = True/False ore Me.Painting = True/false Af per2edb i Access 3 03/11/202416:41 03/11/202418:05
Fejl i Combobox med RowSourceType = "Value List" Af per2edb i Access 10 29/10/202414:32 01/11/202408:46
Hvordan åbnes en fil med extension accde vha koder Af per2edb i Access 7 24/10/202412:07 24/10/202418:08
hjælp til problem med filtrering af formular Af dsj1972 i Access 7 15/10/202413:19 21/10/202412:35
Læse/skrive til USB-port Af Mogens i Access 1 13/10/202416:32 13/10/202417:36
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 15:53 Ccleaner og Avast Premium Af nu_igen i Andet software
I går 14:41 Fremme e-mail konti, YouSee Webmail, i Outlook.com (gratis) Af mort1 i E-mail programmer
I går 13:13 Returnere korrekt værdi ved dubletter Af karina1971 i Excel
I går 08:56 HP support Af gerhardpet i Printere
03/1116:41 Me.Form.Painting = True/False ore Me.Painting = True/false Af per2edb i Access
White papers
Flere white papers »


Premium
Teaser billede
Forslag til dansk AI-lov sendes nu i høring: Skal træde i kraft om få måneder - se det her
Læs mere »
It-leverandør ramt af flodbølge af erstatningskrav fra kunder efter cyberangreb
Vokseværk: Så meget er Digitaliseringsstyrelsen vokset på to år
Microsoft: Sådan stjæler hackere data fra vores kunder
Se alle »
Computerworld
Teaser billede
Russisk domstol: Google skal betale 20 kvintilliarder dollar i bøde - fordobles løbende
Læs mere »
Test: Det er nærmest vanedannede at anvende disse mini-tastaturer
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Test af Apple Watch Series 10: Apples jubilæums-model er blevet lidt af en mester af det hele
Se alle »
CIO
Teaser billede
It-leverandør ramt af flodbølge af erstatningskrav fra kunder efter cyberangreb
Læs mere »
Novo Nordisk satsede på HoloLens, men nu har Microsoft dræbt produktet
Microsoft: Sådan arbejder Google målrettet på at skade os i det skjulte
Jyske Bank er en af de største ejere af Bankdata – men nu har banken købt et nyt system hos konkurrenten BEC
Se alle »
Job & Karriere
Teaser billede
Pludselig exit fra Schultz kom som en overraskelse for Merete Søby: Derfor stoppede samarbejdet
Læs mere »
Danske Aeven flytter hele hovedkontoret med 600 medarbejdere til ny adresse og tager Sentia med
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Top-profilen Helle Huss ny direktør i Microsoft Danmark - tiltræder om to måneder
Se alle »
White paper
Teaser billede
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Nemmere overblik, styring og omkostningskontrol i dit multicloud-miljø
Sådan får du overblik og beskytter dine cloudapplikationer
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »