COMO FAZER O MES DA DATA COMO VARIAVEL

MARCIOLOPES1967 23/10/2013 09:19:06
#430297
Preciso que o mes varie em uma data, porem o dia e ano devem ser fixos

Por exemplo:
uma mercadoria entregue ate o dia 5 do mes devera ser entregue no dia 30
uma mercadoria entregue apos o dia 5 do mes devera ser entregue no dia 30 do outro mes

Nao sei como colocar o maes como variavel na data, ou seja, 30/uma variavel/2013 tentei estes codigos:
Dim oldday, oldmes, data1 As Integer
Dim data2 As Date
data2 = data.Text
oldday = Microsoft.VisualBasic.DateAndTime.Day(data2)
oldmes = Microsoft.VisualBasic.DateAndTime.Month(data2)
data1 = # 30/@oldmes/2013 #
oldday para resgatar o dia e comparar se o dia da entrega da mercadoria e antes ou depois do dia 5
oldmes para somar 1 ou nao ao mes dependendo da sentenca anterior (antes ou depois do dia 5)
data1 nao sei como formar esta data????

Se alguem puder me ajudar agradeço.
DAMASCENO.CESAR 23/10/2013 10:47:22
#430305 Resposta escolhida
Márcio, um dos erros é que vc está declarando a data1 como integer e é date.

acertei seu código, espero que funcione pra vc

Dim oldday, oldmes As Integer
Dim data2, data1 As Date
data2 = Data.Text
oldday = Microsoft.VisualBasic.DateAndTime.Day(data2)
oldmes = Microsoft.VisualBasic.DateAndTime.Month(data2)
If oldday > 5 Then
oldmes += 1
data1 = [Ô]30/[Ô] & oldmes & [Ô]/2013[Ô]

Else
data1 = [Ô]30/[Ô] & oldmes & [Ô]/2013[Ô]
End If
[ô] aqui é só pra mostrar a data
MsgBox(data1)
MARCIOLOPES1967 23/10/2013 11:04:43
#430307
Muito Obrigado DAMACENO

Esta funcionando perfeitamente.

Irei encerrar o topico.

Grato.
Tópico encerrado , respostas não são mais permitidas
Voltar