Visual Basic - como puedo convertir la fecha actual a fecha agraria ej: 06-01-2016 fecha agraria 0306

Life is soft - evento anual de software empresarial
   
Vista:

como puedo convertir la fecha actual a fecha agraria ej: 06-01-2016 fecha agraria 0306

Publicado por elizabeth (1 intervención) el 07/01/2016 19:29:55
Estimados como puedo convertir fecha actual a fecha agraria ej: la fecha actual es 06-01-2016 lo necesito en fecha agraria o agronomica 0306 siendo que 03 = mes y 06 = día.

las fechas agrnomicas el primer mes es 01 es noviembre.

01= nov.
02= dic
03= ene
04= febr
05= mar
06= abr
07= may
08= jun
09= jul
10= agos
11= sept
12= oct.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

como puedo convertir la fecha actual a fecha agraria ej: 06-01-2016 fecha agraria 0306

Publicado por Juan Gilberto (278 intervenciones) el 08/01/2016 20:38:01
Puedes utilizar varios metodos

Una secuencia de IF

Una estructura de SELECT-CASE

Un algoritmo diseñado por ti


Ejemplo con IF
1
2
3
4
5
6
7
8
9
10
11
12
Dim FechaActual As Date
Dim MesAgro As Integer
Dim FechaAgro as String
 
FechaActual = Date
 
If Month(FechaActual) = 1 Then  MesAgro =3
If Month(FechaActual) = 2 Then  MesAgro =4
If Month(FechaActual) = 3 Then  MesAgro =5
If Month(FechaActual) = 4 Then  MesAgro =6
'...asi hasta diciembre
FechaAgro = Format(MesAgro,"00") & Format(Day(FechaActual,"00")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo

como puedo convertir la fecha actual a fecha agraria ej: 06-01-2016 fecha agraria 0306

Publicado por Andres Leonardo (702 intervenciones) el 10/01/2016 15:38:34
Pues yo le haria una suma de 2 al mes de la fecha y si ese resultado es mayor que 12 le restas 12

algo asi

1
2
3
4
5
6
Mes =  Mes + 2
IF MES > 12 then
     Mes =  Mes - 12
End If
 
FechaAgro = Format(MES,"00") & Format(Day(Date,"00")

Con esto tienes el mes inicio noviembre

si es Enero que es 1 le sumas 2 te da mes igual a 3 es el mes que dices
si es noviembre 11 + 2 igual 13 menos 12 te da UNO y queda como el primer mes ....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar