31. oktober 2002 - 08:48
Der er
3 kommentarer og 1 løsning
vba; Dato 301002 -> 11. februar 2724
Hvorfor får jeg ovenstående resultat med nedenstående kode. Resultatet jeg vil opnå er; 30. oktober 2002 Private Sub CommandButton1_Click() Dim dato As String dato = Format(CDate(txtdato.Text), "dd. mmmm yyyy") MsgBox dato End Sub
Annonceindlæg fra Kommando
31. oktober 2002 - 09:31
#3
Microsoft uses an interesting decimal system. Alt på venstre side er dage alt på hører side er sekunder 301002 er 301002 dage efter 30 Dec. 1899 00:00 Du skal format først Format(CDate(Left(Text1.Text, 2) & "-" & Mid(Text1.Text, 3, 2) & "-" & Right(Text1.Text, 2)), "dd. mmmm yyyy")