You searched for: sfecha (Spanska - Engelska)

if sfecha < shoy then
if sdate < stoday then

dim sfecha as string
dim sdate as string

if sfecha &lt; shoy then
if sdate &lt; stoday then

elseif sfecha &gt; shoy then
elseif sdate &gt; stoday then

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

dim dfecha as double, sfecha as string
dim ddate as double, sdate as string

sfecha = inputbox( " escriba la fecha de caducidad (mm.dd.aaaa) " )
sdate = inputbox( " enter the expiry date (mm.dd.yyyy) " )

sfecha = inputbox(&quot;escriba la fecha de caducidad (mm.dd.aaaa)&quot;)
sdate = inputbox(&quot;enter the expiration date (mm.dd.yyyy)&quot;)

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