NA, egy kis továbbfejlesztés, saját függvény, 2 paraméteres (bár lehetne fejlesztgetni még:
Public Function Datum_szoveg(a As Long, b As Long)
'
' Makró1 Makró
' Dátuméték; Második paraméter: ha 0, akkor XXXXYYZZ formában, ha nem 0, akkor XXXX.YY.ZZ.formában adja vissza SZÖVEGként a dátumot
'
'
c = Year(a)
d = Month(a)
e = Day(a)
If d * 1 < 10 Then d = "0" & d
If e * 1 < 10 Then e = "0" & e
If b = 0 Then Datum_szoveg = c & d & e Else Datum_szoveg = c & "." & d & "." & e & "."
End Function
.
