Come arrivare all'inizio e alla fine del mese precedente in VB

Question

Sto cercando di creare un codice VB che otterrà l'inizio e la fine del mese precedente. Im in grado di mese in corso, che è solo:

Month(DateValue(Now)) 

che sarebbe tornato 3. Da lì posso togliere 1 di darmi 2 significato febbraio. Questo va bene, ma che dire di quando sono in gennaio e lo ripeto e mi dà zero - il mio codice fallirà. Qualcuno sa come ottenere i mesi precedenti inizio e fine giorno, allora?

Grazie

Answer 1

Il primo giorno del mese precedente è sempre 1, per ottenere l'ultimo giorno del mese precedente, utilizzare 0 con DateSerial:

''Today is 20/03/2013 in dd/mm/yyyy 
DateSerial(Year(Date),Month(Date),0) = 28/02/2013 
DateSerial(Year(Date),1,0) = 31/12/2012 

è possibile ottenere il primo giorno da quanto sopra in questo modo:

LastDay = DateSerial(Year(Date),Month(Date),0) 
FirstDay = LastDay-Day(LastDay)+1 

Consulta anche: How to caculate last business day of month in VBScript

Answer 2

Prova questo per ottenere il mese in forma di numero:

Month(DateAdd("m", -3, Now)) 

Vi darà 12 per dicembre.

Quindi nel tuo caso dovresti usare Month(DateAdd("m", -1, Now)) solo per un mese.

Answer 3

firstDay = DateSerial(Year(DateAdd("m", -1, Now)), Month(DateAdd("m", -1, Now)), 1) 
lastDay = DateAdd("d", -1, DateSerial(Year(Now), Month(Now), 1)) 

Questo è un altro modo per farlo, ma io t La versione di Remou sembra più pulita.

Answer 4

devo formula simile per il primo e ultimo giorno

Il primo giorno del mese

FirstDay = DateSerial(Year(Date),Month(Date),1) 

Lo zero Giorno del mese successivo è l'ultimo giorno del mese

LastDay = DateSerial(Year(Date),Month(Date)+ 1,0) 

Answer 5

Solo per aggiungere qualcosa a ciò che @Fionnuala ha detto, Le seguenti funzioni possono essere utilizzate. Funzionano anche per gli anni bisestili.

'If you pass #2016/20/01# you get #2016/31/01# 
Public Function GetLastDate(tempDate As Date) As Date 
    GetLastDate = DateSerial(Year(tempDate), Month(tempDate) + 1, 0) 
End Function 

'If you pass #2016/20/01# you get 31 
Public Function GetLastDay(tempDate As Date) As Integer 
    GetLastDay = Day(DateSerial(Year(tempDate), Month(tempDate) + 1, 0)) 
End Function