26-04-23, 14:30
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλησπέρα Παναγιώτη
Δοκίμασε Κώδικας: Private Sub ΑΜΚΑ_AfterUpdate()
Dim x As String
x = DateSerial(Mid(ΑΜΚΑ, 5, 2), Mid(ΑΜΚΑ, 3, 2), Mid(ΑΜΚΑ, 1, 2))
Me.ΗμΓέννησης = Format(x, "dd\/mm\/yyyy")
End Sub
|