Fórum Função para atualizar BD #257019

Caros Colegas do Forum,

Tenho uma tabela * Create table Tempo (Mes_Ano varchar(7), Peso Float)

Porem esta tabela encontra-se com registros da seguinte forma:

Mes_Ano = 12/2003 | Peso = 1,0
Mes_Ano = 01/2004 | Peso = 0,5
Mes_Ano = 02/2004 | Peso = 0,5
Mes_Ano = 03/2004 | Peso = 0,5
Mes_Ano = 04/2004 | Peso = 0,5
Mes_Ano = 05/2004 | Peso = 0,5
Mes_Ano = 06/2004 | Peso = 0,5

Gostaria de saber como posso inserir automaticamente um novo registro na tabela e ao mesmo tempo atualizar minha BD, a cada mes da seguinte forma (ou melhor a cada inicio de mes):

a) Nos primeiros 6 meses (contando com o mês atual) o peso é 0,5
b) Nos 6 meses sob sequentes o peso é 1,0
c) E depois desses 6 meses o restante recebe o peso de 1,5

Aproposito, utilizo o InterBase 6 e o Delphi 6. Por favor me responda, na forma de função ou procedure.

De ante mão, obrigado pela atenção de todos 8)