FUNCTION descobreODia(tnDaquiAQuantasSemanas AS Integer)
    LOCAL ldData AS Date
    LOCAL lnHoje AS Number

    m.ldData = DATE()
    m.lnHoje = DOW(DATE())
    
    RETURN ldData + (7*tnDaquiAQuantasSemanas) - (lnHoje - 1)
    
ENDFUNC