Discussion :

[Just-Soft]

Bonjour !
En exportant les données d'un fichier excel je voudrais tester une cellule contenant la date si le contenu est bien une date, mais en exécutant pas à pas je me suis aperçu que la valeur passée, malgré que la cellule soit vide est "30/12/1899, donc pour delphi il s'agit bien d'une date. Comment contourner ce problème ?
Voici le bout de code qui est sensé gérer cette situation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
DATE_CURAGE := VarToDateTime(vworksheet.Cells[Ligne, 2]);
      // vérifier si la date est valide
      DecodeDate(DATE_CURAGE, y, m, d);
      if not(IsValidDate(y, m, d)) then
      begin
        Writeln(file_log, Format('STEP %s date <%s> invalide',
              [NOM_STEP, DATE_CURAGE]));
        inc(ligne);
        Continue;
      end;

Merci par avance.

[tourlourou]

en testant que la cellule ne soit pas vide ?

[clementmarcotte]

Bonjour,

Bonjour !
En exportant les données d'un fichier excel je voudrais tester une cellule contenant la date si le contenu est bien une date, mais en exécutant pas à pas je me suis aperçu que la valeur passée, malgré que la cellule soit vide est "30/12/1899, donc pour delphi il s'agit bien d'une date. Comment contourner ce problème ?

Merci par avance.

Je ne connais rien à Delphi, mais quand Excel met une apostrophe ou des guillemets; c'est une valeur texte. À toi de voir comment Delphi peut aimer, ou non, une date chiffrée formatée en Texte.

Ceci dit, je me permets d'ajouter quelques informations sur Excel et les dates.

Pour Excel, une date est essentiellement une valeur numérique.

La date 1 est le 1er janvier 1900 (Excel pour Windows) ou le 1er janvier 1904 (Excel pour Mac). Ce qui explique le 30-12-1899 en texte.

[tourlourou]

Autrement dit, le VarToDateTime(cellule vide) semble équivalent à un VarToDateTime(0), nécessitant de tester VarIsNull ou CellIsEmpty (en pseudocode !)

[Just-Soft]

@clementmarcotte : merci pour les détails et la clarté de l'explication sur excel.
@tourlourou : effectivement, j'avais besoin de cette info .... grand merci.

suite à donner après test.

[Just-Soft]

Bonjour !
voici le code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
DATE_CURAGE := VarToDateTime(vworksheet.Cells[Ligne, 2]);
      // vérifier si la date est valide
      DecodeDate(DATE_CURAGE, y, m, d);
      if (not(IsValidDate(y, m, d)) or (VarIsNullDate(DATE_CURAGE))
      or (VarIsNull(vworksheet.Cells[Ligne, 2]))) then
      begin
        Writeln(file_log, Format('STEP %s -- date invalide',
              [NOM_STEP]));
        inc(ligne);
        Continue;
      end;

mais rien ne se passe, même si la cellule est vide il me donne une date par défaut ?!