Dúvida com datas no Visual Basic 6

[bartsimpson]

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.

[index.xp]

bem... se você resolver o VB.net o que e bem superior ao VB 6 você nem precisa... o .net tem uma função: system.datetime que possui varios metodos inclusive o subtract que atraves dele você subtrai qualquer quantidade de tempo... mas em VB 6 eu nao tenho a minima ideia

ai resolvendo o seu problema...

if (System.DateTime.Today.DayOfWeek.ToString() == "monday")

{

sua_variavel_la = (System.DateTime.Today.Subtract(System.TimeSpan.FromDays(2)));

}

else

{

sua estrutura normal la;

}