22. maj 2001 - 10:52Der 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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
Public Function BeregnDatoFraHeltal(lngDato As Long) As Date BeregnDatoFraHeltal = DateSerial([lngDato] \\ 10000, ([lngDato] Mod 10000) \\ 100, [lngDato] Mod 100) End Function
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.