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
Åbne formular i dataark Af hlnviv i Access 2 30/01/202506:58 30/01/202509:08
Ingen dubletter i datatype Link Af hlnviv i Access 3 28/01/202514:15 28/01/202518:59
konverter fra .mdb til .accdb Af hlnviv i Access 2 27/01/202510:03 27/01/202510:31
Combobox med spærret input Af per2edb i Access 1 24/01/202511:59 24/01/202512:00
Syntaksfejl, fordi der mangler en operator Af Rene i Access 3 23/01/202519:40 23/01/202520:00
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
60 min siden Youtube Premium og Tyrkiet Af tobberjas i Andet netværk
I går 23:15 Edge fejlagtigt afinstalleret Af Nysum i Browsere
I går 20:37 Bærbar med drev Af LauraBoje98 i PC
I går 18:25 Tablet 10 til 12" som også kan bruges som telefon Af eksmojo i Mobiltelefoner
I går 16:58 Ny adgangskode Af Gekko05 i E-mail programmer
White papers
Flere white papers »


Premium
Teaser billede
Efter salg af VMware: Mangeårig landechef Lars-Bo Klausen fratræder - vil ikke fortælle hvorfor
Læs mere »
Trump skaber bekymring om amerikanske cloud-aftaler blandt svenske myndigheder: Holder nøje øje med markedet
Tusindvis af private GitHub-lagre kan tilgås via Copilot
Efter svært 2024: Trifork nedjusterer, skærer i topledelsen og fortsætter spareplan
Se alle »
Computerworld
Teaser billede
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Læs mere »
Vi prøvekører den nye Tesla Model Y: Man kan sige hvad man vil om Elon Musk, men han kan saftsuseme godt bygge biler
Ny mikro-pc er mindre end en spillekonsol og byder på super-evner
Ugen i tech: Denne mobil løber (nok) aldrig tør – har strøm til seks måneder / Tesla ser ud til at fjerne udskældt model 3 feature / Her er alle priserne på den nye Model Y
Se alle »
CIO
Teaser billede
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Læs mere »
Kommunale it-chefer håber, at Microsoft kommer til fornuft: "Det er helt grotesk"
Offentlige virksomheder hjemtager ejerskab af deres it: Her er årsagerne
Microsoft svarer på kritik fra kommunale it-chefer: "Vi evaluerer løbende feedback"
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Lønninger i den danske it-branche fortsætter med at stige - så meget tjener de danske it-folk i gennemsnit
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Se alle »
White paper
Teaser billede
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Læs mere »
Se alle »

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