DiferenciaEnFechas -->Difference between Dates

Function DiferenciaEnFechas(pdFechaBase As Date, pdFecha As Date) As String
'******************************************************
'* Autor : Ricardo Ortiz
'* Ultima Modificación: 17/08/1999
'******************************************************
Dim dFechaAux As Date
Dim iYear As Integer, iMes As Integer, iDia As Integer
Dim iYearFinal As Integer
Dim iMesFinal As Integer
Dim iDiaFinal As Integer
Dim sTiempo As String, sAux As String
  iDia = DatePart("d", pdFecha)
  iMes = Month(pdFechaBase)
  iYear = Year(pdFechaBase)
  dFechaAux = DateSerial(iYear, iMes, iDia)
  iDiaFinal = DateDiff("d", dFechaAux, pdFechaBase)
  iMes = DateDiff("m", pdFecha, pdFechaBase)
  Select Case iMes
   Case Is > 0  'Pasado
     iYearFinal = iMes \ 12
     iMesFinal = iMes Mod 12
     If iDiaFinal < 0 Then
      If Month(dFechaAux) <> Month(pdFechaBase) Then 'Caso Raro
        iDiaFinal = 31 - (DatePart("d", DateAdd("d", -1, DateSerial(iYear, Month(dFechaAux), 1))))
        dFechaAux = DateAdd("m", -1, dFechaAux)
        dFechaAux = DateAdd("d", -iDiaFinal, dFechaAux)
      Else                      'Caso Normal
        dFechaAux = DateAdd("m", -1, dFechaAux)
      End If
      iDiaFinal = DateDiff("d", dFechaAux, pdFechaBase)
      
      If iMesFinal > 0 Then
        iMesFinal = iMesFinal - 1
      Else
        If iYearFinal > 0 Then
         iYearFinal = iYearFinal - 1
         iMesFinal = 11
        End If
      End If
     End If
     sTiempo = "Pasado: "
   Case Is = 0
     iYearFinal = 0
     iMesFinal = 0
     If iDiaFinal < 0 Then    'Futuro
      iDiaFinal = DateDiff("d", pdFechaBase, dFechaAux)
      sTiempo = "Futuro: "
     ElseIf iDiaFinal = 0 Then  'HOY
      sTiempo = "HOY: "
     Else             'Pasado
      sTiempo = "Pasado: "
     End If
   Case Else     'Futuro
     iMes = DateDiff("m", pdFechaBase, pdFecha)
     iYearFinal = iMes \ 12
     iMesFinal = iMes Mod 12
   
     If iDiaFinal > 0 Then
      dFechaAux = DateAdd("m", 1, dFechaAux)
      iDiaFinal = DateDiff("d", pdFechaBase, dFechaAux)
      If iMesFinal > 0 Then
        iMesFinal = iMesFinal - 1
      Else
        If iYearFinal > 0 Then
         iYearFinal = iYearFinal - 1
         iMesFinal = 11
        End If
      End If
     Else
      iDiaFinal = DateDiff("d", pdFechaBase, dFechaAux)
     End If
     sTiempo = "Futuro: "
  End Select
  
  sAux = Str(iYearFinal)
  If iYearFinal = 1 Then
   sAux = sAux & " Año, "
  Else
   sAux = sAux & " Años, "
  End If
  
  sAux = sAux & Str(iMesFinal)
  If iMesFinal = 1 Then
   sAux = sAux & " Mes, "
  Else
   sAux = sAux & " Meses, "
  End If
  
  sAux = sAux & Str(iDiaFinal)
  If iDiaFinal = 1 Then
   sAux = sAux & " Día"
  Else
   sAux = sAux & " Dias"
  End If
  
  DiferenciaEnFechas = sTiempo & sAux
End Function

Upload
#include <iostream>
using namespace std;

int main()
{
	const int max = 80; //size of array
	char str[max]; //the array of characters
	int count = 0;
	int i = 0;
	
	cout << "Enter a string:\n"; //Prompt user to enter a string
	cin.getline(str,max,'\n'); //Read in the string
	
	while(str[count] != '\0')
		count++; //count the characters in the string, until a char 13 is found
	
	for(i = count; i >=0; i--) /loop from length of string to 0
	{
		cout << str[i]; /Display the reversed string
	}
	
 return 0;
}
Upload