Dúvida_MSFlexGrid

[Vick]

Oi pessoal, gostaria mais uma vez da ajuda de vocês.

Preciso fazer uma agenda de marcação de consulta.

O problema: preciso preencher a primeira coluna do MSFLEXGRID(estou usando VB6) com as datas (tipos: 01/03/11 - terça, 02/03/11 - quarta, etc...) gostaria de saber se tem como colocar estes dias por meio de código, sem precisar por na mão, pois senão terei que digitar todos os dias dos meses: janeiro, fevereriro, março, abril, etc.... :blink:

Por exemplo - este é o mês de março que digitei, com os outros meses, vai ficar maior ainda.

'Adiciona dados na primeira coluna
    GrdConsulta.Col = 0
    GrdConsulta.Row = 1
    GrdConsulta.Text = "1" 
    GrdConsulta.Row = 2
    GrdConsulta.Text = "2"
    GrdConsulta.Row = 3
    GrdConsulta.Text = "3"
    GrdConsulta.Row = 4
    GrdConsulta.Text = "4"
    GrdConsulta.Row = 5
    GrdConsulta.Text = "5"
    GrdConsulta.Row = 6
    GrdConsulta.Text = "6"
    GrdConsulta.Row = 7
    GrdConsulta.Text = "7"
    GrdConsulta.Row = 8
    GrdConsulta.Text = "8"
    GrdConsulta.Row = 9
    GrdConsulta.Text = "9"
    GrdConsulta.Row = 10
    GrdConsulta.Text = "10"
    GrdConsulta.Row = 11
    GrdConsulta.Text = "11"
    GrdConsulta.Row = 12
    GrdConsulta.Text = "12"
    GrdConsulta.Row = 13
    GrdConsulta.Text = "13"
    GrdConsulta.Row = 14
    GrdConsulta.Text = "14"
    GrdConsulta.Row = 15
    GrdConsulta.Text = "15"
    GrdConsulta.Row = 16
    GrdConsulta.Text = "16"
    GrdConsulta.Row = 17
    GrdConsulta.Text = "17"
    GrdConsulta.Row = 18
    GrdConsulta.Text = "18"
    GrdConsulta.Row = 19
    GrdConsulta.Text = "19"
    GrdConsulta.Row = 20
    GrdConsulta.Text = "20"
    GrdConsulta.Row = 21
    GrdConsulta.Text = "21"
    GrdConsulta.Row = 22
    GrdConsulta.Text = "22"
    GrdConsulta.Row = 23
    GrdConsulta.Text = "23"
    GrdConsulta.Row = 24
    GrdConsulta.Text = "24"
    GrdConsulta.Row = 25
    GrdConsulta.Text = "25"
    GrdConsulta.Row = 26
    GrdConsulta.Text = "26"
    GrdConsulta.Row = 27
    GrdConsulta.Text = "27"
    GrdConsulta.Row = 28
    GrdConsulta.Text = "28"
    GrdConsulta.Row = 29
    GrdConsulta.Text = "29"
    GrdConsulta.Row = 30
    GrdConsulta.Text = "30"
    GrdConsulta.Row = 31
    GrdConsulta.Text = "31"

Ah! como posso fazer para o dia da semana correspondente aparecer ao lado da data?????

Obrigada,

Vivian Mattos

[kuroi]

vick, você pode usar a funcao WeekDayName() pra pegar o nome do dia da semana (ele vai pegar baseado na lingua do sistema operacional. se você estiver usando windows em ingles por exemplo, e quiser mostrar os nomes em portugues, você pode usar um array baseado na funcao WeekDay() (q traz o dia da semana como numero, 0 = domingo, 1 = segunda, etc).

dia_da_semana = WeekDayName(WeekDay(Date()))

pra ir somando os dias, você usa a funcao DateAdd(). exemplo:

x = DateSerial(2011, 3, 30) '30/03/2011
x = DateAdd("d", 1, x) 'Soma um dia em x = 31/03/2011
x = DateAdd("d", 1, x) 'Soma outro dia em x = 01/04/2011
x = DateAdd("m", 2, x) 'Soma dois meses em x = 01/06/2011
x = DateAdd("yyyy", 1, x) 'Soma um ano em x = 01/06/2012[/code]
então você faz um for e vai chamando o DateAdd().
de uma olhada tb: http://www.macoratti.net/vb_datas.htm