Je was op zoek naar: sdate (Frans - Duits)

dim sdate as string
dim sdate as string

if sdate < stoday then
if sdate < stoday then

elseif sdate > stoday then
elseif sdate > stoday then

sdate = dateserial(1964, 4, 9)
sdate = dateserial(1964, 4, 9)

dim ddate as double, sdate as string
dim ddate as double, sdate as string

msgbox sdate rem renvoie 04/09/1964
msgbox sdate rem liefert 09.04.1964

sdate = inputbox( " saisissez la date d'expiration (mm.jj.aaaa). " )
sdate = inputbox( " bitte geben sie das verfalldatum ein (tt.mm.jjjj) " )

sdate = right$(sdate, 4) + mid$(sdate, 4, 2) + left$(sdate, 2)
sdate = right$(sdate, 4) + mid$(sdate, 4, 2) + left$(sdate, 2)