Dúvida com datas no Visual Basic 6

[bartsimpson]

Dúvida com datas no Visual Basic 6

Olá pessoal, estou começando agora a programar em Visual Basic e estou com um problema.

Tenho uma tela que o usuário insere cotação do dólar, e quando é inserido, o sistema registra essa cotação para o dia anterior a essa data.

EX: Insiro numa terça-feira (dia 28) que o dólar está R$2,50, então o registro ficará contando que no dia 27, o dolar estará com R$2,50.

Porém, um erro está ocorrendo e não estou conseguindo resolver, quando eu insiro a cotação nas segundas-feiras, o dia fica contando como domingo, já que ele pega um dia anterior.

Como faço para poder verificar se o dia é uma segunda-feira?

Segue abaixo o código atual:

If Trim(LblDCom.Caption) = "US$ 0,0000" Then

sql = "Insert into Indicadores values ('"

sql = sql & Format(Date - 1, "yyyy-mm-dd")

Muito obrigado pela ajuda,

Bart.