DecodeDate fejler, hvorfor?

Jeg har den her kode:
word Ar, Maned, Dag;
char dato[9];
char VDay[1];
char VMonth[1];
DecodeDate(Date(), Ar, Maned, Dag);
if (Dag < 10)
{
sprintf(VDay, "0%i", Dag);
}
else
{
sprintf(VDay, "%i", Dag);
}
if (Maned < 10)
{
sprintf(VMonth, "0%i", Maned);
}
else
{
sprintf(VMonth, "%i", Maned);
}
sprintf(dato, "%s-%s-%i",VDay,VMonth,Ar);
lblStatistics->Caption = dato;

Den returnerer det her: 6-06-2002
Hvorfor kan jeg ikke få et 0 foran dagen ?