dim Fecha as datefecha=format(now,"dd-mm-yy")label1=fecha
label1=format(now,"dd-mm-yy")
Dim iMes% iMes = Month(Date)
dim Fecha as datefecha=month(now)label1=fecha
label1=month(now)