if upper(tablest.dia)="MONDAY" OR upper(tablest.dia)="TUESDAY" OR upper(tablest.dia)="WEDNESDA" OR upper(tablest.dia)="THURSDAY" OR UPPER(tablest.dia)="FRIDAY" then if hour(tablest.finicio)>=8 and hour(tablest.finicio)<17 then XLSheet.Cells(i+1,21).value = "5x8" &&tablest.jornada endif ELSE *if UPPER(tablest.dia)="SATURDAY" or UPPER(tablest.dia)="SUNDAY" then if hour(tablest.finicio)>=8 and hour(tablest.finicio)<17 then XLSheet.Cells(i+1,21).value = "7x24" endif * else if (hour(tablest.finicio)>=17 and hour(tablest.finicio)<0) or (hour(tablest.finicio)>=0 and hour(tablest.finicio)<8) then XLSheet.Cells(i+1,21).value = "7x24" endif endif